(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    649117,      12632]
NotebookOptionsPosition[    639688,      12326]
NotebookOutlinePosition[    640049,      12342]
CellTagsIndexPosition[    640006,      12339]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"<<", "FunctionApproximations`"}]], "Input",
 CellChangeTimes->{{3.518737631917839*^9, 3.518737650139544*^9}}],

Cell[CellGroupData[{

Cell["Logarithm", "Section",
 CellChangeTimes->{{3.519066078930254*^9, 3.519066094265381*^9}}],

Cell["\<\
This is the residual after the floating point byte reinterpretation\
\>", "Text",
 CellChangeTimes->{{3.5190661119481373`*^9, 3.519066120297346*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Log", "[", 
          RowBox[{"2", ",", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", " ", "+", " ", "mx"}], ")"}], " ", 
            RowBox[{"2", "^", 
             RowBox[{"(", "ex", ")"}]}]}]}], "]"}], ")"}], " ", "==", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"ix", " ", "/", " ", "L"}], ")"}], " ", "+", " ", "y"}]}], 
       ",", " ", 
       RowBox[{"ix", " ", "\[Equal]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"ex", " ", "+", " ", "B"}], ")"}], " ", "L"}], " ", "+", 
         " ", 
         RowBox[{"mx", " ", "L"}]}]}]}], " ", "}"}], " ", "//", " ", 
     "PowerExpand"}], ",", " ", "y", ",", " ", 
    RowBox[{"{", " ", "ex", " ", "}"}]}], "]"}], " ", "//", " ", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.5190673774137363`*^9, 3.519067383845591*^9}, {
  3.519067434719268*^9, 3.519067436492805*^9}, {3.5190676090129967`*^9, 
  3.519067672257555*^9}, {3.519067757206011*^9, 3.519067757556754*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"y", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "B"}], "-", "mx", "+", 
     FractionBox[
      RowBox[{"Log", "[", 
       RowBox[{"1", "+", "mx"}], "]"}], 
      RowBox[{"Log", "[", "2", "]"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.5190676122163143`*^9, 3.519067672416994*^9}, 
   3.519067759718609*^9, 3.51956974251608*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "residual", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residual", "[", "mx_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"2", ",", " ", 
      RowBox[{"1", " ", "+", " ", "mx"}]}], "]"}], " ", "-", " ", "mx"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.519066097847834*^9, 3.519066156752301*^9}, {
  3.5190676829712467`*^9, 3.519067741907428*^9}, {3.519067919774439*^9, 
  3.519067920598624*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"residual", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.51906612529875*^9, 3.519066150418363*^9}, {
  3.519569750163012*^9, 3.5195697651480427`*^9}, {3.519569866097313*^9, 
  3.519569900326673*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nlcjNsfB/A2JEmLpSJKcUMYFYX4JFupKJKiXZJ0qcylzU8xJYmkJCQj
JSoq5om6xUgqSbuammeWSNoXtHCL3/HXvN6vM895nvM953y/Xy2P47sPSUlI
SChJSkj8+d1xqLOO27V3Y+3TZXV1Xps3ymxW9xOpGcLQUVuq8a0WDO4kJT9V
2wLdminPvMpXwfJ985PbanbwUJkiX16yCfs8R4uvqnlCM3hOZkaBLQQrz2++
pMZE57S9dWcz3MGetSsyWo0FiZ+SCX+f80e47NO/Lqgl4ObPUd0f68Ph4Hg3
Z3AoDduuPw+32xeHab/DnbbPz0FkUaV7fV8SFtn2d76+yIHe5AuTHAR3cKp6
LZK+F8CH0ee22vce5nCUhJKSL9F9uUXf7Ph95H/cXFVjUoIE0wfHW/0eosTn
9lzH3lIEHqVHpXWyMbx4w4xHf5fDbzKrY73/Y0j9yFKcu6gSOgKDbP7+XKz5
7Za/53EVdPuND1vsykMVy7C6bGkNWJRcbeviJ1hwpefHw/5aOCzvf5c98gQ9
oyLhB0Y9DOOypn9iP0Va97+VCpcbMBbPMHM15eDY9V3aPvEN0I12eplixoHR
lk8hb5IaYM6Z+5zewkHlbbnlofcaEPpUXcPOgoMhG8fYrucNyH4UXcjYzcHG
ZyN7Sj81wKr+0rG7BzloObdKELS2EXoDU2d6RHCgoJEx0N7eiFAl5oRPKQem
9ucEn7oaYcdUTlxaxkFArOu7j/2NKAr0+dJZzkGTpGqGeKwR85zaOO7vOEjp
iHKh5T/AqWL+7831HKzI9XnfYPgBz9sPBrwTcWC9eUVWCesDvP9REXX84CDm
COXF1mnCeM4cFYelFLpNH0VNW9oErtlUqY5lFLarpmeeXNkEG6OZIQHLKUiV
J/RbrSPeqi9/nkEhSId58seuJsRMystJWUPBS6QfuTukCbyUbJ0oMwqb9uam
y9Q3gd12VH6rI4UUvQflx5ubkH3sW1Lafgrj0uyuVpqMpx6kpJwoPH8Suzzv
C5k/lUopdKGwQvE45TzRhIp4bWM1Twrz3i1/k6/bDPmyvx7HHaMwYprV7n2m
GWyDOZ/9zlIoSuu5dYrVjHGp1f6Xz1E4K6u3J/JCM2QuJLzKZFFQqM1+dS++
GWkpmTmiSAqLXR+nCDOaEdiw4s26ixTsT+c52NU243mr+zAVT4EqeFYFLR44
9qcPv7pHIVhj7NzOxTxEhUwueZZGwTTceL3zMh4exNl9zk6nUGVe8DB4NY/c
t+rI+AwK7c2FkZQFD/OY89fuzqIwc6TYdFkAD7LPrIOvPaHA1C/lzH7Ng/xg
rJchl8TPUJMdV8FDzKVbvrNeUXBYE3pRvpoH72V/yw0Tr19n6CHVwsMgY6ZC
7muyH2ZpM/r7eWAoW62bVU4h1pbl80a9BRVvNKyT31MI2yPea6rZAvMB63av
agoBe002/buoBVYRU2Yzash6Hb/PyWO0YB5VZvGilsTX3fNN8rYWjF3eNPq2
gUKm3xZNZkALOlUCrqS0UEgOYE8bONUC1Svc9t2tFC4xx0eOnG6B/Ns9TZP4
FPwCOe9do1qQrDcSd5imYBSmE2KZ0oJe9a7j6iIKpbEyTQsrW2Aa6da7oZ2C
6HHpxTqtVnSefDHzdB+F2j6ZXv2/WuG0fKRXqp8CV2+rVYJeK8bqjjLPE7Mz
38jvM2qFX1JeXMwABY/7ZZdoq1aMH5WTOz9EoeN2ReyXU61IW/d95oZhCk20
7KD5afL8UO23R8Tlcy1sMs+2IlTnKEtjhMKDG28V/77UCtXPJ/8dI/a5Vhn3
NbUVuo/NIu6MUeiLqYqfeN+K7zKWmY//oyB8J//dpaEVUSZXnsmNU6iWs7bj
8lqheWha0CHix1HvZ577RL4vz1RtzgSJB6v6muyPVjDKh+p9flFwe60wcuQX
Wa/5qsgiYlupXfbvpPlwshf3y/+moB9WM/uyAh9c5yVtD4m/h9ReV9Hho/NW
lnWjRD7aCxXHmEv4CFuSnTtXMh8fftg4NK3gI1nLrtKdOP9UneqNtXwMFq9e
2E0ceKL+xvxdfHjP+593j1Q+vJ8o/zxjx0dg2hhLVzofjkO797c58mFXbOPo
SbzueIN6micfufqGS3nE//k03loSTMbTJfxzZfJht8Y5bsUZPmqbJw2JiLMl
OyINWHxoaofbKUzKh0vSqP+Gy+T5Rvuyw8Sv3qib26byoWf8xWH65Hyox93b
YJ/BB7tr0pgBcYCTnsGBbD4qauJDHIl1vm2YfyifD55XEOMu8XlN9++BlSQ+
dI2d9pR8iHu6uk7X8KF7okp9E7HxswDR2UYSHxVGmTNxtzWrMkbIh/lExvt4
4s1q07lxn/hg/vqx5BFxcvs1KrGTD7fgFb5viK1DMtjsr3y0zy1M/Up8fxsj
MX2Ujyt1O69Pkc3HL6WCi5njfCgu3BQwl3ifYFN4jiSNqoocgxXEuQ8qT3Im
02CEFvBBPJW5x7dgGo20vlAfG2IP0O4vFGn4vVUVuxKrNPVZVajTSHawCwsh
9r170uz9AhqBlquyzhOX+v42qtehIaHrXnyVWMM4annzEhrMcKlnycQnpZW0
6RU0jDsMktKJa6pvqLYZ0GCJVNwfEeveXKjQYUwjd4irxCEOO5Ql3bOBhmay
Y2YBcQvD8MeAGQ0Tx/GlL4j1x4v6v2+nYZNSHv+KOLp8a/sPKxqd/Jb218Sf
rla3/LKl4Xvadv4bYhOXfTXS+2g4dFmZ/vG1JeJSWScyX3j3jlLi/u/ehdPd
aXDvmm8sId7GHcpR9qLhnRqh/pL4zsXg9DlHaYx/eCkqJB6zl741z4+sJ3rW
ZYrYZmHMFa1/yPpl0xflED/smxm5OJjGvPiY+xnEUgW3Q5adoZHk0614h/gA
a7E/g0UjoYL2vEbM2ZXjtfoCjbG28NRoYvm5xk7rLtNQ/TL69n/Ehzq4toin
sUXame9P/CLPYvuWJBpip5qmg8SzT9ebWNym4Tbr7yI74uPmB/R3ptKwsrCL
2UJcodL+154Msl+K97YZEGuJfDUcssn7T5/q0SQOzhxWds6jwU4ZCJ5OvGzT
lF9e/9Ionbt5/ydyvnIzs/7icWkMyqdxKokNZ9rYWpSReE+9+DaX2ORLUtqy
OhIv3jntIGKuzYbq5CYaFUNt3geItxa2jU6naWTfdzliQrzz0lLLwQ4askus
kn+S+1I/Us107yX7Lzu1ppl4n9uJlPohcj4ehBY/JXYzKBrijNMIk9asPvzn
/rVYJwUpCzCYE1rCJfd1xOzrq+45Asiaz2qOJw7JTuw5oCGA58P4B4eIWWdE
GzfqCpBUzTs7iThxkf9nqY0CGLukqa4h+UA9dtYM5mYB/JZeVP1N8sedsQLj
z+YC2GlFNJURP3gnFVO+RwDNEvNLu4kL/BP0Y44IkF2h272f5KeNfGOniWMC
jM14LVQjLtkiiDjGFEBxY/LVZpLPKucsbrE5I4BEHtt4FzFd/OzMrGsCBK6a
fHYlyY8ScvyqFK4AYZa1Szkk/7JOnBmZUUbeJ/1ex5V4qkBbM/ydAKVGB8Sy
xMq5vicONgkQxX+Z7EDyt479LzXdXgHY409WdP0k/U+q1uG8OUL0apxorh6l
YJiksLhsnhC6Ryx++hJrXv6vvVVLiCjLqKlyxD+DPnjI6AkxVp3fZ0rqySPb
Cy77TIVITpxde/c7BRXJob0T3kIYJtbMZpB6JTEqmKl8TIha9myF4kEKvb2V
DYtPCOE3fuebOXEZL83W5rQQsscGLjiTeheU62B9L04IZtrzjiBSL0Wu3C0W
hULoabODz3SR/mPvI2mXl+T972oO/tdJ+inLmyUBpULYvJi94STxVSOmaXK1
EJ2qrlzvLxS2ztA1GfgohGet7PRNnylkvYg1uDZNBBPzpbwXYgqnNFwXtjmJ
4OQiKTHYROqtDcOedhfB4egdb2vinecko5u9RNDc5Frz8APpp7ruDb33E4Ex
knPdtZFCI6eTW8gSwc87cvbLOgoMqwDXhGwRanPD2q2rKHQGRyRvHxeh8+iN
0CzS/3TbL/O+KyHG2Mkdgs6XpF4OqkgtkBaDUROARcSW2p9Xq8uKoSgVL3ur
mMLCC+dvKyqLwSv7lhtcSPoHuyrfiUVidMqb+MtxKOj17p3WbC2G6cP1h33v
k3jYWb2MthFjcPrTnpOkX9tcbHZi4x4yn/VJ8zDSz+2/vJKf7iBG7jXPi7Gp
FC4wpmYxD4qhWRC6jp1C+gtm0Q7lIPI9vr77oxNJPzKxMNo6TQxVvSeRZyPI
/s4YlC39KcaVt9syp7pRqC+OPm8xQcaz6Sti0s9e9V00uea3GIHmP0Pzncn5
q9wv3SrThrBSAy/XA8QRbyYGFNpgHuF3Jt2eguJ/N7/O1W7DmFT0JylrCvJf
ttInLNvASzZcJL2WgszLWznayW1QLLBTW6BAodVki7kopQ0OchVTb8pTyCns
Fd+8S+YzZvJVppH15W9QVs5oA4M5vFBGlkLeIxFT4kkbkmwVtjVLUnBJ1l4n
KG9DxYsFY9uHOXgelFWa+K0Nbj0fO/bwOThq+G/LVMuPYLutfDYvjYMsCw/2
i5GP6HzdmDljGQfDPeqKHYmfYJr3dblH1lNQe7ZLJ2xph7n08zojpac4Yx5x
h9PRjrBeJcnegCfQEuzg3Yv4DLZ6jVNiZR7WGbES1PQ74J1tbHlxUh6c5tf8
kGzowAOZ+iCWaS6GKy999Av/Aq7FLtuqgsdIknFh7tbpBFtugdPoSDZUhFSq
VGkncrcFPT+4KAuTTofbrfXvgvjxqoR45YeQeOiS81G5G9z2Kyoh0zIQcDPn
knJJN9xajRIKXqaheFmUrNKxHmiyxx0KDqVCaUeA3lmFXvjVLE4/MJ8Nenlt
Q1BRL7jBMqx5GreQmwKddpc+Ui9yD/CWJMI5Z42Sxq8+sMMDPU114xAWcTec
zuwH1+jm9nMa5/GoU+OWgtUAwvI/DhvmByLqdoSbcCfxNufcCrtAeO7uW/TY
dgASRiqvbb6dwryiolzrfWS81254A+MUomMPlMV4EFdrZcY8/Afea24MyQWR
/zN+rx+/EYCFrJnmU+4TX1c4ZN/ujV/GodObHxD3bOq4Pt8bLX2f6u9nEUff
dSxxOIwr+546b8sjXii3oL7qEH4v3X0ioohY1t9Z8JR0L3WxKdINxGxfofl/
DngeOXqw4QPx2arpvb77kLDedck9HjHLx8NduBeW6Ss4ZsI/Pn+xhLsbhYHv
34Z3Eev4Jr+YbIHE5atjbXv/jI8wdL9shf/HZDutAeLxEJs15WbQtfIVcb8T
D267Gya/FjKSjWlXRonFuWcDK/Uhptb7uP384wLmiRlLUORzbyVjgpjr4a6k
pIbrC6YN//5NLCFRkeNrvPH/DC5lcA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 0.08607132739863255}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.51906615996638*^9, 3.5190676866908607`*^9, 3.51906771687283*^9, 
   3.519067779954382*^9, 3.5190679230897703`*^9, {3.519569747701621*^9, 
   3.519569765510694*^9}, {3.5195698666152077`*^9, 3.519569900775588*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "approx", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"approx", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"MiniMaxApproximation", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"residual", "[", "x", "]"}], " ", "+", " ", "1"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", 
         RowBox[{"{", " ", 
          RowBox[{"0", ",", " ", "1"}], " ", "}"}], ",", " ", "2", ",", " ", 
         "1"}], " ", "}"}], ",", " ", 
       RowBox[{"WorkingPrecision", "\[Rule]", "17"}]}], "]"}], " ", "//", " ",
      "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "128"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"approx", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "  ", "/.", " ", 
    RowBox[{"x", " ", "\[Rule]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "mx"}], " ", "-", " ", "1"}], ")"}]}]}], " ", "//", 
   " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], "  ", "//", " ", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"residual", "[", "x", "]"}], " ", "+", " ", "1", " ", "-", " ", 
     RowBox[{
      RowBox[{"approx", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.51732419335804*^9, 3.517324233667088*^9}, {
   3.517324271698204*^9, 3.517324319683592*^9}, {3.5173310118113337`*^9, 
   3.517331022278013*^9}, {3.5173325292780724`*^9, 3.517332546330905*^9}, {
   3.51733262808517*^9, 3.517332628794752*^9}, {3.517599100347446*^9, 
   3.5175991655772142`*^9}, {3.5175992711222343`*^9, 
   3.5175992712564087`*^9}, {3.517604539582444*^9, 3.5176045914088078`*^9}, {
   3.517604672170946*^9, 3.517604674831794*^9}, {3.5176047358873796`*^9, 
   3.5176047385840893`*^9}, {3.517605267577684*^9, 3.517605312688744*^9}, 
   3.5176054395260563`*^9, 3.517676714764534*^9, {3.519066181931835*^9, 
   3.519066220187582*^9}, {3.519066318734928*^9, 3.519066319492087*^9}, {
   3.519066363359584*^9, 3.519066365349558*^9}, {3.519066436536337*^9, 
   3.519066471401211*^9}, {3.5190665844306803`*^9, 3.519066700774177*^9}, {
   3.5190676995658417`*^9, 3.519067726228642*^9}, {3.519067783639661*^9, 
   3.519067784086405*^9}, {3.519067926291801*^9, 3.519067972658464*^9}, {
   3.51906939292962*^9, 3.519069479542513*^9}, {3.519434542445763*^9, 
   3.5194345447719107`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "-", "124.22544637325900734473720163333363510648`11.761941137742939"}], "-", 
  RowBox[{
  "1.49803030235745199322015574519753670721`12.244070685548271", " ", "mx"}], 
  "-", 
  FractionBox["1.72587998888731819829751241367603866791`9.923804794108815", 
   RowBox[{"0.35208870683243006166779601840602754876`12.545100681212258", "+", 
    RowBox[{"1.`12.545100681212253", " ", "mx"}]}]]}]], "Output",
 CellChangeTimes->{{3.519066462613392*^9, 3.5190664747558737`*^9}, {
   3.5190665890876827`*^9, 3.519066701398382*^9}, {3.519067705227672*^9, 
   3.519067726846388*^9}, 3.519067785259954*^9, {3.519067932009267*^9, 
   3.519067972975922*^9}, 3.519069294236265*^9, {3.519069395855427*^9, 
   3.519069480072384*^9}, 3.519434545491906*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2nlcTN8bB/Bp0b7MvVMolaIokn4kFeYkUVTaEEpIJUspkhZp0aoUiqJQ
aVG0UCktc4Y2USGtJESplIgSbb/zfP/h9X59nuc5Z+6ce2cKJYcTVk68DAbD
lvwBf29z6n/NHdjJZgSm88+bpjD/Jln3DzJaiMG1UWgtp/Dq24nJhTKGiKGf
sOOjL4VNGtsf3pTZgRiBFhve/2ViG8c/lVdkHIkVVNvGJfH7leGbLsp4Igaj
NM9cRgynSJuHXZAJIV7HONzAj/0aE6p3lYEP9tna8eNdoR95F9uGkv6Tb98P
8WGxMY+A8uQw4oM7wyX5sHdLvPfQwkji20FOtjzYMu7t0e1LYkj/Dd9hmSlO
kFDh0kiZeGKvsg9WI5xlRpcjHrqDt801fjTMaQ49MfCu7r88QFxuiKPMp35P
w+sqsXpf1vd+Tu10ukZL8zViKd2+/B6O2K9raxZGXydm3ko8/5yT+N53U/HM
LeJnYa23P7A3yu1J7955G+Y1nFH+xB7cu3aOUC74o02PVw9bYcjnUO6KFGIF
HhvpXvaJI9oqjC6wauGIziCbdsy/m6GTRnxx7H8So+zde1Lzf/xMJzZ/sERz
kj3ybodImmwG8b6ktoJJdpi9kJP1JnDpRL7mFLvw0AnZR/Fgr5JPK6bZEm4b
Qv3WZsL17bBWmGXXBHfuFfDPItcrSYDvOA+ym3OxuCQDHKXRlMGDRsP1mUea
iBne5qs/8CDFi1k1LxbeJfmLmgYLXnQ24bTm5adgFf/NK/nQqvuUgJxQDrGz
8dVOflSvUXOgURO8UX+J+Bx04IF3+bk9YI7BLv056OKjD+6fcogZoxnxGXNQ
Pzf3XabZPeKbsXHHBNCt1q0P/hd3n9TbF3b3CiLR2SA7I4V84u/udVdFUOIR
G3v1LeCtZ4UqRZByi/oByg0sfHXsswhiZ7cfelcJPibQqimKHmdfKy7RKCA2
CyuoFUXD1kMVJk3EjOwjcz+LIS3h9g3sHsgdqnTmiCNfzhOO5jhYzFt0qTgS
VEvgSis8gHmMqiPiSGlmY/UHV2JGYX/QN3G0827Ci1PiD0le7e3zUQIl7ws2
dVYiZrA/cKclUA/t2rh7DeTcZxWykuiEv8HLDfvA3WpvrCVRpNVws2AuOAMF
PZVElVMGb5NMC8n9RcWIb2Ui/ocrbGMOEAdaBzjuZKJth+d3BXoS6/8pTDjI
RO2vh987JUN+2CnOh4l+ZiZ+WjlEzDCz+ZzFRCqW3/uroorIvKwCxgwTyQYY
6R1OJdZPPjFHmELM3JQokRJihuXxHhaF/glZa1j2QP2GMhU1Cr3ilpzq1ikm
7v3Uakmhmu/MmqDtxAzd+hRbCpXJHZ2r4kisf2rRZicKZXjLPT4WC/nwU1lv
CvlqBs1M9BIH6n2aTqLQCfu35smTMO+Wf2I6hRyjV6ci6hHp1ykTz6WQeX/v
prD1YN/siEoKKadsi2TFgc09qrso1CQpJaWhX0K8+MspKRpVbXB1er2TOLCr
vV6WRqXHah95HiNmbCyZUqTRnTrvPeXXoL712V91GnkHvL9lPAzuUty5iUau
udo/vvGWkn5du2vGNHJ4F7sxdn4pPM9Sis1oZLbW4EvrJmKG3esYGxotGslU
O3QDfC47/wiN5skz/AQKwEN8va40EjPZ05BdQ8xdHfDXg0Z/MkVP/PgB89Md
uD40Gmpx5MYJPCbGkqf8adTDy6HWyoGTDs8JolGDvXuRvxGx/sWU+nAaPY2u
n6O0D/JvNZMXaFRStsim+iT4uoJEDI3S5rb+FblFzIj4+SaORgmGGiZ5hcRc
5/zwazSKPhmebFkP814tlbtOozNNuijxN/QnNH29SSMJjeLeeqEyYlmbf7dp
lH5RM3pSjpj7QHo0lUZ6w/dWrfgf5MdVXt6h0WvTpZ32m4kZxqmXM2jkcj8t
4NIeYv3V6bpZNJoRVVjy1BUsurXuLo2Wv5A6pXIN5uV/jrtHXs+ySzI2OZAP
Sry5T6PdF0S5ERzIh7dM5NLo+0CYc1kzzDfN5MunUehWXvGhPqgPMRojlsv2
L5SfhHrBzY0FNHoo9HePuWQ5qV/7OOoBjYxdPBlBi4n1nTiaD2n0oW4k8+Fa
4sBmtwpir6XHzL6YQF70RaOQvF/hfb+kD4CX60UQp/UdvGHkCfVmkc+Idbe8
1/eJIOYqDI0Qv8rY/TUnGerjz84QO89pudhVAHncjt/EU47mWhI10P/74mvi
uOrnb1En1PsbXCNeprwlyGMY8q9RBsTc80+W3uGpIPnb821kf7s+r29qkQb/
3GRFPGxQ6imwjJhb3FtMXl9I2uoFOmxiRnowD7Esb/6TI1ZgVa015HoUHFzm
kuQM9SksS3K9jJ5kSDT6gvfo7cyjUbeiUvFMDHHg1ScbyfX2DEy21bwDedDT
ueT9EPk4j9ehBOYZ7GrJoVEqirsb9wL89apvNo10bkuY13yAfq8bwuT9bZqJ
HBv/Bf09Z4MyaTRZGWiwV64SPu/Y6uS8XJGf6o/SJNZnWuwn50nV/0xspSEx
1y7Nj5y3nevduhRdIR887p5Eo/wyW6+vldA/aGx2hUZbZNvlZJqJA/3pxlga
dflYVW3rAw9+1L5II2Hdrcw8CQ6ZJzf8jNwvh0q0czz3g9c6DfjR6N/chxaZ
p4gD90yUe9PokteKP+3hkLtb+JymUeUaZcN1BeCAvCI3cj8XUd08PJjU95do
HqCRXfTkji9zweWzQnbkfDj2vqhVJ+bSOvXkeaAu/fhx1G5i/YEfPOY0MvA6
cFW6AHKdSpv1NIrYvk1sogbD53PVybU0alyidf7tO6ifzPBaRaP7386XvuTj
EvOc1FWlkXayTWb8SvAmyzyaRnsiGj6F6hEH3tnPEqfRWc+N8mc2g5GmgyCN
npguj99jC/WMC5WTFDKdnglSCAfb6bh9ptBB+8x9d7vBS4Vf5VEoZNuC69cH
wDeOdWdRKFP7UsuF38QMTfOOFAoNSfiauIo8Ifv/LRB7hUJe2Ex3lTbY5X+i
pykUrTgmVXER/PjfTm0KPerZ1PBy/VOyn8np4RwmajMO+nnRiJghWfAilYnG
8zhzTa3ATfWJiUy01k/34LPDxPo743jCmKiUtXKcewX6FaWYB5josaGs4sN+
Yu68LWsoJqrI/HEqPr6K5MaSwa8k0NOjNxfsGaom80qsHLpEUeHAsWP249Xw
fDTsqxZF6S565YcYNcROb3fliqJQ5/a9blI1cJ49ZvxFkbEDdeP8enBqx1EF
UfRyT+j8vGgwz/UWWxHUZewqzbeilvTb/amrF0JjSzZI5rrWkXzAtMF7DuL9
e4+5QOU58fKbUkcm2dqzBx5Z5zUQu8z1cOpnN4RoNdUue0kstIvOr+EsvPTt
b/b3V8S3N/4yHOV8+/Ohu1WzmTg/WxbPctIHy59LxLwh6zUxtrsIYLcE88VH
48C5HxcHCuC1hp/9ahLBPW8HEwTw85siK87eAetPm9QJ4J8We2IHSokZ0tJ7
VQQxu2Tcuvoz5LOXbnUL4s7z/3vvo9tC8t9icZuFsYR81siXL2AT/tTPolh/
1/n3nweIAx+NqY+L4pOx+1/0fAdvPZkjJIbbeOZnfZwAD/zzWSGGb/VF2HeJ
tcJ+G496iWGNgqONb7TAcx/EzhHHZps07j0N+S8vqJ8vgc+dFbn+JBJ8+sM5
NQlcUNwXxo1phfdvnoqeBJZSve3ASYS86pqhrQTuEmPKlt0Hc4+/TJbAx9t+
RjxoAb/xp+QlcfSRYucU5TbSr3V0vjATD+rnRoguI+b+z0eRYmKj+Rk5Xivb
YL8BC2WYmLcu/rupHuT3XXnVmNhH2dPrrzn0xybZGjOx84dVYVZ+UB/RsSeU
iTfuLMjgb4b6M2F+E0x8S/1u3Yl2qN99Zf8sE0/xpQy87YL882E9AQqXPoxd
8eAr9B8+1sKisAbzRPG+aWJ9geLrGhSWe7Gi5pFqO/HIYRcHCo/r3/viEkDM
1eiQrKJwRfq3pDMhkEuVHXlG4WAhdeuwSOLAzLPljRSWeHX/yZ04yBtSt3RQ
eMn+vFvdWdCP7SeHKLzL/8HuHa/a4fubQbcUjeU+/ZQ81Ar9sn+LZWjcY7iq
zuMt9A9FhirQ2E2scE3sF6h30RFTpXFYUhH9fAJcxi3Ro3Hx45IGpNRBLG8c
bk9jX/mJ89uXdMD3+cAuBxrrB+ms27cc3BijdpjGDcaPs33XQP0NjXsnaPyl
vSyseGsHfF56mQbSWGq8Un/5SbDyPMEUGnuuqi6aW0WsP/rMrpPGzlqKKZef
gU9v/tVF493aZ6PEmqB+mUbgRxqv09Ny4O2E9Ww2+3+lMa9BuuT377BeVhz/
GI1jLUOO1sh2kv4CPmMJFg60/rhTX5GY2+G6mWLhkzvXbyxXIWaEbtOVYuFd
e37Pe6AJ+dl9/LIsLHfQsSZ5C+Sb/y5VYeEcd0NFz5MwrzEmQ5eFk0+miI6c
gXqhwyLrWfii59T4EX/iwLJyJzYLu3sXNe6PgPrT72cNWHhtoLKfyS3IO+c9
NWFh1eBA59o7MH/NwFszFpYN6bLcmA31FhsGzVl4JjxedW0R5Cs9hqxZuDqW
v23Rc+iXVwywZeFHlw88ufkS1v+10HQfC9+Nq7g/vxX6H2RL7mfhqATP8xIf
wcX2vg4sbHX7i+a/Meg/crTbhYUNU/XlTk+C+1v2H2XhNXeSBX8w3sL3m9ft
x1h4ftaO7l7Rt/C8CrnnxsIf8qqjXiuB80c+nWLhV8P8Q6uWEnPbz9CnWZir
vtk0Xp1Y/9xPXS8WTsmpEbNZC86tdPVm4UsDc1xL10O/B+3rw8JBqlsaZQxg
PdV9/r4s7JBZe7HLFHKxTpezZL+9At83WIGjxCz9WXiTstH22zYwL11P8xwL
K6fVSTg4gN2i3gSwsNQnwRNVh2FeZEFCIAvPUTR+qewKlm61CmLhvpvPYr+e
AXsq5QWzcFuX0A9jf5j/3GT7eRauW7DVIicYXk+8by9x6d7IAtEIyOXzT4WQ
63u9nul6EfK8wQnixA5hj6Yr4ASN06EsHDlv2+uViWC1s/3Evrsu/O/yTXBp
i1UYCx+9+vzyaBrMS9ItIt7bIjJqfRf2s/y+WDgLm7BMrIpzob5mhR3xequo
h3MLwS9wGrH65Re0dyn03zz0kVjuleipzkp4/Smy0hEsLCZp+kavCuo39OkT
T5lFr05+BvM/1B0iHo5uiJtuhP4xrj9x9wux3/ZvwMPNMcRNImY7uB1Qv372
GjFn68UipW6Yv8cInBfRKHX+M8yvuB9NfKtO/PSXfujv0fQljhXY3rr5O+RG
rfbEgZtj1mT9gtw9SY/YPaTpqtBfmN8dIk58oEpi/MgM1MvGtZPXY8lrvusF
3zuyXl5dIrHBxthH6sLEXBVlS+JVgS/nxkhAzsxhEC/CkmdGWJDP7s0i15M1
Y95uIUPMiNTZTPzb71UCS/kd/H4iwJm8H1/KmBOeauCyoQHy/rX+tdjdpgF+
GO1I/OjM6/nXdWHeluOIvP+Zjyiff2yYp5l/m5yXhDHLTltDyMuX/yHnyftU
83UFc7B7RxQ5by4P6X8BO6B+SrSenMc9P632ftoDHgmYJudV78Qb2XRH2P/A
SlNyniePtiSp+UL/34+B5H7Yob3vskYAeHz7BXK/3OfpC1sdAv1Dy6PPsLB9
4h+PDTHQH6/jQ+63JzWyxpZpsP8ttRPu5Plx+c6GXVmQW7fWnCDPNzv11bb3
Yd6G/VHk/lX+tUHB6RHU1w7Mkvs7XPHgb+/n4Er+WGcW/vhtYMD/JdTXSis6
sbBOyckPwS2wPpWXfYiFB81Cnkd3Q/0T38wDLGzml5WSMgrr7XiwZS+5/m3D
ps9ku4jTZheZsvDxVC+DxoXE3PotG7aR59fx2bXNymCnlRbGLOzFRy3u0oD6
xm/7DVm4U1Pr74gBcaDtxqXkeXo7yjdj3jFiRn3vrmUsPLGLL0nOHfq1pKaW
srDFouhLSqfBSowb5PnM+/im3/IAmMedx1VkYac+riWKg9zQp3guCy/fKDjj
XA7zH6Vv4WHhgpx7Szu4kGdWrJuhsZaUheXWWlhv+QnVSRqv/5qYvvw1mJvb
/5vG2y8uM/nRB/PN2vj7aXyy0yzRh35P+tcL5DXQeNxg9MngvPfw+5pR+Xoa
+92/9s1WnpjxIzW0hsYhAR/YbFVwnPV6Do2vqXj08rLBJqZG+TR+7BG/KvoI
+NOX1lgas9/p2E27gQfXVUXR+Knh+1A3T7Bb4N1wGj+ft6TTIgDWa+vaG0Dj
rsqSAOmrsB9Lzf1uNGaIvGu4xX0PP78+7N9GY6M0pcMP5nWTfgsWa4bCWokS
S2rliLktlXv+UlgxZvLLWyVwZt713xT+59PqwK9OrP/3+JxvFM61jLS30QdL
pEa3U5jF83PntAvMS6fs8in8YT/XcGsZ9L8pZe6l8Bn5/Ys+2X0gORY+lMzE
Dhaau7oOgo23r7zGxNvP81xodybWX1c5FsvESwbu/Gx0B39T9jjPxC1F/dyy
EKi/5LToKBNrmp7cH3//A3xfY3hoM3G/b2iy0RTkEXPuXJXE6kM7RdvNPhLn
GJ2uFcelO0zxBQvwjCP/I3G8qdLgFNsa3HkkPEMc741Z+S5jN3ja6EiIOI7U
FL7neQhsv/TmRnHc51mxjfYBiwg2PBbDKdOLLpilEwcGBvmlimKW5A+h6n/g
Lbwt5sKYHyflL07+ROoftCle4cfHtMo7hU164OcHm0td05x7Wx1SOOPgXWcr
RUY5Y99kmX3XPsPvi98dPvKWU2xtxBdv+IVYToLT084OMA69XdQH7jN9ff0n
W+n9to47ob3Eyi/5M6bYemtD4mVW9cH3+cKdE3zITuHlX5434NKqqjohJCFz
sri8FTz/5Ml3QugJS9rjdAcxo3Lj3BEhtETYtr//PeTnZDfMFUYjv/raXvZD
/ixSwFEYBdfPFN6cgZxXIWBaGN311HDTXfaV5NVU5VJRNPb8Yo97EFj84wIb
cdQl2uoydR6Mv2Q4i6OnpnIj4WHgq0rKXuLoUlPO5K0osKHSdLw4WtZcJ9V4
lTjwtZFisziy7+QxUsuBXOne4m0SqPbr6Xufmv9bL6lHUxLdV638n2sruH+y
hy2J4o7wl060Q//8oDZTSXTg25Vqyfdgw45rLpLo3/f89xu+Qv3Ber/bkmjl
+IDkjUnIK68fnsNEifz2nlbK/cRTIgXHmGjm0Lw1r5cQcy/ZlXswkWPVqzFz
NWJGwRQ+w0SawZvOmGlAfnh+8Xkmejar6mus0w/fr0y3JzHRn3+/AtimMK9d
UbeeiXb9jIxa5gn1HutbFlKowmKTabYX1PvE8KhQaFHBlJiqD8yfk7d0GYW+
u52IUTkH9Rc322tRKHRox2XFCJhX6uRpTKGirwsT5iaD1Xv1T1CI1V2cxlsN
tq1gl1AoRszfv6QW5r/I7yynkMg6w93H62FeQdwxLoV4E5vF25ogPzDfs55C
o5Yj3tmdsD5/2Lx3FHpVo2puMQK2874zRSHT3yNqc0bBsuL3GDR6tqiEv+w3
zDutn81PIxywuWzxP1g/0S1SjEZ5ug4qf/gHiEP3dCygUXRu0uRNWWKGz+g9
HRoJdTm0WckTcw+JLVhPoxCRZQ8EFSHfdCoQ0cjvcKmzhwrkviyNLTQ6qtT6
2lATvEhSyppGxlcl7n7bTKx/5pzAMRpVV7UGpxhDvp+/w5VG+qPJ+3aawLzq
0NvuNFprvpx8SEB+15npRZPzbnzuii3kMbRPII3m+Aft0PWAeeUpB+NoVPRz
6C8+Bfs3ijx2lUaOzrtvb/GCel+P4wlkPfOVg9Z+MG+HpnUS2f+i9wFuoVB/
+ndhGo20EoxVxsIhr3c+nU6jL6JFz/0ugF+UrMikkeHYBenIWJh3sDc4m0b8
z3Tu3bkO64dNcvLJ+uvTLZYlQ877Q/sBWf+B5HjBLZi/IS3jIVn/Rp8+5w7U
B6w8XEwjT0mrPsNMyE15yx7RSDmkMurFXeg/HMxXSqPzrvFtHblQT/n6ltFo
Vc+s3/4C8JGBrHIa9ew6ptT3EHxz7EUFjQz0DY7/KoF5K1r+cGjEy/rBI/EU
/EO7+ymNHobbZsVXQ/3/ZLlVNHKYqjVdUAevz8snsZpGT3tvJqg2wPqZSeq1
NDq5V3hDfhP02+7qJ1700rNnzWtw3tkbdTQKLjVZsakN+qsnPz0j+1tR0lzf
AfN3mp6pJ/tLXeRt8Q7q5Sd4n9PoytwY+fb3YP7JEGKDqL9P932E9UYtpolH
Zx1dvvSAm8aOvaBRmucr8WO9/12v3lfEVgPrCn9+hfz7AvUGGvHYZ+32HoT1
ea/6Exc00zMzQ//t37SG+IDRuTuhI2Aum6+RRsyKAWOxUbDO4bXEXM2d36/8
hv38fXKQ2D2DGyfzB/xtWzCxoqy6bspf8MR0IvGrmITuJVPQL9yeQRzIxxeS
OwP7E2y+S6zp7aamxTNI9tM1mEr8caizqYwPfEr+MvGlg5s9NwqAi528iPXb
CmSeCQ3CecaWxD+2yeHtopD3LVlMnILDHVvFifVzEgbJ67HQ+iVsxwRXi98l
ZmTb5/fQ4IWhtsS1Q+1ut6Whv9BomlyvaE1LDbv5MN9/UxxcP8/nw/MXQP3W
U/LE80o35bbKQ97/Oolc/67JiuNXFAfh57m9EsRpSFvdfDHkXQKnyfupUad6
75kquLNUgbzfv0XSjoYu/28/hQfJeSjbvmCZgQbkjpxEcl42t4lnl68Gz/ne
Q86XiGy4i7c2zM8RGifn79U+huoaXci3KUyT82nXO5qZx4a8SuUrl5w3tePO
xzaCDcSfYxr1H+9VUTWE1yfwLoWc71O/29NTt0KeL7WMnH8dHUtHe1OwnlcX
uV9m/J4vXmAO+9ubHfyYRhf4KtPid8B690/kkPvNwkjbwdIG6sMmlpP7cW5U
vpLEXpi/lZ0K/15Ap6WE74f+nm/OBTR6rBR+y/co9Fex7cn9f86JYb/WFeot
FPyzyPMh20f+9wmo97scm0Fen+bxZNfTYCGF2FSyf2R540AgrPcQTSSS5+35
53vkz0N/+/LCa+R5ULdJ5m0o1DsEH4yn0ex27UTrKKgX25sYS/Znv+Dalmv/
7X+xWyh5v1Ljd/Jdh/6e5qpgst9ecWluEuS7q8TI83GFKyNeNxVyN2tvX7K/
s72X1e/DvMCUYjdyf9/Iv0g/hfUK3at30Khk6kb402rw+AI7SxpN2YcFnayD
eSYrv5rRKHzxvtPNDZDX+raT53vyfZF9V9ohd5dXJJ8PNRwndXoYcs5Os/nk
/VayXPJ05L/+DTJS5HqfX694chTyUNQhSaO3Riyp5j/gosCVgjT6/oo7eZn3
G3xfcjMYo9D8zwteUPOJ9ZuejjVRaN9mwZonst/g3zfon+TzLy1rlOMhD/65
8kM1hdSP1z98vQisxo0ro9DGMa8bl1dAv2jBvgwKHRVsPkJtgvk/r7t7U6hy
eYQQ5Qb1TGEPKQppt8xrvOIO9QtPa0pQqOBs1mWpU1Cv+/GzIFmvsVZ2vjfk
UulLJpko4sScFQuDIefxWvCJiawKgy1XXIN5Xh85OUz0Vc//xlYO5HrPX2sx
0YHPYvtfcKHfJ0l4BRO9jUpebFZFzDX7oaXCRA1d5fctnkH/DmlnaSZ6eO4f
x6YZ+jOeHhqURGefnvns1AdebtLhKImobSfVgyWGSH2JYuoWCZTyRFJUjxqC
79PyZqskkKZu7sBPFuSnbr6Vl0DbVfszD8pAXjF7/bc4uiBgr7RRGbyUnZ0i
jvirts5l6IFNVHh+iaHxdUqMc07Qv7rTKlAUhRZyute4QM5zSs5FFEktt6sc
Pgq5+d5ac1G0WjbBd587+MdgmYIocp8QG1vvB/UNAkvKRdBA0cTA5CXwbzw5
LIy6Vrx641MBtpzrsE4I3f5G+fNhsOckn5IQcsi2XnLxCczTXhMpIIQGlNu9
U2ohjwvf8FoQjS/olq97BfZtMnUSRJTI0GGpXqjPk58NF0Bb+gSn8sSHSV6Y
fraEHxXcQspf7MHVVuqVDPTL95fgwYPD8Pu8HmYyA2nbZH17fwhyL7EOXwYq
l5QsbHcBx0lK6DBQbWD3xhcnwUtlNB1m2e8c/Pc/DAOX661bN80WWFp+IzAP
rKbmy51g78vXpuRnwL68U6rf2Y/2Tki8YnwnPqB2wnuYLSFQJnaeD8wINq8b
YnPtNggNCIHLdGwOfWMvEjGcLWKBE5vOxfez+xwth03VwNv1JN/1sN1kj9ef
3fFff9HgxxfswNDUoK4c8LICsas9HPEzgtsO5oIFikT3febccHGl+/LB0Vuu
qHzhFJro3hkpAnMitUt7OX3U62peDI7I6v7czzG5xRBSewNu0KjdMcKZW7I/
5vQk+FZu1/ZxTm6/fJKE6Qix5IcELV4ccTP0QPd2sAG/ghcvdrQaVsmzJA68
lPiqhBfLVVQUmNmAd60pX8eHL8Ta1kY7QP0a86zN/NhF+/pPER/wgXOfDwrg
RSFSxoKZUD90eGWFCJ7ROSvefhesr7GLTxR3Dn9uzrwH9ZGJOdtE8SWbwn1b
HkC+I6CrUxTPLrM6FVoBuXia0z8x3PU69hbfG8jjb0gbSuLSsD+H3rRCfl9u
QYwkjl+3X+1OB+TZ77Z3SGKTDI0ig27w+qQU8vNqmXdjfdAA1A9rZTcw8bUV
a2IthyB/6+Y0ysQePck7lEaI9Y2HdeZTWNX0+Afub8jTn6s4UpifpyX90h9i
ruRqdIHCH4vXHT3wD+aNj54ooHDF0TsrNaehXlqytI3CCQtFx2ZnIV8eDf8/
6/9QS1rh
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-0.00007451459515239733, 0.00007172911546793337}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.519066462613392*^9, 3.5190664747558737`*^9}, {
   3.5190665890876827`*^9, 3.519066701398382*^9}, {3.519067705227672*^9, 
   3.519067726846388*^9}, 3.519067785259954*^9, {3.519067932009267*^9, 
   3.519067972975922*^9}, 3.519069294236265*^9, {3.519069395855427*^9, 
   3.519069480072384*^9}, 3.519434545532673*^9}]
}, Open  ]],

Cell["\<\
Add this in to be more accurate for powers of 2 at the expensive of overall \
accuracy ...\
\>", "Text",
 CellChangeTimes->{{3.519070334987591*^9, 3.519070360642152*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"1", " ", "-", " ", 
   RowBox[{
    RowBox[{"approx", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
  RowBox[{"x", " ", "\[Rule]", " ", "0"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "+", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "128"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"approx", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
     RowBox[{"x", " ", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "mx"}], " ", "-", "1"}], ")"}]}]}], ")"}]}], " ", "//",
   " ", "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.5190703186535397`*^9, 3.5190703249626513`*^9}, {
  3.519070371158362*^9, 3.5190704403244267`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  "0.00006862125198525636906782359545731756`9.529312818158475"}]], "Output",
 CellChangeTimes->{{3.5190703222912273`*^9, 3.5190703252409563`*^9}, {
   3.519070397509941*^9, 3.519070450260861*^9}, 3.519434552196121*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "-", "124.22551499451099260110626945692909242404`11.761941142760582"}], "-", 
  RowBox[{
  "1.49803030235745199322015574519753670721`12.244070687748426", " ", "mx"}], 
  "-", 
  FractionBox["1.72587998888731819829751241367603866776`9.923804563767758", 
   RowBox[{"0.35208870683243006166779601840602754876`12.545100683412413", "+", 
    RowBox[{"1.`12.545100683412407", " ", "mx"}]}]]}]], "Output",
 CellChangeTimes->{{3.5190703222912273`*^9, 3.5190703252409563`*^9}, {
   3.519070397509941*^9, 3.519070450260861*^9}, 3.5194345522243023`*^9}]
}, Open  ]],

Cell["Even simpler, faster, and less accurate  ...", "Text",
 CellChangeTimes->{{3.519070795166999*^9, 3.5190708115318203`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"residual", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"-", "127"}], " ", "+", " ", "%"}], " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.519070781149934*^9, 3.519070820490342*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "+", 
   RowBox[{"Log", "[", "8", "]"}]}], 
  RowBox[{"Log", "[", "4", "]"}]]], "Output",
 CellChangeTimes->{3.5190707881442966`*^9, 3.519070820679956*^9, 
  3.5194345586606693`*^9}],

Cell[BoxData[
 RowBox[{"-", "126.94269504088896340735863111216151092426`17."}]], "Output",
 CellChangeTimes->{3.5190707881442966`*^9, 3.519070820679956*^9, 
  3.5194345586634398`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Exponential", "Section",
 CellChangeTimes->{{3.51908176752185*^9, 3.519081768505364*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "residual", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residual", "[", "z_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"2", "^", "z"}], " ", "-", " ", "z"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5190817871175013`*^9, 3.519081807813504*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"residual", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.51906612529875*^9, 3.519066150418363*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV2Hk8VdsXAHBTpRSZn6GkaFQJ1UtlmUIk0pUhU5Kn8krIVJJCqGiQhxSS
JpUUkiES6idkrrjcc+69hnDuUZKI/Nb563y+n8+291nrrG2vfdU9j9sdEhES
EponLCTEPC0PDTRXfrU3aLXNnpqZoUHMRNmPo6QHjmW2ufpo3YyU9BdKpvB3
lbH/yT80WDV8en5LiQWFvRMWQ1M0OHiNl19T8oLZl74ofZ6goXv9BZPLSoHQ
dCPGsmiUhkx5m5h4pSiwPNQ9EtVPQ6T4ixVxSklQ3DVw8+hHGhydsvJGvt2F
2x5cfng6DRIzkS7mi/Og+SWr7r9jNGjuEQy8vVgAKiW61GoTGoIbt0DKj1fQ
sC5K6os8DYoF0j3CwhVwU/HBK0NKAEVck/qP26rASzY/f9lbAVQduaXiNFwN
DxRjjry6KYCx5dulnvz7DhJvB00XhAhAZCJ3oYpmHRCsyRe5LAFsmvEo2vu0
HiZTwjU4egKoj9JrrF39ETYWtqsFKApA7crQxENBE9TPMpGImqBgaJzT067d
An0lyZ5hHAruDpbWSSa0QuzVZ2pONRRILrpP8/ltsPP7f8Gfn1Bw6XChd6ZG
B/QdCnjMSaXgp2Eu3yfiE4iq6PNcYygI1KkuUHj7GR5c9BrfGEQB52n1xWb1
TtCyP6Q44U1BEyU2rLOiE9IKqmbeoCu1duxK0uoEBfb8BRfRmY9q5jts7oTh
xX7Ji9Ce92ovs3d1wu+yp16mhyjou/U+sT+4E4wk6JGUgxRQl+qvTzd0wkqp
lE+uHhT8PtJ2c1VYF5xL6Njn4EwBa5Pr1XURXRCS/iVdC/1YuC9GN6oLPFRC
REXQbinjJ7YndEH4+QSdJ04UvKlRtthzpwv079n9NQt9YcmBHyF1XRDfXCNa
6kCBbAe1670yGzSe/c8b7CnwzQoyblBjQ9Wcx2//Qlf7zmxu0WBDR4mn0XcW
BUGi0svY69iw1oGVkYP+oq03QRuzId0nrHcBOuNiWI7iUTawDD3T+XYUrDGa
88e7lA0jvivfPLKl4Nmj3BWfK9kQH+hjH43Wk7Pds7OWDUne5xd6oLf1p9xd
08yGQN29v+XRuy+vthrpY4NVWlr2eRsK/L9Yp4TKdMM3lzpD790UvDqRpHPp
cDfUt1eVW+yiwKDrb5fpY91woqllw0p0lWl39LHAbthvMqdhDrpOcfkX24hu
6KrvC3lnRQG7/GWE/I1u6JB+c88CLTSvq/52ZTewR/pd7CwpML+j/k++Yg9U
J+mYnLfA902RXF6r2gMsDe/Aw+glCb/5neo9YGg58c4GPRna7imm1QPhgzs6
VNFP9sS5ORj2gM6pJ4nF5phv4W/20z49wF/tFvzTDOvJvdJ0Z0kP3H5wecWl
HRTU2z8Rdavogc9OHg+C0MVWaVX+1T0Q4/bR6gD62uZAw/TGHiCF4ic3oXdI
rdxGc3vg16z74zxTCnJfJ+rekOBA0a41/qbo4EXuS0kXDjiuKjupZoL1Z6u9
j32AA72ehdmS6N3nheM/eXMgS2Xt6LQxBcu/Zn9r8OPAzh0ZP9notoKBypIo
DtgqvUlMR2vv8ndPesyBYvkr85eiVSNMrifmc2CJveVeWfSc53Lv4os4kDY3
s1QM3aP4cl1kJQdyZDS/9RvhfuP9nv63jQP1fu/pPPRAWHS6+RQH9i2Q2G6G
Hty3xidLiAAf3323t6A9RmRF1EQJCLFxVl+LtlrWu1FZnICXA9cuyaGXxl24
tVCGABf3yXG+Ie5HVr3vtCYBbb76GpfQZoKC2adWEnAveSArEl124Vbmr9UE
nPX1NQpG3y851ja6noCaw1O9nugzS6S3DW4hwLTRr2YrWmvYXuKTNY7PM+WM
An4P1q6KeFsCqjwCagfRJuXGAQZ7CfiQndxOop0T1nflOBKgpV99tAkdpz03
N/AgAa1a08F5aLnUGbeV3gR8p6Uz7qMzhX/KsH0I8PqzVpDBzN/CDTM5RkCm
S7TYVXRfYJmlTCgBHW++S59E+3c//1NzioDhyPOhx9DTOx4+Dz1DwH2bdXN9
mPkVk5XJ8zg+uCtzPzN/xKXGpBgCoqK4D+zRWgPnzlnEEbBbdMEXG+b9Xx0f
zEsgYE15e74pulHd+/bBqwQk5YY4AxNPvIudYhLG62+xRp9Zf//OkjOpBFwb
Dd6hzcw/vTTe+i4BfzIcXRYz83srGQjfx++ld9dMGf2yUep7wUMCck6ud1Jg
5s+YclLNI+DOEclxSWZ+8dEFTfkE/NXufU6Cidfv65vzBQSccxLfJM7EZ9Sx
augVATOLtRVE0LGP6rtvlxHQolhqPGOA8cq+vWpXQYBMWsp/U+jMU692zK4i
YEr4g9wkWoufN/GqmgB+LqtkHF286x4eNwTs+rE5dgxtUph+QL2OgPbNwWdG
0Y2Lrsu31xNg3Cp36xvaOSbuf7EfCQhbJsun0X2CiPBtLQTERwfuFaBPOARt
GGkjIGvf1qFh9FSFb2/2JwIW/jicO4SOXXkw1aET1ysVSRpk3veqk7VENwEj
c8VzvqIzJmyEKzhYz9tP9wygV3uaFfpzMf6CA4aMi+q2HV7eS4BdfUldP9pY
V3dRZz8Btry4cMYNN1c1Xx7E+nVodmTsKLYk2ogiYEnsdRfGfF+FLWM01ltL
Syxjv/b51IPvuH7y1W7GU9tFs1zG0Dotzsx6sfcmWAt/oWf9J8S8n6zUiHj1
JAHSx7mNjFvK4y/snCYgTebnCyaea76asz/OEOAc7FjGxGunUhnFEiFB/KLE
AJMPmTpn0U4xEkK2Sm9m8tUSMhbpPoeEtKCjD5l8XltxRah3LglBq1WBybdM
dM00LUmCZGFs2w9mvK7H6ZPSJHj7WLT9ZMZzJycnZUl4au09/gstbaj9a5YS
Ccd9qu9Po5sEdUEXVUhwPiW+UQjr5cqtQ2MLF5Ogeup5L1M/C3+nfVdZRoLe
NOQz9dX0cOOJLE0SWlxX1DP1d8WxiV6+koSef07Pk0JLFc2iNqwlYXpj8Dd5
pn69Mo++XE+CzpclaUroBNmtg9t0cH4+eC9CS57w6zffTELYSK+PJjNeTcK7
YQsJw81+GauY8Y05fLttmJ+ukIm16AVaXaSrEQlHNcX/2oye37+DHWBFwoMB
pxlLdP0NwnnCmoR0lpidLfqS6akvZ2xJMP5363tmP0vcedYRZ0/CmsMOagfQ
81xVmjPcMX/fToeEouskimw0PUnwX/G2PwIdX2Lb+MiLBMfknLAY9Ny/Yj4U
HibhRq+ZRBJavHWk5kMACX+/2/D5Gfp95EXTPUEksAyueBUz+097+duOEBLi
z6bJVaLnJOyvJMNJyNlQwvmInr2ztmT8AgmVXS5Lv6HFKm7mLUsn4acd31kf
/592bjO14Nwmga9z+KcpOq9kmEjLImE0e6LUBu1ctF1G5j4JgevMaw6h859w
AoWekxCe2dl0He2Wvky/+x0JyrbSjeNoPeX6lpQ6EibNwiRm4XkwNyXwKKuB
BN0ChQAZdMH1mvQPLSQsHxmtZM4PiYv/zLzqJuHlULSDN7o4NLc6eZSEOue/
/TnohPG9rnY/SRj8JMai0QdPTo0tmCAhuEPLY8aI+b7WK6L/kNDonjquhufb
IR86LmAuF47zVi87iJZx0LWxVeNC0hrP49/QR/VKv8y14sLb4HJqLZ7HlU3t
j4utubBU1qfMGC3/70jEP7ZcWBWkW+CArsjRXF5jzwX5ZZvUzqFlFa/4n/Xg
QoTUOt5ndOmEl8T4SS5Q7kKaCXj+S1RIbudncqEhdTxTEfsLj/2rFl7P5sLt
M+4pG9CF4yY8o3tc2CrQe2WFdtcOjcvI5UKqlE7wWfSLLF67cxEXRhuL+UPo
/VHFx5o/cMFon1xsHfYvuTs9M1//5IL9jSGh+9gP6WmpG8AEF9IO3l9YjX4t
SXRV/OaCTMszUxLd1Oqq+EaIB9+PFSipYj/1w9Up4e08HtT+rzD4OtrA3/b0
+8U8WOLjPCsO+7GmNAPHFjMeOM6ZCkzEfs4pfHrMbicPIiUNZPLRXPey661W
PCjhz29rQf/Q0P/YZssD3yHHGgXsB5XyNpp9cuaBBI90y0R7vtXSYx/jQRMn
4HgJ9o9jQ8oL+5J5kNF5Vm7eXgqSbvW/S0/lwY/Lped00bo2BRF703lgvmW7
qiv6xHNrujKLBw45as3P0FTI2cabj3lwWOmBsTP2t72z+i7tqeLBJ3UR80Ls
j9vV8ueWUzwIUCjuu+iI+d5rLppkygerkSTpMjfcL1bF0armfHiqZvV1GO1i
sko8ZycfTA3N+he5UyCiK7GgaDcfnpfK7juL3i3zUeGzIx8e+ZnNmGH/P9C0
b7Xqv3woYZORXQcoUN7tvefuDT50KOftU8f7Q4RFdEZBHx+CvcYLlvhSoN5t
+Tk7uhe2WlnrpJ+iQH9zVJKSTh/cO/JaVT4R11/8cUK4tQ/aZm/Q/ZCN+am7
zPWL7IfUiYM6UuUUpIi5BdppDMCf2tB+1iesv57COyLVA2DfFSaVPUrBrPBI
1pYTX2Fjzw7/rfICEHrolseVGQQ5W4NNDpsF4J+Wd1mmahC07QOVndwFUL4m
Vlz62BBsOd2ZVBknAGlLf61zksNg7Xx5vkaBANhrm1pDy4ahfm3HjW29Anh2
GzT4TJ60865LKtDgmrdJetEf7NM0Wpe/saDhbHRWJPuRAHSKtlCT52h4MrDo
puQuvPcu/MHzKKMh9la0R89uGpJnW0z8U06Dlx2l+XQPDelOoZbHX9OgWlb2
zNqBhtmPz2WeqaQhPnF/7SVPGkRWJatkVtPgsyn127xQGp4HfLcV1NOwNErO
Ys49GgzDVVpedtPw5+/TCz49oCFkeP2R2h4avlC8lnu5NLi3Jxu0c2i44vDC
1SyfhsbaI+mjJA0zq+0CovG9Xipc09Lto4HdnHhbtJWGwTSFO+UCGopjxg+2
ttPQIz5fuImmIWmr+6rszzTUtiWkc0fwfp+zrsAY13Ewt4oTx/t7SUjD/yK/
0hAzOFvfYRzjXLsxcc8wDWdSG8OP/qLhBDedpY7zKK4z+hOB9/+Vu3w5lT9o
MG3aWPjwNw1iwm13r+DfBRlXDL2eooEo3HrEYxLzdlDEvW2ahrIj2eu18cnq
E5Ea/EPDf2oSY8zvEGPh1b+Z5/8BEmCLcQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.92},
  PlotRange->{{0, 1}, {0.9139286741944878, 0.9999999937376977}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5190818243996897`*^9, 3.519081893690927*^9, 
  3.519570426991427*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "approx", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"approx", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"EconomizedRationalApproximation", "[", 
      RowBox[{
       RowBox[{"residual", "[", "x", "]"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", 
         RowBox[{"{", " ", 
          RowBox[{"0", ",", " ", "1"}], " ", "}"}], ",", " ", "2", ",", " ", 
         "1"}], " ", "}"}]}], "]"}], " ", "//", " ", "FullSimplify"}], " ", "//",
     " ", "Evaluate"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"126", " ", "+", " ", "approx"}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], "  ", "//", " ", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"residual", "[", "x", "]"}], "-", " ", "approx"}], ")"}], " ", 
   ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], " ", "}"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.51732419335804*^9, 3.517324233667088*^9}, {
   3.517324271698204*^9, 3.517324319683592*^9}, {3.5173310118113337`*^9, 
   3.517331022278013*^9}, {3.5173325292780724`*^9, 3.517332546330905*^9}, {
   3.51733262808517*^9, 3.517332628794752*^9}, {3.517599100347446*^9, 
   3.5175991655772142`*^9}, {3.5175992711222343`*^9, 
   3.5175992712564087`*^9}, {3.517604539582444*^9, 3.5176045914088078`*^9}, {
   3.517604672170946*^9, 3.517604674831794*^9}, {3.5176047358873796`*^9, 
   3.5176047385840893`*^9}, {3.517605267577684*^9, 3.517605312688744*^9}, 
   3.5176054395260563`*^9, 3.517676714764534*^9, {3.519066181931835*^9, 
   3.519066220187582*^9}, {3.519066318734928*^9, 3.519066319492087*^9}, {
   3.519066363359584*^9, 3.519066365349558*^9}, {3.519066436536337*^9, 
   3.519066471401211*^9}, {3.5190665844306803`*^9, 3.519066700774177*^9}, {
   3.5190676995658417`*^9, 3.519067726228642*^9}, {3.519067783639661*^9, 
   3.519067784086405*^9}, {3.519067926291801*^9, 3.519067972658464*^9}, {
   3.51906939292962*^9, 3.519069479542513*^9}, {3.5190818517322617`*^9, 
   3.51908186047538*^9}, 3.519081914475892*^9, {3.519081952792796*^9, 
   3.51908196777945*^9}, 3.519082168932179*^9}],

Cell[BoxData[
 RowBox[{"121.27408384354986194418235653616373194986`14.115459063154958", "+", 
  FractionBox["27.72802338968109763318198810783757358542`12.368046307771888", 
   
   RowBox[{"4.84252568892855574935929971220272175743`12.368046307771879", "-", 
    RowBox[{
    "0.99999999999999999999999999999999999999`12.368046307771888", " ", 
     "x"}]}]], "-", 
  RowBox[{
  "1.49012907173427359585695086181761669065`14.662178937980967", " ", 
   "x"}]}]], "Output",
 CellChangeTimes->{{3.519081959406262*^9, 3.519081968588502*^9}, 
   3.519082011982592*^9, 3.519082170070991*^9, 3.519083006960003*^9, {
   3.5195704210041533`*^9, 3.519570429749352*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd2Hc8VW8cB/B7Ly4RspLRIKRflKZSnmMlkkKyihTKSkiSzJLQ0JBo2KmU
lBXFOchqmCXZyi4ys67L7/n2T73er8/3+T7POec545I5ftrEgUGj0VzxP/D/
Xof+uqKBQ4gW5BIvc4tFcmpLundIbCFoNL5qHwMWuTk+5mGWhA721TkGk0Ua
VDVmPpIwxd4j9erCLGluP1V4W8KeoAV9eeniNEO2bbiifV3CC+cJz6z2T5EJ
YgdCIyRCcP5m9Ln6OBnMk7UmXCIK5xl0f+s+8r89t8Iy3cGd6WI/esn6y6cH
WirANJXlDr2kHIfS8/Xed7HdJX3ceshydsr6r/XR2GZ7LEO7yMXj0VtXXovF
/sm1/24HGdPmq50zH4ftJ1asV0dqSlumtB+Kx354ScillvxlpcrFkw7ObnKR
riFXDJ63S1dOwO6fGkv/RJ522iZPawXrqJZ3l5LC9hlPH29PgvVZ9F16SVpY
JmaMjKbA8RXHvypGwy2mvEmSj7EHs3RWvEehNjwOB7XB3WRYRCnKsjstmRsF
9hEasalAAm7qly+opmLvMtCf+ozKLjZZMf2fYMte1B//gja9EGJK86Rhh5Z6
HWtHH9aX2VapgCX1XzM6kO1rn3cBluAby3cnd6DruR3uP9LAr7/t8OhE/UXp
LamGz7Hf3z3/4geKa9B/vfHOC+yQBguRbsS3EHxkz4oMbDkRt+R+FONkbqOk
C3708Uh/P5L7qmQr5Aa+sXpeaQChZ412LYVgS2XLnAGU/yw65836V9iGH86U
/EJDBwcLDKrBXbam1YPo0NN7n87wZ2LXGZSbjaCH1hf3nZABpz+75DWCfgqf
qrLYih2UJid9ewSd9teqUbcG6z1v/zyCwk2G6rnTob7/6nONUVQ4p9X8YF8W
zm2Xe8iMIXnjP/3vr2ZjW9sKVo4jycA9aicTsWlPud26xtGS9ISrvG8gbzqW
PD+OZnkOrjf+CXY5d3vLBKotenOmfXsO7G/ZkLgJ5KsSPD/dgx1UqVvm/BdV
C4qKrtd4g32GT71nEr1XP+VQdwib1sd7lzWJ8lzKc71cIJ9mlwlNoeQKH8t3
0eBkZpb6FPIJbIvTG4L6+/fe3ZlCssOpa+3u52GTNtHbp9G56h1EzEQ+9gGH
YYcZJLA+p+cDz1vs1Ikj3jMo5brKNZY0eL1HWugMqtu3pslmN9jbpSd1Bq37
JHpGPho7iHe6tWcGdVQMp2aqvsO+wOywnkXea1wMuw3ewf2xxsR1Fi2+0jsu
Zgs+IpXqO4t26LZpnA8Db88diZ5Fd0o/NhNN4LV6wtWzaE/xY4Eq3wLcL8n2
zjYWal8lkzN/A6zoJKnNQl5BDw+rJGPTbq69dICFEok7T+98gpyLb/YkC7EK
g7SspAux93YE3GOhjLeHvfsKwauJ0REW0pVslJaox6bpetxnsVDreZP3e3sh
J5ECcw4t2qG/5KUAiXPT7h7JOWT3Zlua11HsoLhepvYcEs8WaqfTKWzHNa3X
59CRayzT7qXYtHXCnvfmUJJ9z6dyJchDL/YmzCElsfz8qxaQF+10yZpDWt62
d8VeQT7I1fttDoXt37t4ugysJOLZMYeqFLZcam4B621t65tDL35fyqvhKMK+
s2A0PYe2PTRPjdqATbuY8EqcjSzDPv+4rAYu1FNdyUZ+XprLz+2G+sSoRwps
VLxvXZTlYfAzm0Vb2Wgfez54xRWoX/XyqBEbHbNJtX7aDvlYxdJgNgrZKxUb
OwA5SUsIZaPUbTe/RkxAbj+z6BobDQr4GpziLca5kEdQNBt5U4Y7Nm3DDmI4
zTxjo9jnJV6rNSFvjox4yUYF91Rfie6DfJiDnclGdHeZNVPHwPaSoe/Y6Nqq
v6IF16H+z9B/n9jo5WJno/QY8C7Xymo2qptuvxqXDPWvS/fUs9HSukpGcD74
2N7B72y0o1AdeZaCqftCrWx05FnmebsaGB/OJ9HBRonBD0d294Cjo6q72aj0
lJCS6gjU/6rx62OjXsvQk4oscJ0H/y82Utrk3s4rVAL364Zvf9ho/4oeiTkp
sIybwCgbefBaHRpSALtbrh1no9yf2p9rdmHTai5wT7HRN73g0et7IN/WVjLN
RpMvyaX7TMDx6sdn8frF5nbyWkP9jfQeFhupXthxrPIk5JfVDdlsZPHDOzTU
E3Lu+Zh5NvLZk/1cxx98a6FygY1i0kdrGWFQn2LSRptHeSIbJotug/O4v9Hn
0ffzrlKBj6Beb0MWYx5NdzzTUH8Krmry4phHy3T7HFiZUF8gLsU5j7a/kLua
XwgOn3mMbSF8/NW5Sqh/GinGNY98fOIbtn4Bh/5ywo5pb50dbwNHSyZj5+tI
rsrsB2upFGM3p5nvdh8HT+wsxZ5dctd5/Tz0F9//AlvyXH3kIM97nIucO4+t
1iaYkybyHu7XinXYVtqGzY4rwDIH3uP1+D6LWFBYC/WzKzSw7wtWyvVshnzL
niR8PG/Pcu1NRmDl7wP4eJtbtE4f04d64udS7FnNoKiVpuCKs2vx+ZF8Wpjf
ZgP1ksky+PztFGC1P3ACR/ou4PN9xGs7p5UX1Pstfo+vh1/z2bXLAiHf5OQ6
h/dz6siZqCiwaqn7DBu1Ll4faxIP9bJdn/D1n/N0IZekgfkE+CfZSJ3o5blO
QT27UnOMjWwer15v8BHym+e3jrBRAN+xg4sawGrnBPF+IxtbHl3+Bf5633uA
jdrVJd5r/4Xx6AcH3q/zyWb9dFopzt/mnMP7GbnXbQoQK4X9ry+C9zvFU1Hh
rQF5S5fUFzbqdOMc2mIAjrXtqGEjWoOm8PghqJ8eDP/MRhqJBUdOu0BucDaq
jI2KdmSOnoyGXJsnOBePjx9eqpAIuWZ5AL5/aUzlXd3PwSxRe3x/a9Y/CbUt
hnrOxz2P2ajE+ZGU5SDkX43L77BR1oCLi80k5JeWHopkoxRHtXd2tDKce3LX
RLDR5RONVm6i2EGySSH4+aN3XOj+pV2QDytMn2KjGsvLy15eA0d/5NPG6/t+
0DErGup3Oh9UZ6NX5rJ5eQmQ53NdUWWj24co8/fZkA/aZa5jIzPjmejvreBs
BSkRfL30TolxKJfj+neLNdrx87ZipwOPKnbQibOGjXOI1OXN4dcEzzzZUzuH
4nWemC47BF4TxyiZQ8c1ftxR9ofxdlujUuZQv+ohYYsqyH01Np6YQ38V1AXT
T1XAfl543sJC6KdWRYQPeLw4qY6FQh/pBTpeAi+pDqlgoaWipsOrY7FpPBx8
WSy0je5Sc78UvD1JJpyFfFpiIsOkKrGDii5vZKG5yAlB+w/gQ9axZ2aRjsFs
heZX8C/TZSdn0TUmLWhlB3ZQTVSI1Sxa7s830jwB+Uclec1ZhJxla41XfcD+
fC6MfxYF6hjdJM5hB33U6UmaQYyZ50uk5D/C++SuQ9E0kqrSGic2fIT32eIn
mdNoS2JTg/0OyIP6mlKmkYM+94OXhpBfnBMJn0aVscfltbwhZ3G0GE2jSDUJ
NacKyFdeo9qmkLRfqN0bp0/YOTvVhibRtgXb3IMvP+P6+cr0ngn0OWRLdfl/
NTif/H3KeQStvPl75tmfWui3wWW0B/2e6mhvUKnHXrZkdvk3lPLr3UeBG1+w
a0mzTUmkwPInw93dX+F7Pe6PbjN5zSnnRILcN8i7nPj6yUmN592OgY3Y23Kv
xI+SXptKs5e+/44ttf+M6yR5YsuqhFuV2EGrVq4LmiQttvldXVwNFh79fmeS
3Km25TijCeopr6XvJkmGVorgnz9gee5li6bISOMQ5zLJJtjP5crJU2Sau84q
L0/wTQ7Hmmmy42Xp1TqZZlzf9lEP/56pHeIc3LQGO2jp++GlLLJIafe+KCXI
rVdcXcMiE9LKFpurQr7+R5weizyeWn69dR/4VfWOCBbZ+6gysu8cOIZflW+O
HLr2+Q67Ciwvu4KTTbZ/Wjxh8wX6JdVqi7DJal5D06LvkDtwWMuyyZdhVaKX
uiAXanHSYJPuIdV3eWYgp8UOXmCTExdq74nIteDc9sbNETbJcv76YK0vOF5T
vnaeNN1mfWt9IPh3UXnrPPmC3hu6OQRc8+rIwDxpEzPloX4DO8iv2oGxQBaX
SeoZJ4Glzw1uXiCvrDo24fMRbL2tImqBFPk2tK9SshV7w9lKBRrlmuitVbUS
rB95WIlGlbouqNbLYWtcudu/kUZ5cwitbl3fCuuzHtlFo5pUtswMa0F+4UGu
CY2Kv+r7WNwF3NUu5U+j1mlyz594B/WW+9SqaNSrtOdrvhdhF/2tPlVPo7aI
Ghnrl4N3tcQ20qhdfTEp6+pgfvvQlh80av/1/wxGemF8QzvnJI3ybDKMOS/c
hnMfmyFpOjWpNVb8Sxy7aEjvqQyduvAi+vfh5eB7UYcV6FRIYAdCitgaZbuf
b6BT0fIePQwE419++qNJp/I9ojZdc4L8ygFOBzqFWrYfYbtB7qes40SnSnTa
Lrt5Qf5O1+8UnfoortBkFAj+K9Nwlk61Fr4JFLsL9fRda0PpFI235XNcEcxv
ttjyMZ3akyRz8rV4O64/IFbZRqe2xAgolEu3w/f73JdOOrXqBqu7WQZc//N7
F52aPd9wnFMJHJdaNUCn0o3Dbcw12uF7pP34XzolQh89xHaEfg45anwMijbV
JirsBrnx1wZ+BjU4+PGLwhnsou9NTksYVPn3FGMjf8jbbvuJMajzrywMk29B
viZq30oG1XG0SEf/LfRrvnt3I4P6fCidw4aC+h5PcjODyjO4X+JZCjlzVedW
BnVb1UvjYTWM397Dr8agdgsq7hr+CfWWk8JaDGoTlxiLox+8bANDh0GtYNHf
LhuC8Z7Kv3YzqOneFlWtKXD32RR9BvWcjNx8l68D97stXGLEoGKy/caeLemA
94HpORMGFZLm9JoUg5zzoLwpg7KJ1t7QvxJbY7u/izmDEnKb+m/nFsgLHBOs
GdS8XffAgR0d8Pv8hNRRBvXLsu6pPYJ+B8QjbRlU6e7nCjf0oF4uwtaOQZ1b
flT2xxHoFxnz3JFBHTdSMWs9BuO5a3ucGNT+S/SIxhPgjpllLgxKYSB5tMod
+iWvcj7FoL5m9xe9DYF+kXFvPBhUUV/+RE445AKG+Z74+CSvKr6+AebuzTrD
oC4GKd98EgPzRX+5c5ZBqezzPBr1Avr/vTjvw6CkA7XvRL6GfiznivMMijtT
tCIiF8aLbAv3ZVDt4m/WBxdBfZfH1AUG9XFv2HG/MujX3Jnsx6By/C2jz32E
8Yc36PszqGtdLPaprzD+zsmAAAbls7Rqo1PTv/kPCAQyKDv9OAf7dnCRyD3s
/X6nY492Qf3OrGVBDEotQ6PKqh/mU1W+g63wU4huNgT9fwYxg/H5F+vaYjwG
dkv3xO73vfxwzxz0Y1/fehGff7N1jom0Tpy7alzDth0RYazk6ITnZ2UL9rfw
uQcPuSAvkJe7xKAMVvdsleTBpombO2AXFVTV3OOFvPdwPPY2s1wnMX5sDbfN
9dgvhuM47ghCv7FWNrZs+JVHS4ShPtdcNgTvJ1l31RuiYM5kAlugwKKOTxws
Tx7CDjmk6RIuAf1OPLXHnvmzlotbGuYXPeaK7RYmHB+yAvKAPnC3DGs7Qwby
abUT2FbvuuoDV8P8X60ssGtNP7uy5SF31tXG1v2TzbygCLkQWwG74MqjhOn/
IJcL4MDeJBOq5q0M/ecrv+P1P3nr9nV8wz+3pmJLm5q7eWyC8SH5p7BvDxE8
w1tg/WPWytg8VxSTXFWh/uWHHnw+A1YJ7fq1A+ql56KxJ/JnGk7ugjx1QgPb
+eDP0z0I8pzMLny9Ogc/LrLThDxvayD2odCs5E5tsJS/CPbHlQ/VbXSh3igs
AV9/jfyQxhY9mP+DmQK20uAhvkZDyG12SuP9k2e6j4owgvFNpYF4v2kXap1B
ByHXq2jG+9HqxoaWxxYw3mXLObxfeyflIy0Pw/loeZSH97PnUWltfhvIs/xH
8X4PV1n03MsOxm+P08f3g2jsgo3iiX/rb3PE90sCfVK41RGscSvwHJ6//qev
thvMr2EC91evV8Fe4fPQv03JFN+fnm2Z82UXwCns9e4Mir0b/4ANgHp9RD+N
+4tHS/64BN7Hf80Vrz//9K+MG7CeVw1qJxlUtcyJOLtb4OpldQ74eCKOmIhH
gQ9W2tjj/of13wbE/rveLrbH8PrYshGGKWDbnDkrfL5OSCD6E6jPMN5vyaDe
VAuOZT+D+dLM7+HnWXX8nKV0BuR+8YL4ecfW/Lb2dz6M3ygeu49BhaV9bosr
gHr7mcd78XpF3t8yoaBeSztND/fvzpjJLwXv4o/Fz1+r0PAPYTVwvEZnBXfh
8/En0H9XPfRjRzbuYFAe5t4bR75CLiJ0TxX3V7SLNW+G8cK6c5sYVO7HXU4K
PeDV54+uZVAigiM8pbNQH8cKE2VQ9YURV/TZ0I+rbVII709XeWbNArhXw1qQ
QQl/tOJo5vyB64/fFOHFvlzGHhbALrpvpLBAp5aw7o9JrcbWqHDv7qNTtc+2
eiTKQ14c2txNp25a1A4rKILNZT78oFOCuVxDG5Whn3JPZAudEvBw79ujCvmv
9PfVdGpx3+7WMwY/4Ps6oDSLTn2+22k1YwhOndN6Raeu6VxoCjCC+uscb1/Q
Kb6kV9/CD8H8v9Nv4fc1r7VUXfxRsGNgXzSd4vkyUvbpDNSreyj70ClO6kHG
6odgxd/yW+lU8y4dvY44WM/fHjMVOpXxdrDzfiKMr18fuI5OWeWqCws/gfml
Xubg75PX6R1etEzwlO9bfjpl83C1WlsF2FtCrptG5Z1/Xho9Dv7POyCCRt2Y
OmhtMgmWXvIghEbZnZ37yz8D822RyAig4eM3XHN5HvJG/0JPGuXgOBx+ZtFP
vL767DNWNErYfPMBo5XgMo49ijTKZcu7pkUG2LQV5goXFsii2oYXeYZgl0/B
pxZIsVMjgSeNsIMSllYdXSCpx/IKZYcgD0ebdfD3ovhNzyBbMM8GtHiBfDdj
zzd1FuoFA4xj50k+SkC9OwHcHBr6hE0+1z+eQE6CP97iussityjJIGIGXCaU
HMIiSYHOFooF/VptN3vh7/Mv1uLFtC6cr/BTOsgiJ6wtb7znxabZLw1ewiKR
p5Ff5QrITU+8CZsla+8ji3pdsNrA2dMz5N/fkkt6o6H+tLuq+BSZc3APR5RO
N3w/Vh08OkoG6l2Oz+4Fs1SjX/aSMm17vydf7sF2bVW494VUUw2JktjUi91v
fHt7KTqyomaG/gWsXxpn04X+frz+0z24D/vgXRXvURTDaeNlItcPf3/Lrg6Y
RiLtOUmMUuygWPuxX/PoxmJ//zfl4MbEo1wLiHenjoXrB6hPLSRXLiBGTD3/
t2rIuTaamC6gMeNhn2dN4Bz7TwULqLZM8YDRMLZGbo/PbhpxLf0B65HkADbD
6jU/neBpPf7NZDl4k/ofCToRwvvfa+5V2DTHy7IKdOLCybwTHvLYQQrCHohO
OMs01OmoQH1aXoobndC7K/D09+4B+N7gPFxFJ7j8g013eED9QtXTSwwie3Rw
hjoD9T7k3HUGYX/CIl7X+1992Z4YBlF6YMOvgxeg/uGfkhcMIkS2LdDtMjjd
a18Dg+Cs3P48ORbGy+QnyXEQDJERukAJrE/zpEABB5F55fCTqFKod6zfUMZB
HJ8r3ydVAf3lRnSrOYiSnkf3FD/D+GQxs04O4mKegbL2N8gbKiY5OAm6zRML
n19gtSxVfU6C9swm46fwL9zvKf+JT5xE+WCjW7zYL3j/dX/+wklcUzFef2QZ
5H0D8q2chHiednrD8l/wPNF6OchJrK9QfF6piF1E+C/l5yKO9IylvkRQ35mi
asBFyK51PeGiCfXeSm9NuIh+1x55RR3of/y3shUXcWaiMSVRH8Y/re135CIi
OAqTokxhvHNw2mUuIl/mSpyvM+RDaQcKuIgAB5qN6inw2t3tJVyEzrPzyydO
Q7+LEtYfuIhaFdeHp87CfEdU1n3D8xHG922DIBcx5R7mIpbaSEXrRkMeqP96
OZNoTYw6xBELZo/tXM0kknr4xYoewPxz9TmKTEL5FC1qRyLkuRPem5mEjl/P
LaUXkG8cVdJjEp73M64Ll0D+R9/SjUm8mbt/paQU5ns0/NaTSczZhAZ7VsB6
207wnWMSV1Zbn63/DLl+hE8gk3j4gtf6diP0m+4OjmQSPwQmzbSaIQ83t7jD
JBQ8fhiNtULuK7X8HpN4tTVPx+Qn9Ptr5hHHJMpIByXhIahf2aj1gknwyhgr
lAzDet4KRmQwCaNLu1Z5joEXxKlMJtG8R0S0fgrGq5qN5TGJP7VFrFuM39gt
5IVSJrF584u/mlzYGi5pGyqYhM/de8Oj3JDb/6z9wCQ4rNy6jPmxacF/m6uZ
xLIuqU9CyyB3+873nUlY7+YuK5YEXzVXbMbn88kY6bEc+u2J29jKJJRcP2TW
yYJJgreTSXhUZ78IlgfP+TT9YBK5KgmpGxVhfPu2u11MQvOv9/1byuD97Lpe
JhFqfjxKUwXm39Bt0s8kPucb3hjdBOMPLi4aYBJC0jvCErdiBzXYS/xmEmYB
cheNt0P+odVmkEk86BT0o+8E77C7OcQkOrVYZ1+rg5X60v8wCWfueichbegf
lfxihElkOBXaFe+GfhP510eZxMSnp9YeelD/OtxqjEmorY8ylzEAv6KLjDOJ
wJuBxnWGUF+/5A126ZizQbARePSx7gS+PofMdm88CMfTmVGMfeCNJvHjEORu
yxX/MokoCeUdtyygn23beeymC8s2ax6G9fi052KvaOdQHrWG3F2wA9tOY1gh
0Rb6zdmMYT9Nal5lbAf1n96NYA9xlkvST0D/S6LN2JtOvhZ97QguM3+J7fPh
ocAxFxiv7HUKu3BdGI+QG/Q/YCGOve2reNVtd8hdv2bh9b7ye3JL9AyMX1Wg
jr1WXtUs+izMt42eg483qapccpkP5N53JbClvc06Yn2h32NnF3y+7q7oTZby
Bwd7puHzKVBx1vFRIIwvjfuGz3fYaS7llRdhvMyP4WEmQV92dzQhBHKDdZP4
+vgWyeXKXoH1/HYbwNdvwjHbNyUc+j179AFf31NCOoTCNcjln0Xj69+b/4Xj
6Y1/5+ei0S8mYXvcrnLtLXCl9BTePyZZF42Vo6F/oBkv3l+fDgsvzYiB+S82
eXfj+50zqVnlAfjJz5qfTEL1ULHdlgSYz9hwTwc+H2wjxdwkGF9+y6GNSfyX
2jmo+hhyJOvego9/auHszjSY78egfiOTiI6PVCt8Af2+LZJoYBKCevillgE+
tv1rPZNgxKIwrex/+y9SAN9ffWr+9/VJyAcibr3H6+9afPRTEVg+lirC9/PV
h6sN34M3ajcV4vuh9d0Lo8p/+2VDzRsmkRkwS5rXw3qGKt+nMYl1ayIuNX2F
9UyIGT5hEik1EnqHG//tlyvFyUzi3qoddTat0I8Z5/KQSfiVnOty6AXfGCm5
xiT+OnM/7ev/lxclhzEJN5F7rk6/od+SXadDmMQx+9y/riPQ7wi77AKT0GX+
5faahfkN5tyd8P2511PposAgfC/fy9BgEgnFgnxqQthBx/MK1JiEyo70gVGR
Qfj7cWrGFiaxX7E/9ZgE5M6xuvh5HMG0kdGUG4TnR9Y2ASbB+V5/KU0Ncl9r
gQYu4o5a38SbXZB/p52uwu+fzJAvpwno93FTdhkXoZFI3ezQgfrx0d85XIR/
4FY+6gDkgU8F7nIRkztlaAEOMD58u+B+LuJyFtm+1RF8Qi9Dh4sQXXekcMgZ
6osTN+3kIjZL3vO1dod+L9t/ruEi3KcX/911AfL1Gn0LnMRA9vQA6yaM3xp0
Ko2TaFWu/XK+AI4/8HRbPwcR/1vIn4OC8TMWca34ff7soML1YnD0uHYtBzEg
1+iTUA79bCd3veEgJqXal1fUwnhxve5LHIQQ7+BJ0R6o78mbFucgdHu5517y
D+H617cK/mMQi1L0H29fMgS/V4+NSjKIz8eu7i8Rxg4KfsbDxyAOtgkkNohD
faZ5+y86YftVTHdOBruoSkXuGf4eKll9U38b5A4Ni1bRiVdxhFy3DbjB/dzQ
Ahr3Hec+dgz63f7DLl9A28yf/G6zg1xPdU/CAnonKJjV6Aj5/gcyJguoPKhd
85Mn+H7FaOY8ajnufzQzFLz2SKcjGzHXvLsf9BL8JmYmZRbpc5wOYL+CfjNF
d7xn0bUO2eO+WZBfUR7cM4uEYiLWeuVB3kE0Dswg6UVWeSdLwM7qt/+bQZt+
Tzfs/wb2F78QP4WsM7YJLZ8H/9clZDaBcq2mBWppf7DDVAIlJ5AA8+3iSxzY
QZ9vx7aPo6Ij6jwDPJAfrv/qMI5keXUWskUgv9Z51H0M9dobD+1bC9Ze8ejs
CHKTdP3gZwr1okqvAvpReZlyxQZzsOTaJWN9aKXHcOlPSzBnc6F9H6qt8CzS
OwoOLKLp9aJNZ8+/EXUGh/hIMLvRVE3o4xeB4MHO80XtKOhyYnBrGljO5Id8
OeI/x733WDq4wGm+5D2673hKuDcDbOsfbF2Msgx2JA9n//NZR7F81CtUV8qg
wJ0Sm5WjkUEcjWftl3/HL+ehXUwufXP0xlkWmKFyLb2NTH5aZjbLBivZ/FnU
QarcX7cykDYM3++ZTZs7SX3/qYwwLrC7ffadH6SfdmTdA0Gw4MaPh7vJnzWk
aMlq8PvPZfy/yPT+5Q8E9mEHWUS+ZY+RYY8u27bvhzwhvMBlnLQ3GZJ/aQyu
ld3SPE5KFxS8MjSH+sObLudNkBGRh8uvHQdfr8rxnSQdt8WO8p4H23uEi82S
siGietyp4PHtx77QqPntfvyNT7E13s/NCtGppqGu+tTnkP9I+WKEfy+bZ1nr
vgbvXqNVQ6cW/jM5c7kAnPhAvIZBtdZFxnF8Aec+KG7mpPJCp+y+NAzD+9vM
cjkXFbXz6Nrk77DeccFNtlyUweP12VrtkCdxPOnlot76VH0IHoD5+dKSJplU
tPLWSONByJfx6+7kpjx+PjSVGf7XP2BdEDeluM+1o2gC/G5pIS8PxUn/mnJz
Cuo/BDsZ8VCdOTudbWchzwyxiOahCpyTN6iwoX+PZkQrD3VvJd/fhQXw95Z5
2UXU/+21oE4=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {-0.00004794445292699567, 0.00004379411609389816}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.519081959406262*^9, 3.519081968588502*^9}, 
   3.519082011982592*^9, 3.519082170070991*^9, 3.519083006960003*^9, {
   3.5195704210041533`*^9, 3.519570429816128*^9}}]
}, Open  ]],

Cell["\<\
Add this in to be more accurate for integer powers at the expensive of \
overall accuracy ...\
\>", "Text",
 CellChangeTimes->{{3.519070334987591*^9, 3.519070360642152*^9}, {
  3.5195703946517057`*^9, 3.519570399295747*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"1", " ", "-", " ", "approx"}], " ", "/.", " ", 
  RowBox[{"x", " ", "\[Rule]", " ", "0"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"%", " ", "+", " ", 
    RowBox[{"(", 
     RowBox[{"126", " ", "+", " ", "approx"}], ")"}]}], " ", "//", " ", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"#", ",", "17"}], "]"}], "&"}]}], " ", "//", " ", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.5190703186535397`*^9, 3.5190703249626513`*^9}, {
  3.519070371158362*^9, 3.5190704403244267`*^9}, {3.5195704180208282`*^9, 
  3.519570456995709*^9}, {3.519570491808845*^9, 3.519570491957678*^9}}],

Cell[BoxData[
 RowBox[{"1", "-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"96", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "16"}], "+", 
         RowBox[{"Log", "[", "2", "]"}]}], ")"}], " ", 
       RowBox[{"Log", "[", "2", "]"}]}]}], ")"}], "2"], 
   RowBox[{"32", " ", 
    SqrtBox["2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"12", "+", 
       RowBox[{"Log", "[", "2", "]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.5195704411718807`*^9, 3.5195704574530497`*^9}, 
   3.519570492500141*^9}],

Cell[BoxData[
 RowBox[{"121.27405755366965833343835512821308140575`14.115459035285124", "+", 
  FractionBox["27.72802338968109763318198810783757358521`12.368046374763965", 
   
   RowBox[{"4.84252568892855574935929971220272175743`12.368046374763965", "-", 
    RowBox[{
    "0.99999999999999999999999999999999999999`12.368046374763965", " ", 
     "x"}]}]], "-", 
  RowBox[{
  "1.49012907173427359585695086181761669065`14.662178925449322", " ", 
   "x"}]}]], "Output",
 CellChangeTimes->{{3.5195704411718807`*^9, 3.5195704574530497`*^9}, 
   3.5195704925039587`*^9}]
}, Open  ]],

Cell["Even faster, cheaper, and less accurate ...", "Text",
 CellChangeTimes->{{3.519083210100173*^9, 3.519083214805593*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"residual", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", " ", ",", "1"}], " ", "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"126", " ", "+", " ", "%"}], " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.5190832182573338`*^9, 3.51908324417552*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], "+", 
  FractionBox["1", 
   RowBox[{"Log", "[", "2", "]"}]]}]], "Output",
 CellChangeTimes->{{3.519083224715571*^9, 3.5190832445281143`*^9}}],

Cell[BoxData["126.94269504088896340735992468100189213743`17."], "Output",
 CellChangeTimes->{{3.519083224715571*^9, 3.519083244532493*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Fast LDA Functions", "Section",
 CellChangeTimes->{{3.517680796366453*^9, 3.517680797934868*^9}}],

Cell[CellGroupData[{

Cell["Digamma", "Subsection",
 CellChangeTimes->{{3.517681014789214*^9, 3.517681015395154*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "psi", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"psi", "[", 
   RowBox[{"x_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Log", "[", "x", "]"}], " ", "-", " ", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"2", "x"}], ")"}]}], " ", "-", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"BernoulliB", "[", 
       RowBox[{"2", "k"}], "]"}], " ", "/", " ", 
      RowBox[{"(", 
       RowBox[{"2", " ", "k", " ", 
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"2", " ", "k"}], ")"}]}]}], ")"}]}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"k", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megapsi", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"megapsi", "[", 
    RowBox[{"x_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"psi", "[", 
     RowBox[{
      RowBox[{"x", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", 
    " ", 
    RowBox[{"1", " ", "/", " ", "x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultrapsi", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ultrapsi", "[", 
    RowBox[{"x_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"megapsi", "[", 
     RowBox[{
      RowBox[{"x", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", 
    " ", 
    RowBox[{"1", " ", "/", " ", "x"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.517680443975841*^9, 3.5176805185140657`*^9}, {
  3.5176806331982307`*^9, 3.517680672812971*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ultrapsi", "[", 
  RowBox[{"z", ",", " ", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "-", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "+", " ", "z"}], "]"}]}], " ", "//", " ", 
  "Together"}]}], "Input",
 CellChangeTimes->{{3.519434618298521*^9, 3.5194346266070757`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "z"]}], "-", 
  FractionBox["1", 
   RowBox[{"1", "+", "z"}]], "-", 
  FractionBox["1", 
   RowBox[{"12", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", "z"}], ")"}], "2"]}]], "-", 
  FractionBox["1", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "z"}], ")"}]}]], "+", 
  RowBox[{"Log", "[", 
   RowBox[{"2", "+", "z"}], "]"}]}]], "Output",
 CellChangeTimes->{3.519434626985887*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "48"}], "-", 
   RowBox[{"157", " ", "z"}], "-", 
   RowBox[{"127", " ", 
    SuperscriptBox["z", "2"]}], "-", 
   RowBox[{"30", " ", 
    SuperscriptBox["z", "3"]}]}], 
  RowBox[{"12", " ", "z", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "z"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "z"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.5194346269879103`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"PolyGamma", "[", "z", "]"}], " ", "-", " ", 
     RowBox[{"ultrapsi", "[", 
      RowBox[{"z", ",", " ", "1"}], "]"}]}], ")"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"z", ",", " ", "0.01", ",", " ", "10"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.517680138486364*^9, 3.517680160506379*^9}, {
  3.5176802056877117`*^9, 3.517680205987689*^9}, {3.517680533868309*^9, 
  3.517680539634348*^9}, {3.51768062756623*^9, 3.517680630297439*^9}, {
  3.517680684895348*^9, 3.517680685861163*^9}, {3.517680961156538*^9, 
  3.517680992029477*^9}, {3.517681250859063*^9, 3.517681388023162*^9}, {
  3.517681424096014*^9, 3.517681446990876*^9}, {3.517681483913423*^9, 
  3.5176815130081673`*^9}, {3.519434635997414*^9, 3.519434652923935*^9}, {
  3.5194346836903*^9, 3.519434781108862*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Hk8lNsfB/AHSfZ17MtkCYWQurbOGUQltyaRkgqJEElZruunUSSyla66
Y7mTtJfcUNYMEtliJEtyZW2QXXZ+58wf83pe79fn+32+5znzPGez+wX7s9wE
QYyiH772LX/NXgmLggRxLMKVAmDRS/MLJyrikGfTz0oCWPuqSfHbtWTk8dKy
od0w0237sFldKjJZyyNxN3zkvlAW/vw+ctPm4O/m8MiHIntT4xzkI/yyqWaw
3Ub5XdeTEmSW0KyRCZQ46XP30cVS5JcrMuIm0O7Sm4BA0zJI0JQs//xpDCv/
Oagm0PAOmVK0+sgYOoXD9+nzTORPogOKxtCy7YJ2g/x7SFDMZGolf4NyMc0z
W93qkG0M327dCU1dM2u5m5Bp3N/9BXdCZ5PzGV2m9SjftXB6zAjSR/n2xkk1
IF/1GcsxgvJUSGfXNKL1mPxk7DKCiUJOZIe7zZBg6tSIUXfApLbqDxJrrZBg
aHLzPzGA5EqdfyOMPqN6wUSxJAOYm5OSNuKDzNg7bxVsAJtj3AIq25F7e6d1
rA2gmOmqXOC/bag+5s3qgD5MzjTya/FoR/N5/A7q6MNbXg8kk+u7kFtVR3N0
YSE5uNx1DTvZ2jFWF/Z27vM1MPiKvOXm0hldqGc3XslKxU6qmpXThXX6JoEk
927k/LW0Gzpww1JTM33hG5p3eM/xgG3Q3Gb1A+t2L1pPqkGnpzZszhpSNHuB
zMzN/L5XG55Z/xT4oBqZqJ+X1daGcYVZypcXkF11FCTHtGDn1n3BpFPf0X6G
8utc1oLBoikax7T7IEFOb3warwlfdWhFfSvvR/2UEGa3BrQNMrH60IHc+8M8
qUoDDonbcr+aQqZVyl19pgGVD/jSaGoDaH68amuoBowvexmuFoNMyW1UkNGA
57IMg7wPDqK8cl7SWR2Sz5t7znUPoXnOhPyCKizd9LtGzxwy0756pU8VOj08
OfBBZBitt79qpVEVJvZEuN+jIDPYL45kq8IVasUps2xk4vyKk70q7Nhp4xTp
+wNZc8vtvM3w1vqhfcJLbEjoOxTSY8kwJ8knUoI0AolJkXi7YDKsU4kultEf
we+Tl/wZMuSmFOuoeuL8RgD/bjIMpKmL/8ZCdpUxPD2gAh24Fjtdn40i6zoP
VypDWZ4s33znn2g9lJ2HHypCo5TS7KIgZOKj2aZoRUhVa//2LhmZ2Rw95qEI
Y62EqB8/YOcWmGkowqVrwUY9huNo/szJsccKsHvDgVU+wQm0X4F+TgXykMoT
VvPy5CTKxZSCxmVhFHC/s98HmfxcUKFNFhb+Yes2GDyJ1yfyvUQWkifllxWT
kSml8Q2xsnCiu0QvvhKZwWesqCkLE9+s/uWjOQUJatfNIC8Z2Ogd6aE5hUxu
udi1SoLEQ2+DqlXk3syVrT9I0Kj38NopgWlkU/VUFgmmH1W9l6qGTFt7WfKY
BM9bVdXzHkVmiIbAIyQopMS7Y6AY1xcJ87+SgrbNN7juR82g+pJTz0IlIeAN
FjxwG5kibvGHhyQ0ND1DmvsH2XXvDneqJFTI3q29vwSZqHsUqSUJx0KmqVNT
OOcKnu6UgIkqLgyL07P4vFj4w0ICsvy3wz6TOTR/wJasKg4/PFDcH78XmRD1
/SEmDos7+I/sckR2LSV9WBeDDywHPOMCcP1KbMU3MXhZ+u9Ew8e4vjSogC4G
pd9x91yV+oX+H8/9wbJi8Ljwl3C1CWRCaEzBWgTa9x0tSVjB+Yy/mpYItH3b
vjjPP4+eZyjkd0ERaOrWGdygjkz702kTSxjKF3QHBDlj8xNSbsKw26Xfo6Z6
Hp+vScejheDpF5N2vukLkBCzG3QbFIDHIi/ebHuK3GH4xrVBAFKPTn+Eb5Gb
ecLC8wQghZi1kWIhLziYClwVgGSHeUoZ3yKqP3ogjCwA+5ZXjUQvIR9zYse5
88OzBwSV8vYvQSJg3PD8Eh+8Kjl8c9dRZOrdEKMhPsj4WrlU5I6cPD0vzuKD
3b5hHcw/l/D5ayH0jA86xLNTml4i09qllp354J7GGoER8WX0PZUbPmduhOqH
ohbIXdhKR5/QeaGljKtX9hAy4/TO4Ru80PU/sy+aM8jkAgvjEF6YfmEmT09o
BT1P3g0xB14olex+wRwgU+LP3RXhhRtaKENOWci0k3+PXt8A++1XWxN9VlG/
lrpSFA+slOq5Qg5FptBKNC/xQMaXd9teRyMTWTl73HmgizPtWhsD2dVhfwGF
B35x49mh2I7rk8v917hhbQD/7adWa+h+CXS9/3HDnEQS9b3iOsrlwb4YLhhP
/bXsuBXZtedzYCgX9JFofzz8G86fir705oKaqffWBY4gE9GqVDsuyMhQeHU4
FudraQcluGDKi80i/80h0/K2K94noPmg9FC4F0EhaEnsmdvr4F25kQPLD5my
b/xB2Dqg0O0rNS8jow/A130d7DmUmMmiITOf3ISG68CuiNdJi47tE7LMWgMn
E2ZrWhtw/2H1Z7JrIGIn6+lWQy7Ub7S+I38FMKMT/DpWkGk3WewtS2CP/tyc
MA83ygdCxaWWQG2XS4QVP7afkC3XEmjerpOUQ8J2f/3z6yLo7azLjdLDXuBa
vbUIuPQ2zeq7ItNaTHS4FoHll6thsVU4F3nvODoPqraExpjG8aA8ashldA5o
HXTXm0/GTrgw1zUH4oPs2vLuIhOBNhl1c8DhPVlN9yHOb/wt/2wODLh9fKfC
xB5e/ug9BzZmyP/a8AtbRf/n6CywlSzz+OS2Adk7tW1pBrSsc1l6mPCi+1k4
TcJpUMuQi3wJkWnWCxU7pgHTwoD5yxrnd0ozNKdBzjVXEGuP84Lrl0SnQRxf
uWmOL85J/Hf/mwKWouE7FjJwfkCnIHIK5Cv/Uo/n3ohyaQ/Bxklwd/cIX349
NlvuxMo48D8RdTaKhb184/PQOLD5Q7nKoRP7U4ZryziYzbePmBvCvuSb+2gc
2OuUzO7i5kMej9CxHwdCCvHfi4yxt0pef/ET0BZ0S8ofYvd/hf5j4FzeRf/6
K5uQzXXlVEeAxX3HoT+vY/s0couPAPkkk1M6Cdh9LkvrbNDow3UwgY7tIinZ
wwaGqrd0DxVgm51l09lgJTl3jDWCnblBWYYNkv0nfLoc+fH6L/8u9wMUavt5
sbcJIIdFqFsOAfVbESFbDLHVe2R3DoHkhaSYM8bYPjXSWkPgXM3rx9/2YAeT
tosMAbmzC8MtJ7GZb5u7BkEY49q54iTswunmoEFgLkP3vjmDnduR8HoAVGyo
8dUtEcTvw2En634gwnamT1VgR+VHm/QD58bx2oJa7DDVMt1+MP2X9BbwBXty
1Ua6H6hrevYenMI2b6we7gPX9/M6BmgKIf8oPhffBw4kWoG8FOw9S0Ld30Gb
DFPM5Lwwfp+PGqb0gvygyPbYQI5NReJ6wZ1Wy8yuUGx970laL7BPqt4WHo2d
nVTj3wuaNtbblGdi0y4zbXtB7VxbuHULdpReB08vKG0d/XF4lwhyctXibA/I
SpKp8CFEkcPFdKa6QZkKH7/hCTFkY5lChU7ADildMjAUR66lak+1gYvcm6ff
L2G72HL5tYJ1rbYis88SyHbz/jItgB1pHGP9jyRy85aPAU1A8mtbhr2nFO4v
9LWoB5bNlVFWgIR8T7zaohY0zZ+6WMMnjfc/35FVDU6X2Opt78Om9nlGVYHt
VwKM6IUyyKFs4ZsVwCXImnKPJov3t4G/oxwk8vkohh2Xw/uhdKisFCg17F4b
V5NHJowXdYrBaPIBba8RbDJdfOItKJ96ol5VoYDrfUnvC8BEVIHG6zhFnEu0
zOUBjXzx+SgPJXy+xcbsfA3ekpSaRrYr4+fJCn6XC2JD3MePzGMzpKiDOcA1
aL6H8UkF7/eDiy4vQB0rw4dpR8bzZZtMnoHhwuHfVYuxaULmqk+A2j9NbdEa
m5EpU6f3PgKJygm9r2OxCaHO/Gyw7Hup9fAvbOajV5oPwF17g/3FJ1Rxf81o
231gbxJ/Rr0cmyKT+IgBxMZFPIltaji/WDidCVbMvEcfJnH8vnsiHfSYMI54
3eLYwXI4HTB/ay/RSsEmSM970kHUDuv456kca15vTAfC2zbr/pvBsaf783Sg
LN/pX/qcY+HXXunAYmHfNKuGc7/j2X1pQP3XFec7Hzn5Zb+uNLBx9k2lYz3H
qSasNFA3oZ7S0cSpH+iqSAP2w4RRTxvH8Rb304DHl8Igdj+nfjjDNQ3YfJ74
9myQ44rUY2lAi7XF5vwwx/G3qWlgrPGO9MQIp3/yNiUNBFUHvJ2d4vjjG3Ia
OFb1WOXNDKd+Y41sGjCt6IkJmePk2l1iaWCt1O7Y0gLHKvxcaaC3+BqzZInj
CfVFOqgsLNb63wrHDKspOsh+M5UM1jg2QAcUuJ6vtbi+znFW7Hc6+D8J4h4A

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5176801543426237`*^9, 3.517680160789723*^9}, 
   3.5176802062167587`*^9, {3.517680534378935*^9, 3.517680539890581*^9}, {
   3.517680628031897*^9, 3.517680630925671*^9}, 3.517680686223056*^9, {
   3.517680963957456*^9, 3.517680992402375*^9}, {3.5176812573002234`*^9, 
   3.517681388825787*^9}, {3.517681424719343*^9, 3.5176814475201263`*^9}, {
   3.517681484254066*^9, 3.517681513219891*^9}, {3.519434636399971*^9, 
   3.5194346534169197`*^9}, {3.519434687695599*^9, 3.519434735950832*^9}, {
   3.519434767838745*^9, 3.5194347818039618`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["LGamma", "Subsection",
 CellChangeTimes->{{3.517681232930685*^9, 3.517681235563169*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "lgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lgamma", "[", 
    RowBox[{"z_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"z", " ", "-", " ", 
       RowBox[{"1", "/", "2"}]}], ")"}], " ", 
     RowBox[{"Log", "[", "z", "]"}]}], " ", "-", " ", "z", " ", "+", " ", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"2", " ", "Pi"}], "]"}], " ", "/", " ", "2"}], " ", "+", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"BernoulliB", "[", 
        RowBox[{"2", "k"}], "]"}], " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"2", "k", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "k"}], " ", "-", " ", "1"}], ")"}], " ", 
         RowBox[{"z", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "k"}], " ", "-", " ", "1"}], ")"}]}]}], ")"}]}], ",",
       " ", 
      RowBox[{"{", " ", 
       RowBox[{"k", ",", " ", "1", ",", " ", "n"}], " ", "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megalgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"megalgamma", "[", 
   RowBox[{"z_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"lgamma", "[", 
    RowBox[{
     RowBox[{"z", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", " ", 
   RowBox[{"Log", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultralgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ultralgamma", "[", 
   RowBox[{"z_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"megalgamma", "[", 
    RowBox[{
     RowBox[{"z", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", " ", 
   RowBox[{"Log", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "gigalgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gigalgamma", "[", 
   RowBox[{"z_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"ultralgamma", "[", 
    RowBox[{
     RowBox[{"z", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", " ", 
   RowBox[{"Log", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "teralgamma", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"teralgamma", "[", 
   RowBox[{"z_", ",", " ", "n_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"gigalgamma", "[", 
    RowBox[{
     RowBox[{"z", " ", "+", " ", "1"}], ",", " ", "n"}], "]"}], " ", "-", " ", 
   RowBox[{"Log", "[", "z", "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.517688595516787*^9, 3.5176886654785137`*^9}, {
  3.517688790762245*^9, 3.5176888071517344`*^9}, {3.517688849115106*^9, 
  3.517688849395109*^9}, {3.5176889173436203`*^9, 3.517688941458412*^9}, {
  3.5176891356161623`*^9, 3.517689147255398*^9}, {3.517689402724731*^9, 
  3.517689412402665*^9}, {3.517691175931808*^9, 3.517691184466695*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"gigalgamma", "[", 
  RowBox[{"x", ",", " ", "1"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"%", " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.5176888506219873`*^9, 3.517688852327956*^9}, {
  3.5176891588561697`*^9, 3.517689164510721*^9}, {3.517689354049738*^9, 
  3.5176893541544523`*^9}, {3.517689421958027*^9, 3.517689424684102*^9}, {
  3.517690928582004*^9, 3.517690930824304*^9}, {3.517691056024948*^9, 
  3.517691056183524*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "3"}], "-", "x", "+", 
  FractionBox["1", 
   RowBox[{"12", " ", 
    RowBox[{"(", 
     RowBox[{"3", "+", "x"}], ")"}]}]], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "\[Pi]"}], "]"}]}], "-", 
  RowBox[{"Log", "[", "x", "]"}], "-", 
  RowBox[{"Log", "[", 
   RowBox[{"1", "+", "x"}], "]"}], "-", 
  RowBox[{"Log", "[", 
   RowBox[{"2", "+", "x"}], "]"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["5", "2"], "+", "x"}], ")"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"3", "+", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.517688852700344*^9, 3.517688943875949*^9, {3.5176891600608892`*^9, 
   3.5176891649970303`*^9}, 3.517689354601416*^9, 3.5176894249555387`*^9, 
   3.5176909312077627`*^9, 3.517691056510215*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.08106146679532725821967026359438232261`17."}], "-", 
  RowBox[{"1.`17.", " ", "x"}], "+", 
  FractionBox["0.08333333333333333333333333333333333333`17.", 
   RowBox[{"3.`17.", "+", "x"}]], "-", 
  RowBox[{"1.`17.", " ", 
   RowBox[{"Log", "[", "x", "]"}]}], "-", 
  RowBox[{"1.`17.", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1.`17.", "+", "x"}], "]"}]}], "-", 
  RowBox[{"1.`17.", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2.`17.", "+", "x"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2.5`17.", "+", "x"}], ")"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"3.`17.", "+", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.517688852700344*^9, 3.517688943875949*^9, {3.5176891600608892`*^9, 
   3.5176891649970303`*^9}, 3.517689354601416*^9, 3.5176894249555387`*^9, 
   3.5176909312077627`*^9, 3.517691056512694*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"gigalgamma", "[", 
       RowBox[{"z", ",", " ", "1"}], "]"}], " ", "-", " ", 
      RowBox[{"LogGamma", "[", "z", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"(", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{"LogGamma", "[", "z", "]"}]}], ")"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"z", ",", " ", "0.01", ",", " ", "3"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.517688672534514*^9, 3.517688674972147*^9}, {
  3.5176887057414103`*^9, 3.5176887505905027`*^9}, {3.517688810265913*^9, 
  3.517688874233029*^9}, {3.517688953476647*^9, 3.5176889609151087`*^9}, {
  3.517689119400169*^9, 3.5176891195271053`*^9}, {3.517689155616961*^9, 
  3.51768943593504*^9}, {3.517691199806292*^9, 3.5176912222753696`*^9}, {
  3.517694911892391*^9, 3.5176949133911448`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd13c01f8fB3Bu936uCA0Rkj0qI6M09Hnd7FRURkpoWCkNaaCIJGVEKDs7
JCGJFkpZyUiijGtc3MW1R7i/9/f31z2Pc899n/d8vl5X9sylo84EHh4eXV4e
nv9/GlrepPsEQYpVeKdG0AS+eqw0otguGJbH9rt+a5jAGfESWb56IXA6c4Wv
pfAknjTW1yK4HApOzF2zh8Mm8esJRiPtPeFwoJ8wEfxtErcwyl1+VvEIOlvX
Xt+/PIkHHCpbH18ZBReCLMbPuk7ho3KM1KXCx5BV4XBkU/wUfmJOUvVMWjQc
Uv1MUaubwnUy/PW3BsYC/3JKcaPCND40Z3zpo0E8dF8MsJ74Po1b/ri5IKuT
AMe9zlubT03jlRl594IVEsHzi0hYucQMHm8ulGRBSob0l79IU04zuFKr++Dl
s6lwLDm6S5czg3coa61ZoZgJu56XbDlDn8Uj1jbYbE/OhO9ViaIG2BxuuHQ2
yXV9Frzv/vPstdwcXtQaq/ydlA0+h/tplifm8Ie35/fGDj2H7JRC3dnqOXzv
z0p35ZwX0OlGCHJ6OI9PfTxeeFwmHwqyggq+ps3jeTkT06Fx+eCZSPw9UDaP
i/opBHBCXkJ5cpG5w9A8zlEJeVp+7hVINypyvPEF/EiFcn9WbBGYxdlMhAwu
4Iy7uFxjexE8fdBBEV9YwINMrc9MiRUDj2STk5fwP7y0JbBfP6EYHj2t5ovc
9Q+XGOzu7015DfdLzh+/FfoP7+eLGRDPeQOlzmksTHkR9zzKQwt/Vw6E7H01
x/WXcAExMcU3/8rhXJBdPI/lEp75V825S+8dLCtVvnl4dglvd7Kjbal4Bw3d
b+LNgpbw3TdKaTVf3sM+sbfEe9VLOCHpwhBv40ewFxt8s4eyjNd5sibfjVXC
3btyhYtKXDyy8jdLUagKVG+uf9muzcVthL7QIlWrgNHeE5lK4eIDufG/Xc5V
Qb5OxhfiCS6+RDV+v3agCr6/mMheF8bFNS3SAt3bP8MFl+4rl9hcPH6rzRqJ
j9XQHVcfI2TJA+cGK9S9H9YCFHLaGhd44FTXd9cDObXwyzRTJ53LA7ZtnalS
32rBgstn4knkBePqybWfeevAt0QikyTECwqZyrP83nWQ/mmv5IIML1DPPqpI
cq2Hv3sPh8kY88KxAYfDlYbfgculuUaH84JR/9IVMrcJ0toKD1qtJcAoT8fJ
QuFmyBKQsUgWJUD56iKebulmCGYrjvVLEMBi21nTHZRmMD/1U9JJngC3LtX8
HrnTDC3GBa9wHQL8Yj+aOURogZYd8b9srQkQwpDR2UBqBQXRT7shFo0/oP8q
n78NVu+uUMxYtQIWjIKqKpt/Q4HBJf+ClhUwmOieUzr8F1QfGDmY3yeCFb+Y
zLfZv/BWe3l/1wMiVN/88vQXuQtKDcz93cKIkGm98f6Uchd03Wuo840igrPw
D2ctty446XFoMjyRCEOBmvIFI11wRHh09+lXRBg5N5ecRe8G24ivR2p/EYGl
Gxwdw+yF6/YL/WVSJBBPSn/7aKEXjN9GHiiXJoH8nV6Pr0QqzC8L25TJkuDw
4L+oynVU0OeSjhYrkiAvX+dPqSYVclstRmPVSOC4N9s9w4MKL//tnJfcS4Ja
hweht2hU+MZ9r6VoR4L4NItG9V99wPojc31nNAnipMjy5t19IOfesIMcS4In
8Z9uetD64Pz1n+fbnpDgcZSaQv50H8i3J2q7J5AgLEDAd7NoP6jNWOF300jg
d7pGReFYP1Qush3PvyLBGVkIEu/sh+XzoTki9SQ4lTzTubOvHyaM5nWKG0jg
IF6gYUvvB0Kt6y7zRhLYrZH6+2S+H/LlIvICmklgxftPU0RiAC471Wu0t5PA
uK+0V8huAGbCD7VuHyDB1jT1PcTuAVjfG/a+aYEEfBs2ucYPDgDfmsfbFBZJ
MBghGK3OGgAvC/rhG0skSLnFYtj+GwD122HR4jwYrLXNS3gpPghrMmJlzEkY
zAkpLdjYDML2z0vHbghjUH1Lqjy3aRDoWU821sthkDa5iob/HgSxMzenJ+Ux
8HNfXN3WMwgCsMp7oyIGurZ/3ZbZg1AjLn3nnDIGedrxGyxX0SDf7WvY5FYM
IhkiNxdNaRAqvvZJjQ4G9rardC0+02Bb0kOBS0YYfNtF1P5UR4OPMtKy54wx
2Ca5qK7WQgOllQLs0yYYEHqYSgJUGjSFvXpusR+D7LMNojVLNCj0scyWPITB
6MWHM/iuIVhZJvjumhWa3z2+UvXCIZg1FvigeQaDYRee4uS3Q9DWE+5DOIvB
YdO5l6sqhiDDT4rdgiwnMJLFaBwCcddVoxec0Xwia2KzmUMgKcs9Ge2GgVBS
8LVNysOQWt/UlXYRg5Ri4nahlGE4OB/YWO2NwVh31tSm7GFIeayy0scHA8pK
kxKNgmF40PbrnZovBn2OD7SPfBoGM6Wf/pG3MFAQFNKK6RkG4x264Qb+aL9c
xTQkpEfAWXR7kmMQBv8el41uUR4Bnp7qLYvIBz8dL9ijMQKcjSFqT+9hwBZJ
UrOHEbgsZ/SoNhjt12cZ1VTHEThw/2jlhgcYlG7cslkpdQQSlUwrLoZjQDZt
GNmRMwIuXZl3J5Btr17IMSkcgX2jbu+8IjCYrytQPlc5AlM5L/28HmGgd0Nb
KZ86Ag+SBR1PR2EQnt5G+zAyAt/Lrr3uQO5pvJbVyBmBq+WO3uaPMfBXKFMY
46HD7rf6x7dHY/C5RU9eS5YO1iLqLpwYDNYtdffrb6aDOznQwC4WAycV/3RL
TTro/LkeVY1M8q+SvbaPDu183/0eP8HAVNVYpuw0HSyiFJIk4zD4EWwhhafT
IdI3u64/AYOlfJXX1bl0GHJx26GRiIHqT979B4roMDM0a+SDHCpd4mVbSQfe
avVDq5LQeGUbvnv20GFM5PW8dDIGN3rGT8/T6NC8LcXnNHI2sWHWn02HoxWv
ktOQSUduy4cv0iHh0XydVApaD73P57kEA+YbBspIzzAYF36/Wl2OAYdqWkz1
kGV2xGSXbGYAr5KhzxVk/0Dj1qqdDNCsvlz1G7kgR9rNlMKA1oXldr5UtH8/
5pZ+mDCALlwbvhNZT/LF5i4bBoTxvOmJRj6/L6jijAMDSvve3KxATnC1t6Y7
M8B+Ku01HXn+tXDAjBcDiNemBHanofM+6NWxOpoBr9uCDeuRaZ6HLj5NYMCb
bUMDDGSReCXipnQGHKnMkOdPx+AqrUNjaxEDndvwXUPkdIHir0VlDIjVPJjp
iNyqGWq3s5IBXaE1Tt7I2/z23jdqYkBZ+LuvOciOmaJS39sZUO4l4vIJOaJ+
rPhoDwNWxe7LbkX+xKk17aQxQG+DWjANmS2a3uPIZkD8qSbSLPLGvb5eQ1MM
yElcrUjOQPf7rBW/xyIDJB2GBtYj+z5QS51cwYQPNNCXR857he3wEWBCSy4/
RQO581dvA886Joy36nXvQuZbLDt9X4IJc0afxQ2Qd8o9nhWUY4I3OWLaDNnV
9Hx4zGYm9B+OunwE+clFQ3lJTSbwHfjw0Ab5W4xUedpOJrSarzA8gTz9bsZc
hcKEaKEjSSeRFfqaBgtMmPDSPzXaHtmSnOuz3YIJe617Nv/nQLXA1R9smBCV
vuRgh1xsaZet78CEzTljWrbIfd46enXOTHB7m5dlibw6VbDVwoMJs3Ob3h5C
pnwbcm33YkKXFe5qjHyJVbF08hYT4nwX3+xFTlkbHz1wlwnvjC0ytJHfBEqy
BcLQ/LZ3qSgjf59INtaJQeu7slJYHHngjEzqySQmqDp/sV6JvNCaPh+UyYRe
voXF//Z/jYGi5ct8NB9yKvG/81F5/Tz/VwkTvAaeX2hGtonOd1T6yoTEt8/s
05E9VmiUmzcywbLq6lAIctDVorU3fjFhZvflJo/0/9Zb+rWGxgTetKIqLeS6
LzulOWwmTDr+rV+LTNV+f3PDDBO2ey5oj6P7KCRSufUcxoIt0kzFXGTFIP17
UUIsuBWTWRCIrDdV3VMuygIzfqWnJ5Dd2+qi+JVZ0Jxw5D4JOcDwIFNLgwVa
p4ciOtB7iCv5YWiny4Kouo0zuan/nefP2RcmLAhO1RkwQe4m2hxps2CBqwvf
ORHkKa+OvMVjLJCNsjTvRe9Tzrrb/pAbC/abaepeRvZbP/xlNIQFe/p3Bvih
9x9775yUWBQLNtdM8eLI+dPM6xDPAgd3Tt8/lBd/fnE2R+ayoJUUUuGJvOPJ
wiPNehaEa7zmHET5cwi7TT/eygL7V/XuXJRPTte5+oF/WDDLXTIoRH5sQ5xp
ZbCgdsOzdYLIo6JCJ70E2HCCE6X8Oh7l0f3IN0nr2BArrJJgi7xxdq3wV0k2
cEdqzi+ifDT7LfZ5vSobdDbIqAJy9lNZlbcH2aDrbCBbhPLUfsP2qflwNqxj
U3uMUT7zTFZILcayQcLQ0K0N5Xdmo5nJcjIbZOVHHU8hMwJPJRAK2EA/oJtw
FeX9dXYoReAHG0pH9PbcR/Uh8nN/2EahUZgbTt5+NhQD7WSP0k2io3DjRm/2
74cYtN+Y65XZNArNhoxgM2QpNSFtRfVRGI56EL0V1ae8p7s61cxHQdTKjPoH
1a/qC5GKEIF+bxFhORqA3quJpMW+J6MAXvfe7kfml8u+aZAyCi8ylEMz7mBw
5Pf7BpOCUbC48SbgKKqfPfuGrxz+MQq8E5yXyai+zonin04LjcHeJlsR+nUM
tlYxbYIixmDJMqLcyh2d35MCm8XYMRALuv8x7BwG6heu2Hglo++/0Vy/oHqv
JTZr7ZQ/Bna16oWqrihPPAjWhvVjsCWme80Y6hcywsI2E1ZwwCVLWlPbHoOi
nRnKn3EO6O5ye1lujoFnRpCynz4H1nR8LPmG+hMtIRfl3cYcKEvQc2k9iEHJ
gIpy8SEO0H7q19LMMCiLKFBKP8kBgVjfsEXU/1QMlisG+nDgl2DxDgaOQWNk
s7x+KQesViSp1aihvEkNJlm844BMpFpUlCq6b4V6w3afOOC1utjtBOq3Upty
8q5944CIfYDXsAqaj1CAZm47B+JvT5LGUP+2IUwTVs9yYOyrvUmJOLqP9x+f
6NEdB96DdWLiRNR/3LaK8ikfhweeopon20iwKVTJQf/jOLS8mv1LbSWBftzc
Fv6qcah2NcadWkjwsDipOr52HOxj/Le4/iCBxPDgbNnvcVgp5ZxrX0uC3Yev
OcxOjwP/+7QgwQ8k8JF7stVLawIcatKpPukkmP/2+6vHiwm4cyN0KOU8CcYO
Bl2KL5oEK8nihJBBIlxQwCW4xVNg+Mrj2saDRCg/NhsqnTENOnN0VeeCFbBc
0+l58/kMKEd6hElME2BdzHuZsIRZuHZVI9RgLwFeFeU1dYbMgRlexLEN4AWD
VV8mHUPn4bGxmVXSKx54/vlPT+qtBfjZseVPWgsXJ5RKgkTgP1jYYCokLbuM
0xbOpTYGLkL+iPwVP99FPC7xbe0ezyXwzbzWcmNuAdf3Vnfpv7aM/m8W7Gh2
mMc/FGfWG7hx4WfK324T1izeu0kkbmwLD4X9sVdyMnwG7wp0v9f5gofidSAl
9q3sNF4VQ2mXUeClCLIFrlZ2T+JyRi9OB2XzUkqS2mV8Iyfw8xmxh41kCJRH
HYreJ9zH8Rt5GCXjKYGymBvVO32cg3MtVrlLia+gtA2nYFoho/iljKjZqagV
lBkbQdkPaSzcLvZFxYgIkcK3XTLpUgkDF9h2MMQ7lkixlL5OGOWM4Bk3L5S4
CpIo+x1WfXjmOoyXOspKej4iUUwuG5E5nTS8aMqa1smHUfZxktuV7gzil7XW
FPb4Y5QeLv/KNIMB/IXQ6TdcHjLl3wdiaeOKfvxH3LZNft5kSp0uo2TtKBVv
X/dUMc6XTDkiTaA706l4T8SSavFtMgXj+EW+G6Tio0H1e4YCyJSmW3Rdt79U
XOiK03Hzh2SK0nuzrrZaKm6+Py5mUyKZcsmwSWwyg4o3zXP5Kz6QKVL8r00p
dlS8w8tlbecnMiWyo1i4yoaKU8e+i09Wkimx2ep6BkepOIcWr6L8lUxJD374
5cB+Kr66Vdv4USOZ8tlt4x0PXSp+OM81wLGHTInP3nJ4ch0Vt1X8EeJNJVPu
4NxdD4Wp+KlUncjofjLlY7hDoJwAFb/8hPdZzRCZ0uPNUT1GoOKRgYkfNMbI
FEaw3/u0vl48bom3ev84mZK9s92R1tGLp950azg7Saasx7zfbW3uxQsvbv/z
dJZMCSmTeFT5qRcvoyf2Fc2TKavTnMnCpb14pROB3vCPTLme81Lr1MtevLbX
jUNbQuOJTwuXZPbizSeaZrlcMkUw2yWFP6kX/x8bND+E
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 9.999999999999999*^-6},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.51768867535535*^9, {3.5176887061484222`*^9, 3.517688750873942*^9}, {
   3.5176888107729797`*^9, 3.517688874540598*^9}, {3.517688946243088*^9, 
   3.5176889612423897`*^9}, 3.517689120096327*^9, {3.5176891567636223`*^9, 
   3.517689225772265*^9}, {3.5176892572770777`*^9, 3.517689436152975*^9}, {
   3.517691202513351*^9, 3.5176912224702168`*^9}, 3.5176949139344788`*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Trigonometric Functions", "Section",
 CellChangeTimes->{{3.518737485576891*^9, 3.518737493031455*^9}}],

Cell[CellGroupData[{

Cell["Sine", "Subsection",
 CellChangeTimes->{{3.518791165080474*^9, 3.5187911661358433`*^9}, {
   3.51880060378986*^9, 3.518800605080063*^9}, 3.518984227793124*^9}],

Cell[CellGroupData[{

Cell["Range Reduction", "Subsubsection",
 CellChangeTimes->{{3.518791118988172*^9, 3.518791120071993*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Sign", "[", "x", "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"Pi", " ", "-", " ", 
       RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "Pi"}], ",", " ", 
     RowBox[{"2", " ", "Pi"}]}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518737500283761*^9, 3.518737504410254*^9}, {
  3.518790495261408*^9, 3.518790496283144*^9}, {3.5187911309373198`*^9, 
  3.518791139081007*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1H0slHEAB/CHw5GOu3PuRXWl1m1iYsl09+S0plAtRJ0/Yt1GF3MOTWun
OUtoWKz7w3nLI+RluUuzrHu8VF6iEmYYaybnZbLy/nK4RT3P7/fHs9/z2ff3
8t3vj5+zNCE02hxBkKt73/4YFGh3cduZ1773qxJUY6ioKXXRmv/PCKLDUDfn
X6VsJ8LlGGq31b3pySSswtCBmvQGmTlhpAKVWK/xhn9yCWPo3e7xRd1LLsgz
/GvLYk6SrkQTh4zM5w4cwuVo722nOYMDmzCC7LbW6YQ8R5BPNS4VhNiwQO6N
WQ3l2ToAo8cH3XM2GcCHlXaPcufp5Hq8v8RTEvPDHvi77O3sWT0NuNplwCe4
xRbYo6hfkdRjQ/bHnT3Oj7HrqYQL8fn3/pZWbyzB/ENx+jsPcinApl5m1WKi
GXCy+GDYvQ1TG9mv+cy39rUmI7CW0aXjtKwDJws1FN+EZWDhk6iAudgF4D+y
nWdp2YY28n4edxQLxZsjhPPxYT3aUUdpJ5yNR7ld2g0raBX/dyU+GSAJl5eN
isn5q1qxlisyiMm+Y1V8+VL/gpg8TynXB4S/WAaWlJ++VZK3DhyT1WM+0W8E
/pTh6pr7xQQcyZj+yIow8yP7rgi7fSdTKMDaBNqWVGEJbJE2ky5VU4HTNScC
OWobwhXoFYs0l46ntiBvCIwf/V1LA/Ypauvsq7KHuXTQjz1D9wN9j4W5Xlhl
ADdOUZsuLTKBg1iWghwzFnBKkJd3HeJI7of31CyHdhodQS67b7x59AAH5MX+
XsYbVC5ws6PSy4UOPTz9QW7iQtMzr0/VnCJdiWd2xX7dvQaddBkre6WGTtd2
iJga6HzO3GhqKfTrWXeH0Gq4/1wWnrXzDjry84giZJx0BR7vsU3DJ6BTC/n1
AgNpDNfIoqe3F6CHrFciqk3QUwr2Bp3CA+uXR8+plVRo+1pVXzAdms+ojNOz
CKsw3O1ht7WABy2anK/KPwJNvFf73n+v8L/b02Kk
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-1.3877787807814457`*^-16, 
     1.3877787807814457`*^-16}}, {{-6.283185307179586, 
    6.283185307179586}, {-1.3877787807814457`*^-16, 
    1.3877787807814457`*^-16}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.518737504827546*^9, 3.5187904965216703`*^9, 
  3.518791139781049*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{"Pi", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", 
     RowBox[{"Pi", " ", "-", " ", 
      RowBox[{"Abs", "[", "x", "]"}]}]}], "}"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "Pi"}], ",", " ", 
     RowBox[{"2", " ", "Pi"}]}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51879055299487*^9, 3.518790559022429*^9}, {
  3.518790601042296*^9, 3.518790601261579*^9}, {3.5187907400502987`*^9, 
  3.518790816001957*^9}, {3.5187910111604977`*^9, 3.5187910243403683`*^9}, {
  3.518791150861424*^9, 3.518791155064969*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7eXJ5/xbUfKAhK5LyG9FTof047c/bFgsAee3uK6c
l6aK4Bde+SU0WVgczj8VK/XiibAYnP9336oNVpKicP7jTR8nBnKKwPlmC9mu
9HILw/k2Spf0un8Iwvky1Xy1Pa8E4PwLcwwj0u7yw/nnMzY/N93NC+cv07xo
EbCXG843mHWhoOgkJ5yvaGB7S2w1O5z/apcrK9tGVjhfOnt3YnkPM5z/75TQ
0g+FjHB+sT1PSOb3f/th/B3GZw983foLzl8veGyD+N5vcH6x1Uxmu/xPcL5V
a7zHi6w3cP77jD/99R1P4PzmI7Ot7H9ch/Ov7bY5sor5AJwfr+P2N2TiPnsY
/6FHRGjevBtw/pf19uslrJ/A+beWyuV9vPAGzq/O2+0ROv8TnB+xQD98Tu83
OD+t/STT/Qu/4PzDLdraPaf/wflxgk8PiUQyOsD4n62O2z0sY4bz1+fz/kwq
YIXzWeqfNSZNYYfzG2cqe4pP4YTzvVnqNY90csP56zxzb7xbyQvnW8zaf/Tc
Un6EfNIlB7FnAnB+mkKItuMXQTh/02P2rW4fhOB8LxFWtW5GETi/zMvEbBWD
KJx/csWnoKO/EPyMkl9h8lzicP5sV5NfwewScH6R+8J5y6cg+ND8AucDAHnf
OxU=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7eXJ5/xbUfKAhK5LyG9FzgPpx29/2LBYAs5vcV05
L00VwS+88ktosrA4nH8qVurFE2ExOP/vvlUbrCRF4fzHmz5ODOQUgfPNFrJd
6eUWhvNtlC7pdf8QhPNlqvlqe14JwPkX5hhGpN3lh/PPZ2x+brqbF85fpnnR
ImAvN5xvMOtCQdFJTjhf0cD2lthqdjj/1S5XVraNrHC+dPbuxPIeZjj/3ymh
pR8KGeH8YnuekMzv//bD+DuMzx74uvUXnL9e8NgG8b3f4Pxiq5nMdvmf4Hyr
1niPF1lv4Pz3GX/66zuewPnNR2Zb2f+4Dudf221zZBXzATg/Xsftb8jEffYw
/kOPiNC8eTfg/C/r7ddLWD+B828tlcv7eOENnF+dt9sjdP4nOD9igX74nN5v
cH5a+0mm+xd+wfmHW7S1e07/g/PjBJ8eEolkdIDxP1sdt3tYxgznr8/n/ZlU
wArns9Q/a0yawg7nN85U9hSfwgnne7PUax7p5Ibz13nm3ni3khfOt5i1/+i5
pfwI+aRLDmLPBOD8NIUQbccvgnD+psfsW90+CMH5XiKsat2MInB+mZeJ2SoG
UTj/5IpPQUd/IfgZJb/C5LnE4fzZria/gtkl4Pwi94Xzlk9B8KH5Bc4HAAZV
VRU=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJw1lXk81fkexnE453cSjkP8jillLUuGaEO+HxqlHUmYSsxYLjcpasoyZSpa
KOTeUOTYyVoMM5bvt4YslS1zEpW1smTf9+u+Xvf+8byev54/nvc/byXns9Yu
IkJCQpdX8t/ev09y97wSjwS4tOjNK7GJUWHACKXII6d2FYbKKbCJttJAnJwC
j8CayK96XDaRnK2a0ePyiGjlgTh3ETZpTA/KcRfhkduqmBJ0UcSOmuQJumgS
3Z3SnpdEEbeqtpG8JJr87uQT5qpGkevmGfGuajQZOSnZ17iJRc41z3Hvy8iT
Wv/8Rk0xMVJ7UqG3R0aOBNwd8a8TY5DF8sw8Q94a0mUpLeHHESbdT0cjrNiy
5MQ5k8dHOhfxNj6zOUxchqRrRqZB/yw2Vm7SuTMjTYgO4W6Ln8Rr/SUDQ/s5
BCLzDxi5juKGR3p2rh+lSEd5oVTWYD+ud3/2dWuJBPkwVHqo/+cunKrRuMOy
TJx497ipprU2Y93YBu/zNWwilBQW0T1UgJV0d7XKPWER7/qzCXu9qlD/n+Zi
zHwx4h0x/ktmSBv6zrPE6ZdQBplgqdRK2X5BS7XclJFzwsT9ZmWpJhlCPmi1
zT+ml3CZQoBN2MFxVKz/hkwWzuFL6iVfhe5Oo1zpl3nyZVM4yOLF9KfgeeRj
GMMwOTuGy9YPJxc3LyPDG44WvR7fcO0BbTNTlggMuy/cu3KzB3/gmnu3LTPg
WsVDQzTzDt8sGPnnuDITeut23ncpfoeNxj/whzSZcPj9u4E7l97hIb0aQd8W
JigMycS1zAjwsVw+dJgxIU8+dPnc7N9YOdNa9o0zEz56BFQkz73FpY8LSlIT
meCl/Ocj2bl6PHr70ioHZRbs3D51yMmvHifX/IyOabJA9OCW5ey5OmxHWfla
bmHBwwuZTnvn3+DyGxqf9pixoLo6Vt1v4RUOvdqar+/MAuWz/nntS1VY/aKx
vUQiCwQlxhWZDIJ/dBJKJ0oUrL3s/GlsNcZHeFZl9zUoCPU7YBDOLcc/NPKb
XPUo8Axc11G7rhRvNt29uNqUAs1rz7eDQTFe3hBsbX+agoy77K+aTnk4qUN8
cTSegi0bPl8Of5ODH0Sf4FamUsBVKVJ71ZKFQy2zN0bnUNC46cdAGE7HF8hh
a5NyCiwNkrS11vLx3oSItNsfKXD06s97dTgeG9l1lZ78TIGi713K1CUW63L0
m3QHKYi7IijSiozEvKvNC4IFCopXTSqaWYVhiR1q3ExRNmyX21Wn/esNLDJy
YWPgajZ47l41r2Prj6fSXhpbyrKhocDgGXXaDQ84ylurrGVDs2+WyZb8I8jK
bIOp0AY2xP1i3mf5yAeduF2vtZlmg2WeQ+UufhByb/pVzoHDhsZkrtxR31vI
R0FHOIRiQ8ZBF/2CpHB0xfnjwDMhNvTved5mEhaFbmeGCjpmVvgZXda2Of0I
8Q0Hnhj2USCI9fAYVk1A2b/F/tutk4KpB9HlBbxEVFy7LyjqPQXbIydcESMV
1Tuk2w7VrPwLziqyEWSjRT8X4cTMFT7aexZtIspR4bx9lvdmCoyjU+9OJWBk
O1P3eFyVgtW/MTgH7Qianth9/+JaCvoGf+IPuj1HO4c2+wWIU5BYqVqhG/IX
Ku8QtrjZxwLZC6nsosoqVFWZ0f04hQULfTa1TkoNqOXerEL9OhZ0Wtgd84pv
QQsqMbc2SzJhIhfl0kY96DtT301bZUShNUXRa7ThG0q8VjpTPigM/l4lFsce
j6HCgdeO/ORlZJfw/fFHYVOo5Q87K4ff55FrSI1Ie8Mcqm0qT5H3mUZ/XdfS
Cn21hM78fSLQ49I4OiX9+YWsvTD0egWYx6oMo3HDKpPOiwyIqh4/5p71BeWe
lZh19hYDi4HC9y9CPyLRK1+CnKNYAJ2tamHvq1FQjMo++Sg2gELb9sXgLHxA
9IpGxS1xiP5DkLHH5C3O2XemZShDAuzOJ3Pq1nfhHbG4si5FCq4WDFYekurH
Oc5NIPeFAzd1nzs424xi1w02WqYT0uC+sVpUMmwSP+1mFe4Z4UK0wQMt1cBZ
vF9WTP2OsCzMTN0Z3vpiEV/cb7AtU2gNNLup0vbtQqQmfcy6cm4N+Knyre69
FSHuvnO261fJQ3FJnv3uMVHy0Nxg7iiLBsVTqglZ35gkM/v4g3JxGox1PFuD
JpmkeI2/gQaHBrulfNnjS0wi+Pzca4mmISoe3RLmsAgn+Eh3uiYNVLvDeVt9
Fgl+6fF68RANE44RPwj5scj5vfz4tCgaXjst9R5lUSQot8KIG0NDv565igaH
IuHyvS0BcSt7kdCTSzRFsr/qyFin0mCWyGtK16RIb0hpyEIRDcVdBiWLhyhy
qvqdt1UbDck/eYalRVHkjO68RGk7DS/0n1YFxFEkIFrxiXoPDR2MWWHrVIrE
uLt8nv9Gg0Jy8MWFIoo0U+P2qUs0hPfwHa3aKNLtLTfNYfAgp6A3Rr2HImMt
O6P8WTx4ff375vlvFJHKuFpnyeEBU63MInWJIorSyZ4lsjxQnWRc82et+PNy
FaXO4wFU7i+z5Kz4tbM/JXwdD079K2Jajccm//Mv/N+//wF5/Zh3
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{(-2) Pi, 2 Pi}, {-3.141592653589793, 
     3.141592653589793}}, {{-6.283185307179586, 
    6.283185307179586}, {-3.141592653589793, 3.141592653589793}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.518790559401197*^9, 3.518790601667754*^9, {3.5187907405360823`*^9, 
   3.5187908164785433`*^9}, {3.5187910131001253`*^9, 3.5187910247289352`*^9}, 
   3.5187911555967216`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Approximation", "Subsubsection",
 CellChangeTimes->{{3.518869653699377*^9, 3.518869657859603*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "qpprox", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"qpprox", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megaeq", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"megaeq", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"qpprox", "[", "x", "]"}], " ", "\[Equal]", " ", 
   RowBox[{"Sin", "[", "x", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"megasol", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"megaeq", "[", "0", "]"}], ",", " ", 
         RowBox[{"megaeq", "[", 
          RowBox[{"Pi", "/", "2"}], "]"}], ",", " ", 
         RowBox[{"megaeq", "[", "Pi", "]"}]}], " ", "}"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"a", ",", " ", "b", ",", " ", "c"}], " ", "}"}]}], "]"}], " ",
      "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultraerr", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ultraerr", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
             RowBox[{"q", " ", 
              RowBox[{"qpprox", "[", "x", "]"}]}], "-", " ", 
             RowBox[{"p", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}]}], ")"}], "^", 
           "2"}], " ", "/.", " ", 
          RowBox[{"megasol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "FullSimplify"}],
         " ", "//", " ", "Evaluate"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "  ", "}"}]}], "]"}], 
     " ", "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultrasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ultrasol", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"ultraerr", ",", " ", "p"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"ultraerr", ",", " ", "q"}], "]"}], " ", "\[Equal]", " ", 
         "0"}]}], " ", "}"}], "]"}], "  ", "//", " ", "FullSimplify"}], " ", "//",
     " ", "Evaluate"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "gigaerr", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gigaerr", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
             RowBox[{"q", " ", 
              RowBox[{"qpprox", "[", "x", "]"}]}], "-", " ", 
             RowBox[{"p", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "-", " ", 
             RowBox[{"r", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}]}], ")"}], "^", 
           "2"}], " ", "/.", " ", 
          RowBox[{"megasol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "FullSimplify"}],
         " ", "//", " ", "Evaluate"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "  ", "}"}]}], "]"}], 
     " ", "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "gigasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gigasol", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"gigaerr", ",", " ", "p"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"gigaerr", ",", " ", "q"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"gigaerr", ",", " ", "r"}], "]"}], " ", "\[Equal]", " ", 
         "0"}]}], "  ", "}"}], "]"}], "  ", "//", " ", "FullSimplify"}], " ", 
    "//", " ", "Evaluate"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "teraerr", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"teraerr", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Sin", "[", "x", "]"}], " ", "-", " ", 
             RowBox[{"q", " ", 
              RowBox[{"qpprox", "[", "x", "]"}]}], "-", " ", 
             RowBox[{"p", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "-", " ", 
             RowBox[{"r", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}], " ", "-", " ", 
             RowBox[{"s", " ", 
              RowBox[{
               RowBox[{"qpprox", "[", "x", "]"}], "^", "6"}]}]}], ")"}], "^", 
           "2"}], " ", "/.", " ", 
          RowBox[{"megasol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "FullSimplify"}],
         " ", "//", " ", "Evaluate"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "  ", "}"}]}], "]"}], 
     " ", "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "terasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"terasol", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"teraerr", ",", " ", "p"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"teraerr", ",", " ", "q"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"teraerr", ",", " ", "r"}], "]"}], " ", "\[Equal]", " ", 
         "0"}], ",", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"teraerr", ",", " ", "s"}], "]"}], " ", "\[Equal]", " ", 
         "0"}]}], "  ", "}"}], "]"}], "  ", "//", " ", "FullSimplify"}], " ", 
    "//", " ", "Evaluate"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5187384617176733`*^9, 3.51873847499699*^9}, {
  3.518738658646213*^9, 3.51873869908646*^9}, {3.51873896982164*^9, 
  3.518739029136842*^9}, {3.51873908336957*^9, 3.5187390837671947`*^9}, {
  3.518739177653307*^9, 3.5187392866018543`*^9}, {3.518739473312148*^9, 
  3.518739498871552*^9}, {3.518739713680276*^9, 3.518739714173778*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"qpprox", "[", "x", "]"}], " ", "/.", " ", 
   RowBox[{"megasol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
   RowBox[{"x", " ", 
    RowBox[{"Abs", "[", "x", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.518871162234613*^9, 3.518871177314247*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", "x"}], "\[Pi]"], "-", 
  FractionBox[
   RowBox[{"4", " ", "x", " ", 
    RowBox[{"Abs", "[", "x", "]"}]}], 
   SuperscriptBox["\[Pi]", "2"]]}]], "Output",
 CellChangeTimes->{{3.51887116657346*^9, 3.518871177707368*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "+", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}]}], " ", "/.", 
           " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"ultrasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], " ", "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "-", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}]}], " ", "/.", 
           " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"ultrasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", "0"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ultrasol", " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.5187390421257467`*^9, 3.5187390718714457`*^9}, {
  3.518739375062715*^9, 3.518739378433926*^9}, {3.5187427568497763`*^9, 
  3.518742762695161*^9}, {3.518743230730657*^9, 3.5187432373762693`*^9}, {
  3.5187432779568577`*^9, 3.5187432797710238`*^9}, {3.518743351219425*^9, 
  3.518743364695116*^9}, {3.5187434746104937`*^9, 3.5187435185235367`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmHk8VN8bx5mxaxOSkFIkIllTeI4ZuxlZisqa7JWQkLUVbRJZUiJZUiEk
Eg5KpL4SssuSnYgsM5b87u+fmdf7de859zmfz/M855670/G8uTOJhYUlmvj5
/z8Z8zT8UvHWmpBZ09HKiMCSYxWHt8cegd97b4iE343AS6/3O3XE2MPpxE0a
Py9G4CEBN8bbmPPwavjyIawXgTv1rldnxITBCdebBtSxcPzDPmZPcsw9mDiQ
FEM7EI7Nzwp3JsakwBFSWbfsf9fx/VmbwviYPLhmFy7rpngV3xVM0qhc/xqU
o5Zi20Wv4qb8G+Iq5q/h2LYj7Sc4r2LrcZuh7V2v4YW/6Leo7ivY05rXe3Yy
H2QONJyviriCH2i6RT7c9AZ6buTba/dfxr2sEsUjViVQWp/Y0IbC8OEaIx7K
hUrgY93/709SIN7UkvlNLbYSbvJv8uEIDMSDA6Q4ucJK4Pfv8FQ5EYijWN6L
C/+thDPjOV97hQLxwGFZlT8+VTCXaZvsFH8JRxbwOjzxqQZhuYIaicQA3Jry
tWjJ+yNcM6P95c/1w16BJqcKveogY6Wfd3bHBWzkqfGcK7oOPGefCN3kuIB3
OcpM2+bVAYtMX4zKpA9uNeQI4Zqqg/jZmuyGYh+sKVyRaHvmM/z7xyXEYuqD
eUrkGjld6mFG6/jUseveOGN+HdhYfwWRKdXVFcZ5fK7EOYq0qxHuWi34F5p6
YHlDsx2syo0waXf+jZGEB/7ToVGwptMI4jG8k+vn3LHvMn/riksjDIv6Dwgl
uuNArWqxxReN8A4OcqoNuOHwj9tzJhS/g4uVrMLtUFec2tj2pYXSBHc92J1/
tDphx1MfbJstmsCLNOv9LscJ75rNnf7u1AR+helan6474Uz+cP5v4U0grv+3
4ISSE86xVLb+XN8E2Se+GDnHnMal3dHj5ebNkIOaAphWjrhl1JA7y7EFtLq+
bfdgccDTD6V1r/m0QG7tb30ot8c8xpxX7K+2gN4J/X8Tl+wxyvnIEEprgQ3U
6hbuOTv80htGI/tbgOE++Nd8whZfXVKu9XD4ARwK/yKYQ9Z4/7odN+TtWkG9
82fhPZ7j2Kj8XyWPZyuMPEvLHm6wwk6ePSvDIa3wrHw2PjDWCic1JvmmJLdC
hmplzXExK8wRJ+i0qacV1tJ3+40rWeJuMV7qrHUb7NKvd6KePYpv7V9geXui
HaRSAp83cpnhQH9D2WGPdjitOS8s0WiK3fHjY1uC22FImHewKMEUGxyhvvB7
0g7l+grfn+0xxZznoy3UfrVDwLviIOk4E3w9Vyaz5GwHMMUM9lHUjXGonL3x
+7BOyBzPXAzo08GeFwsuTkR3QnneuyfcYTrYtpw9VSStE9K2jioLbNfBGvRX
c0EfO6FePawvzpaKl88ykzW4u2Af5dA2yoA2DngV+6c8pguCHGhXJ8ha2Fu2
Lq4yoxueOqQ8FzughAedBy+nvu0Gd9bYsbAoRWyZynL2cm03SP/0Tn83eQAf
ElSnoLFugPvFivkvFTBpLXsK7+sBiXWTrch1H45puq2PC3vA4/u7meUfErjg
0hFmedVPkKkupm6d6q7Y/ebMYHLTT/CK6CDd2FykFT8V8S3k1094eywni/zs
l1bg6coMTfZeiNd7cftEzpIWhX7AvNygFwaw/pTB2Hpo3sH/suxbL0i92XW1
YGE7LJ0+k9vj2Qcuy+GeP07LgwPf34Ayvz5orqreyqG2H2oqAqmPQvvgfTR7
SiibAkQL32o/HtUHBYhF/mmLAuz59pzUktMHxuvSKlPOKcLRQ8OW9ZN9MDt0
K6bvqgrkbjq19tajH2Q6/wu21DwMAhWjn+N8+uGidsPi7geH4dIZrwe+gf2Q
5e3/6/T4YdD5FLZX8VY/DBVHZSnHaUBX0BOLnOx+OC7aIiA3qAlcI11Zz0b7
ofDID8qYEgLHckvTaJcByPSDK1bXKaD4dutm4fMDIN5ZdkXgBQVIeZ3NT/0H
oDRRL/j6NwqkpdpZFUYOQJpbhVWoMBUGrrnYtb4YgPrVwjN92VRwNPI7Kzo9
AH/O5dfElumAIvWgfMbiAAzEKFOTe3SApLE0LcfyCxYdf0TZ/tOBNLnQC8D3
C4ym46+QQRcGNoUHOir9At9ebteJMl1wbIuLfO7/C+RdB53tX+qBYqOV0YHL
v+D1B9GGmVo9IH0WXlca+Qu0Yn3LtAb1IK00+d6Xh79AVbZCkFtUHwaSM+Kn
3v+CwFJHUZdIfXB0KkpXZhmEka375X2PGoCirb9LOdcgdDhtVao/awAkS3Vp
Pb5BmEafTv68bgBp+uUvrSQG4StjYl77jQEMyNQUBOoMwr9Hf++ubDSE0zMt
lZWRxHy57656vTcEh8Boq5LoQYg7X3n6TIMh2JBpU3mJg5AupTq2v98QLAU/
iKQ8HwRBf6W4LRxGYKCe7xdSNwjHPkVY2dONQP7K3X2HuIbgTsGHi+xNRiDD
Y/jhwKYhuGKzIzyv3wj2xLKd3Lt1CF4IibFKzRjBjoygiK3SQ2A30zEUsNEY
+D+7DyzoD4EPw0H+vaExMDbpJRZGDIHC/deP294Yw9xD1v0v7w0Bp+BUjk2V
McxIlNekJQzBsYTs7tf/GcO4svLf+1lD8J9OiUbtkDH0HJcw8aodglOmw9mv
+WnQ2d8z6PptCDT6DY0Kt9Og1eNhkH3bEKjsCz0ZvpcGjcGbsk1GhqBEbrvP
Ey0aVKf+I8txDsNs7L1Nj1xoULG3NGn3xmEI6DCplvSiwfuCiwdEhYbhpHH4
gauXaPDm46Qd755h4PH9/vv1bRpkjXa+G9Mjxvet2I/n0CDdO96032QYTK9K
XOZ8S4PUJbORdsthECLXZy6W0yBp3WeBOpdhULevfWH2Hw3uKBSfzwwfBovs
5LU/YzSoV2wbvhg1DO9q3Cxu/qEBl8qirW78MLypMctYXKDBdXU12mDGMNS2
C3RZkulQfdjqQ2HOMAyy3ucx4KYDi5b/oWtFw3DL9vy3jRvpEEQplpaoGQYd
rr68XdvoUKLTljLzdRjc6u5t8RKnw4Le4paqlmE4e7X7eexuOvgYq7E7DA7D
A42mIQd5OngcLe5PJo+AXI16ixCiw3PLtuPneEcgzs305U4dOgwfX/ymwT8C
q8dPt5EN6HDKVq2iS2IEZFkXq8yO0OGJvZXKS5kRuOTKW19uTofuU/6vAhVH
YMKTWkqypMNxl+IkYcoItO+JHRKyoUO8WxvfmOEI2L8scx+1o0OLx2JkidkI
CF2Tc4s5RYfN54RYIk+MwElJPfYtTnQwPa/mb3VqBMTXWzlfcKFDlLfVlJT7
CBy6kPrqhRsdvl7wd17wGoFXCeZr7z3ooB9QbBF3eQTEgk5ZnfOkw/XAtnqn
yBEYj2xIX+9F6Bm8qK0cPQKSNR/vRnoTeoYJvSMnjoCX7W7Vnz500LqiptCc
MgJJQeVVG3zpEHzNKistawRcnEyPbrtIh9Ib/tt98kbA+/pdPlY/OjAiEuK0
i0fgKl1Q7APBqreK1/HhETh2JCDJwZ8OvnfarvV9GoHKc2o5HQQXRC0u5TWM
wOuoDwHyAXT4Ey3kE9Y6ArwDITvsCZaLVRsz+TkCUu+Ka88Q7BFn5bB9eATS
ywruHyX4eYJ/2+/fI/DkR+pTYYKHHyaYlM+PgLpy+rb3xPy7HxfX3FkdgVSd
b+LqBDs+adOwYR+Fr+27W2KJ+FJTFwtl148CZVfiyS/Een6mCckuC4zCWsa6
1l5ivaIZamn1oqPwU8vS/fsFOpzMshJO2j0KlrrqaqmEPonZ/tHu+0Zh8JaH
I43Qr/VlAqe68ihYad1b33qeDvy5xaFcGqNEP9aw1iT0N33dNt9GHYUs9qVz
V88S/hUsns0yHoWKBQ23DMIvnmI1az3rUXgqMvD4BuGvwTurJsHToxAYMChC
JfwPf+9vOOQxCk/Yc3h7ifwgVRarXQ8chcT8PZ8KiHx6sX5z5urVUbDZWPb5
1Qk6mFufFfC/PQodfVrTYUT+PVvYMeP+eBR+ZFPoBUS+0nSC7H+lj8JODulu
Phod5u7/+M8mZxRiqj+qGxP5rSN368WRCiLeIbb1NKIeJgMHt37+NAq53E7t
/Bp0eFCnFUH5NgobN8yKvVWjw9Dpv6dV+kZBT0C2+hZRT+FJNmIipDGwavUR
uETUo/zo29sPeMagdkLDSliQ0EuFb2k9/xhwORx0jSPqd8/3mlaW3WOw6dy7
+J1sdKjj3B89rDsGTsXCtVETNOC5yEouuDkGlJtBH/oKaVBQbe0tGzMGaqJR
tmavaHBy09ve9KQxePrlhHVqOg1evvQoS3g5Bvt45nZ3PqABbaD5Ysh/Y7BU
nWtfdYEGUUcyRw34xkHhBVfOFVkaqCazWFULj8Nvd+Q5sZMGP8dP1hyWGIdq
YV9B1a002B++MU1eaRx8XDMKPdmI/loWYC1wbBwkbUqCvLuMgU/GuKE3cRwk
Fs3seq8ZwzBnCl9d6jh49l/m3H/JGEqHZo++fj4ODSJ6Jc6exuD0NKnrcsk4
nErseBV53BhKto6P7mwfB64jP3WeyxqDHedNspPQBHA9PrzF/T8jeDX46eBo
3AR4C17wrVkzhCvV24IbkydAp71t/4FZYj9L9cQlGRNgvc7lXcSgIbDYbNG7
WTQBhf2bX83XGYJFs7OFzI8JsPSUQu3RhrBUxeZ5VmASnCX+BHwXNQSDFMqz
PzGToKs8tmYtZQARdY09Vx9NAjtp8CCLoAF8mrHbKpg+CVZsr0rvkQ1AVyfo
rnrRJJT2jez27tMHylih/9W2STDybXXWfqgPGkqSNAHR37DuTeG4Cqc+KNRy
zqtl/Aa3B9sqbX/ogtD0V72w4imo2vH774A2FZJqS1nJ7n/gi4jXLi/rw6Ah
pr22w2kGSkSMLlWbKYBs36bBEN9Z6J0yM8n144Oc55vdinz+wudz4FPesxUH
/7Rtlg2fg5JbYu1DEQp4Tl8z2fnWHGiabk45naOAz+aLuqZEzUFtP6W2tkkB
W1/vWtqcMAcfz31rp4gR77MyJySWsuZg+Mfeo6z5BzDz4lHvus9z4O2YlnCr
WRH7rTfe6Lx+HoJ4sx7LsKngKT+Zjid885B3aCVBT0oFu/RxP2sXnIekVZEN
egYq2LKwTpW2fR4izWQFpm+rYJUTenZK++fB/UKD/AifKp5L185hNZsHc6d2
Sdutathb46Dxkwfz8Fr+ktz3DeqYxfNB2L3Eedhz2dVKVlYdR6X8Kbz8eB54
424He+ir4xekbNHT6fPQcyg3KCFMHQ/UCU/teTMPkztrs15MqeOjx5aj85vn
Aa6e/Pi89hBW9axo/bh5AZR0OfhSnTTwx5RtvG+3LIDzfeOQkBANbP7dD7K2
LUDdZbYdWvEa2FN5//ObEgtg8flLi1utBs5aSrlkorgAt9QsYh2lNfHWiCui
7WYLEN997GT3oCZeStFxnIgm5r9ymv5AH7DWombMgbgFEPO4kx1hB/iKiVq1
/8MF+FaidcbqImCu1b0SbGkL0L7EMno7DbDgyY0DooULoPznoqH+MmAFgc5T
Jj8WID2nieOfOcIXzjTff9CxAPje+nIrW4TfVn+t6uxZgC7r3xoprghreuOd
rsMLIK05c3kxCGGjhvT+sMUF6Lk7f/7rM4SdI8+fyhdeBIeaaUz6g/DzXrf7
i2KL8HLboI4qE+FJVccqTYlFSPTZq2pF0sY+Q0d31ssswkDxb/1TAtr4MuVQ
/8DhRbBK64iJU9PGSStspwTsFkHZ9DEKDNTGjV7ENpe2CN8OlihvntXGMtGb
ln0zF+E+fsbmx9DG1/LC43xeLMLCtQ3in/9pY9Upn/pzBYvwNfK8lCYvBSef
MVZ2ql6E+V+5Uja7KNjDZYXTbGARAsMTdC6YUvDHGz5pJsOLwBFta1R/jILF
MkY1aOOLEII6PTZZU3DjrxZv/dlFsLQ6NOPuTMFqp3K6NEkMkJk+Wm92iYLZ
bOzyZCQY8MOt9fJsMgXbBbUYSksxgFTBRzqURsHFSUaDkjIMQFG8/l6ZxPM7
VIV3KjJA/uNrpRe5FPzdcuM1IQoDLJuHy00rKFjG74aYoB4Dbnr8S9tYTcHX
45aLNxsxYGNT+pnyGgo+2DIyud6cAVwicqlDXyn4iVmlJZsjAyTOszi5dVIw
w0t1htWFAW+mJZWe9FCwefSr22vuDDgd1d1W3UfB7N8SK5e8GaC+M+NR+zAF
n6V5y8xcYcCX9VIDKrMU/OnMyMepGwzQKRdWGpijYPHbtvaTNxkQeqaJHrJI
wU2fDR+M3Ceed9CiK2yFgtX1Jf71PGXAgYwqpbfsVKz8rD6yNoNBnGvYxRs4
qVh+zYc/P5sBZyqV/H5wU7FE8Qfp6/kMuMTq6FSwnopF+c8WnitiAFnpCjNi
IxVvOS+gZfWOAQ++1i7Q+KiYdw/RX6sYwMY8JZUhQMUc19b/5K9hQIOwoNXB
LVTM0lvktlrHgLbJ3MlSISqei+cIbWxkQJ5PLjVqGxVPzeZylbYwIPHKG3Kv
CBWPmljFPmtnwN3yfklxMSru4Xj+3K+PQbwvGUedE6fidkdTJYdBBixvdG8O
2kHFTRWMcsNRBvh+Px9waScVf9321EBpkgGV1waDXSSo+JOfYbPoHwYYrFr0
UXZRcWXTjC3HHANKxCzSNuym4lL5pNHpRQYkD4VWfyb4zS3KhY5lBjC8g5Gv
JBXnDY+vVq8xYLyNIbJBiopfUGIjX5GZYKOTfTSB4PQnh/njOZlQpGY8vnEP
FT9Z+pUcxsuERNb0bn+CEy3vSLtvZELGjiuy3wiOKVAuNOdngolUSaugNBXf
2dCjqSHEhNQKqZ/GBId73KiTFGGC3JsCbW+Cr3ySs9gozoTJXkPWcIKDJVp7
GBJMkNo5IHqLYL/QULcBKSa4u196EEKwV6fU3y8yTLjXLejmQLCH6reQInkm
lNXVJCgS7BTjz5WiyARv1ZRdc0Q8dlPisZGqTEh+XcmbQfBxozoxn0NMqL5s
aqpLsEWm13NrLSZspYbMtBDrNSEJK+lSmFAeGDJtQbCBXVW5vB4TJjruGVUT
elFK3Q22GjFBTXWZtINgjS2bm1lNmNDtsEH4HKGvqk+p7YQZE9iNd9zNJvxQ
aHAcbTnGhL0c0fY/CL8kwwtXs2yZMKsst3OZ8HfHgHXk/VNMot61+eYJ/7dp
sfEHOTPh7XzYqZ/bqXjDwlFpk3NMaL/zbHeYKBVzma8WqHkz4cWtvERVIp9I
uRmaOy8yQRYrn+8RpuJF5wXzuWAm3Eg002MS+Tlb9aSn5zITRtTMDDwFqXhS
TN+t9jqhZ/rDvCZ+Ku77kRCSdIcJ6X/k8t03UfFnXfXn6DETJHbpJTZyUXFA
bah8WCoTVK/ZmsVyULG04cc35elMCNTVj6SwEX7SjlQdyiH0OTvh67JGwToW
zp3KFUx4zzzp/ZGo37mWFw4Xqol8OvoYTcxQ8DPLP8P5n4j7HcMf/puiYNLJ
oL/y35hw/IHA9PgoBVc63F+3t48JRrRvJzu7KNhroDXGdZAJD9XLnzu3E/3A
SVQ4c5QJVcuLUT0tFBzqmiW5a4YJLmFB+2L/o2ANz3ItMdISnAfqiCDRz4qD
xrz4di9BVRPDJugRBbusyi8ekV4CpYcPDn+Pp+AtYb4hUfuWoFBXsZ0/hoJ9
r67d5FVZgmkJD0v7SApWvCn4jF1vCRatWd9u9KXg3HjtH0zXJeiY80lt1yf6
7dYI64Nnl+DuXne8rE3B65O+9vt5LYGkiNV/vBpEf0u2mvobsATHxvs/zO4n
+mv6Oc6pm0sQHpwe2r2FgjPyH6oPvFyCezPerhL92thj2VqmPW8JbAuLDO51
amMF3e0iDYVLkLch4sNEszYua09befd+CTj96bEXPmnj5rWX+P6XJTDVylyu
eKGNWU0qdLUnlkBCN2u9gZc2th0fMEuVWYbZpNkJzWmEJZQzKPHyy6ArzZTO
GEZ4NMRV6Y7iMvzY2RC00oOwL9+kQMChZdBYzPEN+orw7YPzbUeMlmHu0ZsD
758j/C6c027NfRkY5V9Gde0QFty1z8MuexkKah0ljwUBjo65bZmdswzrNjAC
LjoB5iFNUObyl2Fa26mXOE5hlv5skVuly4Ce7Rdb2w548sme/4q+LIPb+/7J
s5Va+OO2XQrrp5bBdUtsbtqKJvbdvG3hveIKUN4FUwdOauDpK5cGONRW4LGf
JF8aaGCPmfYGs8MrkBly7Bfs1sAOjQlZI9QVmMsf6BD8fRjTogRP8B9bgTQV
mfl9IYfxLh6+Mg9/YrxAqYNQwiHcxMp1VbhsBQRvai/ZFhzEUzkP7UwrV2DA
XUHjQexBzH1S9nDExxV4ek9o+aXvQYwKTObmvq4Ay317jcuqB3GuY5xLY88K
xMu1jpWXqOHbHySMI9ZWIFLrzO6UYlWsc0NTYJ6yClyHdEIiUpRxEdeFzMbP
q/BbRLQ8T1QB7xPc5OFY8w/a+KdUsqu24emoBQGl1jX4w5LjGpmyGXZFROw/
78GCVO1z+fJf7IeBk12dlBEWtO6e0sS374fAYKiZWeTJijqPJk+l8VIhRDYq
KM+LFf35vuHDDXEqFHgbrD73YUWRh/y47JSoIPKvjOWxHyty19ILnzpJhakt
mZxXQ1mRVDjPqzvZVHhgECBoEkWwEq/bcx0d6HspemA4hxUduNhnlO+tC4Kz
rQW9eaxIZuZt7+brumB08L5yRz4r+qB4ocElXhcKP7If/FrEiqSFT1sMlepC
eM+UVkE5K6rdX7rvEFkP9m2sooX+x4qeWbmG7buvBwE+zm5bfrOi0zZ+HMFP
9SHSeMr10DQr+ubgKHe8UB8Sdvu72s2wogvBvO47avThbWukS+Y8K/qcMRHr
O6oPfw+9clL9x4r4eRTG9sgbgCf5r4PlRhI6uzj381GRAZx+cPlE/AESetOi
dwMXGoLPOe4TpUok5GtSXtxRbQhX9WKO/1QhoQH9Lze6vhtCKuOZldQhEnIa
veUQN20IP21qj72lkFDMgNtaz14jOC65wbzVgoTuTmoJpz00ApO3j4y2+JHQ
tcy4MxNOxuD213FNMICE+G8o6YydN4ZrCjJvBANJ6Fyy7+v/Aonz4IsSMcFQ
Eqp1gA+G0cYgkfLjD384CfkHyhnxlhrDQsTGBL54EtIL8TibwEWDTTWtxnyJ
JDQuZ0mb5qOBLOkJC18SCU2l27yVFaGBQ/A+j01PSOjWtEq6mRwN6r0MNTdm
ktC3GwI6JqY0eHLi2q91b0no395wg9/RNCiJN0pcV0LEs32rRGgiDZqb+ejr
SklI6s+9szMpNOAySX3LW0Gs70Dxl9BcGvhQym/yfCKh1Zl1cwr1NLgTdl2L
p46Eyjlc4r830iCrzPgvdz0JcaZuTLBoo0G3aqcNdwMJdZW2Si//ooGe7OJ+
rlYSilPQrGpZJuJ1qxjkbCehmZiYm8GsdAjKuPGQs5OEjtUmPGTjpMNrcQEy
508Sujkiy1bER4dtAgda2YcJf2oOS8dK0kHZjHGLfZSEtjMpFuoydDgShYF9
nIT2hlFfVsjT4TqXSTbbFAm9q3hk4aJGh6kVj2DyAgn5uSw/ktSnw4njxnuZ
iyT0WqY0JM+IDh8LZVunmCQkHZiGt5rQ4aHH5P7OVRJCUk+7Io/Sge3T1+5v
ayTEreHufc+KDp47c27WsJLRnaaKn74n6cQ5/dyv1+xk9Mzpy9suezrkKZlE
Z3KSUZBTSbeNIxH/PXnNx9xkdDP0iWmZEx1ujG8Yv89LRuylM9NMFzr80Z2O
j1hPRnzmWxIF3elg/fQbNWQjGcUqn5LaeIYOn1by/vjwkdE1faGA4bN0UDge
nezGT0ZzOz09HnnS4VGhl5GdIBkp37/dKedFB46NZosWQmSUbnYjI5louF4e
B9INhckId5x6Pu5Dh64aPjMQISOOu0KVAr500Ns5u6osRkZ55nc/i1ykQ35w
0wsZcTKi9T58ukawaHuB1Y6dZNTqySZZ6UeHCKVYti27yMj96HUFW386zEZd
yOeVJKMVRmVqK8G24xZ2rHuIeKvNzPcF0KFOV5l3UZqMtspU7LQjWPGpQMmk
DBmRTEIn/v/9L3llzmlgHxnJ32TePkYw1/EffO3yZBT6PqJ3G8E+hUUV/ymQ
kWO2V/X/v//1bIg/80GRjB7tn9x0kGADD7+t75SJ+dt2Zt0j4iussazJVSWj
nsd7T1UT8W/fqeaTfpCMPF/ziDQS640MFhJPOkSs92/Z65ILdPjbtvjlngYZ
FTjv+RdE6GOn1B5wQ4uMSqx39goT+tVFlUgGIUJvLp/9MefpoDSe2ORFISMp
7cb6wXN0eKJ7KcxFh4wirw7c4SP84X56Yp+NHhk5PwKzrR508F1R7zAzIKPU
E+f+MlzpYFi4pKhJI6P+UBLon6bDmw1dvYomZGS9sDvljQMRr8f7O9KmZETm
iDJatqXD3I7gYf6jZHTff36a/zgd7INtYrktyShKbl/qEJGf9W0aaM2KjCSd
hbmizeiQErX6cNyajAzONnl4EvnNM96j12dLRj4D5iJpekQ8uhV/f9iT0cSz
2akcCh2MVkLpVafJqLqI4kE/RIciK/ult85kpH56V22fCh12FELWK1cysjx1
Ld/4AB0W3FlYE8+QEQv2SMzaQ4enbVfeeF4gI63hpqgLm+kwXKPQG3WRjAIM
0p9or6PDvje93Hn+xPVgwdc/2enwNlrTfjqIjM5uR4I3GDT4asjk9rpORi1b
r94P6aLB5oPPlaPDyWihpMyqopkGVlJW9q8jCb07eBK/fqHBAKnozZ87ZMQZ
ZFNl+p4GjPde9t5xZJTpst54NoEGWi/Eb91PIOpRrcLvYRQNriU2vMl/SEaV
1M331t2gwYaL+3hmk8lo/bR0+TFvGuySH33jk0lGvnd8ozz1aWCSas/jW0xG
urEN+XfHjOFB1AaVB+/IqKvs1mJXtzF0BJfbv3lPRlVCW1ZnvxmD0wmRojlM
RmvzApcCi4zh0uY2+4t1RDzWr2+OhRhD+nWTIr8OMoq2CXHaxmYM4z6rvfFd
ZCTtnoy6/xrB/lOveIp7yOh7rnHC6V9GUKrJ47DYT0ZPzJ70VlUZwbeFGp6A
ccLfExnsxUFGsOSm6XBpmdAj67/Uo4OGYPReBl1cJaOyj52nXhH716P1W3d4
r5GReZyqZkOFIWgUzPa6kdnQsbLG6POJhhC6nGV/nJcNiT9crttlaAjkqM32
aiJsiN/uiLRsqgEc7VvTUhJjQ2aJlyI33jKAdMXf2/eLs6HFgYED7y8YgF5b
7U+pXWyI5BKU7apnAJE7Quy2yLKh/TyPpTaN6cO6whHb+UNsyMY04bffLn2w
Yf+hOaPBhpLu7NEv5daHHKtqsd9abMjt3Spb9bQemKw87hmksKF4qUszYu/1
IFrX3LbFiA19WC/hTDqiBwLtZTaFJ9kQd8H1/UfP6ILY6n1r70A2RLVbbKr3
pYLBAP1dQjAbOrGj+f5ZUyr41nILVYSyoa5bB9SqZKlQf/9KE881NjTm1XHw
aj8F/KS8DdNvsyHnA8J7bQwp0HjEVK3tMRs6tWl+SI1HG66mbeDXxGzoTllk
T2yyBuRE1HudrmJD2tuUuhOQBrSfDW+4+YEN3fOrPjMzcBjk1f7dbK1lQ4E/
+aSeSR6Gri+/Wbwa2dBvQY9js2nqoDz/dSqtnw1JZp3U/hysCsP6t+u52NiR
atKZH4oW+8HR2GGHJAc7kn9dEPTJSx56TFT8tLnYkTs7j+efO3LQcqx3Z+A6
duR0bzc7uUoWqk8rXZoQYEd/hMjh7FulITmsa0+DJDt6dhNFxlzeAUeLZW/E
6rOjL1dtjnjuLtVqLGXpyjNkRyRXswfOOV0VxhU/FL4as6PScWeNtzzTFZSa
sG42U3akxkzbb3GeBSs0Nyv5HWdHYw5/T/3g5sPrpoMGjruzI19XoX6xZzvx
B6mvsP02O7rc+Ta+/rYiNorqNdpylx3VUdvYbu9Swo3zs8c23GNHHXWFzznL
lPDPj8Jn/8WwI5XNdpfUppUxw9E18WcSO/pl3pkSaqeG96WQZp68YEfNPP5F
W05p4Hgh9TTxena0dc5YaiKYikXDaDlCX9mRwKXyKo4fVPxs2L5kYwMxPvOW
QaScDn5dFN6w9p0ddfMoClf06uAvFi1LvR3s6LjvmeZlAz3MEn3eInWMHa2z
4fdgyBtiD65Mtp3cHMj+0mpuldER/IUUeZfKy4EMmd2G2SVH8L5V9y0u6znQ
5vIPqjf5TfH0jJz0Sz4OFB+ldbToqin27SoyVtnGgbZ836a03ckMh+TWxBjK
ciDL27KZx5UscPTRoR0+dA60xiGRnsFmhWdMarMfHOFAdWGBfJw6VtjcMFux
2IwDOfhub8i9ZoUFtc7prBzjQGcdZye+k4/jpD3zruF2HCjp8WLZGc4TOH2J
LS/pPAd6WSG8eYuoNS5O3a354T4HCo/7UHMn2B7vXtMJqorlQKy55gtalfY4
2tb5HY7jQHaPfD8Kkxyw27ZMlbKHHMhrW9FBHz0HvO3BHvmipxxo0oar8U2j
Aw6OkBHPyudAO5kvtsRMnMIUTwXW2985UO1Harr6YSfccFijxpyPE32NbCFV
6LnjWyUXl/X4OZH9UED3Sy93rK+Sd+CwICdKbjKNq0hyx5XyEk92CRP3/xxb
MJ92x4U7ufzndnAi98GK9+pJHjiRs0U6XoETHb/GHcC3eAafbj5zp+MIJyLn
HR4I/s8TMzweWThEcaIP4zkdKwE++F7gM86waE50/aXQc6E4Hyx16+X75BhO
lI7zThrn++Bj2e93dcUT1/veZq6O+eCCka6/x1I4UZV+xoV7NhfwWSfRB8av
OdFgzn/Vvnq+uM82uUW1iRON5h14livnh+tMU46t38KF1PZs1VCnB2KPj0MV
nFu50I4Glpi8c4F4/cF90qRtXEj02s/fWlGB2Fz83dKCGBcSfxQw+fxbIO76
3ZTSJ8mFJgNtL720CMJTtzjGC1W4UOMRtnA/h2AsWHMu9OQxLrQY0Kly7W4o
dlTXyMp6wIVGdZ33osdXsPvv/+a747kQb4jBE+GCK9jrqb3O5ofEeOF17Wx1
V3AY97X+4GQuFPFQ/sOmuSv4ccdnEfNMLnS89WPCGu0qbr1kFb1SzIWyFohu
RrqGjUp9Lpl1caGq5FKjjMDr2MyTrS68hwsZj/ve/xJzHR+XiN9S1suFnD/o
T7G9vI5db70rlBrkQtEn8gTzu67j6ydZppYnuZDctXnaH80buGLprmPmPy70
JbCTyc8RjmtyxfO7WLhRxc21j17i4firY/7aJjI3kjcNsuw/GI676lseB3Fy
IzdlLebqmXDMSBJpM93EjdL67wdINYfjNZMcyfDN3Eh5afi1xO9wzEEG3/cC
3MhB4xW3EmcEFjjjyCclzI0quZcNow9HYBHxOXtrEW7EoNIMeo5FYInmG7nR
YtyosDbpgZZXBJaJEFqtEedG51uOH3pzKwIfOJxtvLyTG/F9jv2tmRGB/wfJ
x0o8
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Pi}, {-0.011545645218480746`, 0.0008993651344887945}}, {{
     0, 3.141592653589793}, {-0.011545645218480746`, 0.0008993651344887945}}],
  
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.518739072249714*^9, 3.5187390922303143`*^9}, 
   3.518739378971005*^9, {3.518742758688917*^9, 3.518742763095243*^9}, {
   3.518743234572774*^9, 3.518743237633823*^9}, 3.518743280724813*^9, {
   3.518743352128582*^9, 3.518743365082287*^9}, {3.518743471707502*^9, 
   3.518743519023591*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmHk8VO8Xx5mxphJlLWtIlDVbycOM3UxZQomkUChLZN8TSgiRVtKGShQl
xXks30jZsobsu6zZxpLf/P659/V+3bnPPed8PufcuY/YOQ9zJwIDA8Nt+uH/
Z8UjOSZrYuyY61vK1NHnMSDjdVacIMqOM1ev7Y6OjwHxl3w0NmF2fDZ7u2bP
1Rjg3hn9gleQHQddCj8M+jGwMHGOUYmbHQek3DAkj0dD8f09Hy8S2LHPmfvJ
FMVoQKuJ4m0DbFhk7nO3bF0UUD/50vKfsuFtNtGyF5UiwdXW3jz+CRs+GrKa
0rEnEmI3DV65ZLDhKfHjHadYI6FKT8BO/AEb1r+4pyGhOwI0f37GKclseFGx
3qM8JgJkJhlifSPYME9sgb1OfziwCcXxatqz4bia9Pp27TCoDM9QrhZkw4OM
8v9m7wdCGxi1V/Oz4Qq2HVdYAgNh7N/fwBpeNqx7+Ze7yqlA2B5iWPGNmw07
jr350csXCCcD5kx/bGHDFpl2jxzTAmDai+zetMqKR0Xe/See7g8C50ezuzpZ
8Tkzyt+deb7goScvPHufFVvP9XPMi3qDkjP+tprOih1nH/PdYPGGhWizq8x3
WfFX0b5klT9XwL/G+4dgCitumPsvp/7jFYg0KQ7Ui2PFPGtsfAymVyDNTKf9
fhArnlM9OW0Z5QVf7Cxu69my4pEN1Y31FQ9g8/UjPBBixc6UJb/3pq4wSzys
ELSbFTebeRQai7tCR9K63WkBVrzlFsefbQsu8PJNxKfdPKx4K7vfAF+6C+gP
x3k+3MqKyzXUWdUGLsL1E5k9j9ZYMMVaViEu9AIQlL+VZP5iwQGuzE6tbY4w
gePGwttZcBRtzuvTG0f4eewYr0MrC3Z+/0zra5QjPHFt9hJrYsHGen/fnVJ2
BO2s39JZNSw4mPrd2Cn5PIRyzac9/ciC44789KdZn4O1GUHvF6kseKW3QdiV
4Sx0CGRM5qaw4PNVUwao1B4KyXsd3yaxYA+Kwb/JAHtwvytrWRzPghdJFS3s
C2egT0tTrfY6C+5wGfprPmkHX+Pt1qausmBE+hdDGz4Nt2Uzr6lYseD3//W8
T9xyEi5ZSqxrnGDBG4+yckbqrcEoLNtHy5wFi76eTwtMsQZCc76TwTEW/FIA
/3dSyBquBpYbnNJnwSoZEr4TylZg822AI0SVBZN1ax3Jl06AxAXJO1W8LJgn
IzC7kc0MpP51JjzexYJH5BcFxBtNQTr19g1/bhYszccxVHTXFA5UroUe2M6C
3xgoND3dZwqHRH663GFmwZ+aPwZJpx4DvfZQ5LjAjFXYDQ+QNEzA2aBjgviT
Gd9YeLHs36cLF3vih383MOOq558es4fpgutVct/HOmZcwzR2aJewLrg/zWt1
+8aMs7XC+lLtyOC7GYWbMTPOtDwsSBrQgeiPimlP3zLjZ2RK5CRRC17ui9Mh
xzNj3mMZ2UKKynAyc5/uvjhm/Ho4eTwsQQm2CFTpc9xgxgXfvZ59+qMI7ls2
TJqjmPHb1x+VCl4pwKEpd6vzwcw4vHWyTfvCAah4Z+52zY0Z+8OnubVWceg5
KphaacSMj8y9JvNPd5fd/vDh7ksDZqyfAYTr3EVaJHmL+3F6zFhPMPcl8emg
1nPRWxkWOsx4gzUv7tSbVa1LxH85g+rM+Nouo2nD8W1otaa/jCjNjNkL90a+
WxJGvCdyxsgszLhvd4x763k59OUiqyqFiR5feAU/i5o8Oh/idO0EgRnXpjNn
hDIpoPwXYsJO/5jwLXUGuSctCsiYds8ieokJ2xzIwhmXlVDY45tlNSNM2EQy
LrkvUgWNjbndoVYz4WvjdcFWR4+ghI1v/Zb/MWGOsPpliTtHkAq3tPyZSiY8
F+43eH7iCIo8MvTNHZhwUFvCy0OpmkgowXYz8SMTDpNt2XVw6CgyV6a6/nzJ
hOWtW0njytroc4ictnUsE+69gCKso0goerOUUyWaCZeMfYnYlUtC5hHUXu4o
JmyapB8c1UBCE1GXQuvDmLCsX5l1qAAZCd7K/aLnx4QLN9679eWQUeB9KY1D
zkw40r7gv5Qvukh/zwc2bkf6/SGHyI9+6yLux3odMw5M+PPp1gS7f7oo94mj
3ys7JrxzLC2CiPRQZ3ZWkbglE64lbLkw+UUPHf4orMSly4R5g4ec7F/pIxaN
PMYZHSZ8Y2RP/Vy1PvpZcrTpB2LCu5/4fNEa0keuZbaesUeY8F/9Mh72PQbo
/n/38zaVmHDx43N7nGMN0Gozr+y0GBN+ISIv53PCEH21fLH6XYQJC1rzK9de
MkTJ7Sq1OUJMeI/tV5ueKEMk03XCxUmAXr/NyUWdQkNkM5D8snsHE3bL+Ru/
zmmESma3S3zfJOKDXz5Fen42QkHbz2rVbRBxqAc+71ZvhDQPFJxsWCPieCnV
cfl+I1R6wSK+eZmIN3yVU3lZjBHuubvUNUPEGl9jrO2pxqj6h+i3P71EvFlc
eZX5pzGKnfAanP5NxH/PiUa/7TdGhmyVG7Nd9PX4hBil5oxRLdlJabGdiD/+
/jXsz2mC6ktyHmw0EPGlnrNyn41MUEu2kvt2TMQ8SfkP2wtNUOrXa7E7yojY
cvf0G9tyE2Q11JLF/YWIsx7ldOfXmaAOEb923mIiLtQt1qweNkFdaZ+1RfKJ
+NT5kZz8nRT0sHDrabE8IpZbMDJ+L0xBtj/tru59TcSuIqE20fspqGcbQ+6+
bCLWPyx85bEWBQ1E6e5UyCTiXymJOx44U9DTrNSDSo+JOLv3WIWkJwU54hGD
Qw/p96tHK0YGUNDwWmywejoR+4c3TeXHUdDYlbph7dtEvHN03X7iDQXl3BZm
ICcQsdgD8XDWDxTkmuchqHeLiN05a18sl1LQn3Gu40axRGztVJ1rVkdBM2et
is3CiTjs9qPN2XEKOns2odMulIjrv1+0uDFLQY32X9ddgolY75PZ8+UlCnp3
RlUn0p+IO3p2dVkRqUj8jPv5BF8inmdN2mLITkUpdi+u3/ch4vTzHg2cnFTk
Y8tb+86TiLcR+t7uFaSiodPH/pS5EzG1JpHXU4SKLE9Hb/9+iYi9YruzUySo
SNVmyXzwIhHXHPs5fFaOilas27p2OhDx3RmNFj5tKrpovf2fiD0RSxubvhLT
paJfVvqiB+yI+CvlfDvRkIpKLD846p4iYplty+Vmx6lIxnI62tSaiJ0vc9SW
mlPRgxNSObaW9Hr7kEsIVlQUbJE25WNGz1cjZZjPlor+mNdzRhyn++3eF5ex
M1RkZ86iFE8lYkLqwYvJDlRUb6Z14p4JEZN36jPzOlKRlpmv73MjImbeZu3k
7UxFeaZ56QUGRMwVl/k69yIViZiOlJTq0f34yHzzsysVMRy32mzVoevl4WB9
2Z2KPI8liA0gIs6/X/9smycV9VO/kqePErHop6r4WC8qMqf+c1o9QsTeZhKq
PVeoqIKiGstymL7e1dLy7T5UpERxz+VWJ2IBX9MTglep6KnJix/CqkRsFRXP
xehLRbtMeqZlDtHZgkeoks5RxrxcakpEfJ7sf/+sHxUtGB1TJisQsW+A2ptf
dHYyirY8LkfEdxIq/eX8qajNsMzv9AEihqkQUXs66xsu3bsgQ8RbPn2sdqPz
BwO5L97SRNzZ+y7pBJ33GTj3hEnR/dKf+USAzun6jxluSRCx8KFngp/p67Pp
t4mnixPxU60GEQ06++tt13smSsR7ZyVaUujxjevqX8gXJmLG/ek23+n52OiG
3viyhx7/na1tvfR8a8kfXtUIErGPsZVLkzcVHSZP17XwE7ED0lDLpNfnFUlq
to+Xfj3N9RyFXr89pDPcU7uI+IhW4rY2Dyq6pZN2iMZNxKzzmqeP0uu/rl1v
xcxF9wvX6uXIS1R0WZslgIuTiBHh6MXndL2OId/S/RxEPHFg4OF1ur6glder
wk7E+0OHdpPp+itojTCSWImYj+sNRy/dH1xHrfRtiEQcUrDv6zu6n17kwMQR
RiKuFvzy7fUpKtLk3Z8otEnAtE6tmTC6/y7OrLX3rRLwkR8k6ju6X/+ddgqu
WCFgRiHpbi4KFd2pqRd9tkTAvhVVGiZ0f+MnT1wuzBOwzzrTNgq9H6y2c2w3
miXgZHbHjp2adP8G+ryTmSZgh7k5oQ9qVMR/wmBtapyA74jIVtyk95Mny9Qt
n34C1mq7siuA3o8s3laKVr0EfJZw1FqAh4oe9kKr2m8C1nNTv5BK79+a4mTh
tQ4C3jz9KU2MiYpE3dTzIxoJ2PmFQHXCJAU1NFxrTgACrkwIqux7T59XmlN+
nqUE3Hkgwc7sNQWtZlvtMf9MwOpFp05nPqMgqcj9TjwfCViRZ0Gi8w4FhR5q
WHqQR8CWpXn25d4UJHdPUDDnEQELZrC9iZCloCrmqLKbDwi4yUfbfVKMgmyu
TJ27dI+Aldl9eFT5KSjaBL+STyXgAYfn792Z6PN1w+noh1sErKlfHOTVZYLi
zxWcrQwi4HP9Zmd6r5kgfrfu498CCHh9KZxVPsAEZXmzogY/Ah7eoV/s5G6C
iqPshLq8CXgo+dfr2JMmaOgFe+e8GwEXnerRzZY1QYcnHSzEbQn4bvQRXpc6
YzTiza0foUnATwS9ff7bNEJewUdVYg4TcM1yu7zivBFaj7ooEa9OwEZbnT/F
DBkhrrQywr1DBPzwB/frxRr6+6/YFfIPEDCri5R2x20jlLxeod63h4DNNGf9
m/YYIXTdWxZtMOKp/eObp6UM0exqw0PBNUbMyzqkzsBjiDI9D2xfWmHE2Ttf
lyQSDRGD7fDs6wVGPDwxKuHVZ4CwkvUHwT+MeNKxzUnnngEi9R3WWeqkc977
CRVWA6R3hGD9ppgR2z4VxHateshk7nbkbh9GnCY59XdAh4zI35ybA6YY8Kfd
nns9Tx9BXo+ftkx4MOCPEsYBFWYK6G+AX5V/wyZ0cJkfy/PlQl4FV7V1mv5B
byK6UvqbH7KCZFprSzfAJlKoYzhGAWS4TTiSPm1ArwF3xvk3CvAu203HumgD
vDnI1dU/FaCy9fWbwdcbcDG0oYMkpAhD8vLR6w824Fbd/hOMBYogOaSsJhe4
Aa7nsu7ebFaCbMrRe0mqG6BIfPlQhkkFFAbtGqyVNiD78PpdfSkVKA4IZRaW
24BtU7u36xuqQM0L8MqV3IC4K7K7ZuJUYJyBZFy5awMGztXLjXKpgkyR/trC
/DrEXuqQtONXgzdCpnYn365DjlzAwabtGiD856/0hVfrcCL2grWsrAbcLrm7
cPXlOtQVxQW7GmiAj3VvXErGOjxVygu6G6YBmknuJfWJ6xDNVf0yd1oDapni
+fQ818Hppk1VdvVhGJv81qSouA59h1i4Mh01wabk8iPtg+twJskkJCREE37E
crkc378O5eFMolppmpAveYrhstg6lGR/b7lYrQl+9mNy2VzrEKVmkXJO+iiw
NLPcEp5fA88WS5vuoaMgUULW53i/BoY3zlPvGCDoO2fM+1/eGtSY3cqJOYPg
EYfZSGjuGqRma7lZX0XAa3cmev7JGnyaZxiLy0LAzhDw9dftNTjD4GtksIZg
Wi9PP9t9De7m/GT5Z64Nr6YLec+5rkF1yrZSazttuHj388hu5zVYuTClmXFB
G/rHaqIT7dZA8uhc+HKQNrTEDX71paxBV/yix4+n2vCpid9AT2YNPOpmgDCr
Db6BInybkmuQLTikq0rTBqW9UqPFYmsQ4rxf1ZqgA699lGMOCKxB+cspA4dd
OvCY71j1TrY1sH3xKzlVTQei7K4ZDAyvgizloXZgoA4cG58yCHuyCnXqxYe4
53Vg4Zvfm4hHqxDy9imT74oOPMhl3Bl1bxXG/LaLfPunA2NuPD2xSatQf8tD
6igHCSKmNX2SI1ZhdTJPynYvCQr/xmU+d1iFyOS7ut6mJLBp4WHJtluFfzF2
xrWWJGAsynDLPbUKAZqdrjtOk+CY73vVt2arYH368JyLEwlGVzp/FOuswp6u
E7VmASQQ/Lef9l1sFRrOtoXPPyIB7nl/pl5oFTaKuAiHs0hwAY5WNQqswpFo
Dj/PF/Tnh5sltnKtwr7ifOXcPBJQiQGSvYyrYNU+UmpaRoKFQUJc/wYNop3/
ZXFWkOB+1a3ZQRoNuHueuZX+R4KR65mfx+ZowLr7YObwDxKEs9WYzffTQNSN
wfFiJwmkxs0+LvymQdGypPLj3yT48a1rz/IvGjimdbdX9JFAIG5mdK2JBpoq
zx90jJDg3Ta+UOYKGtQwSw2ozJPg5HTmIGsZDXSKBJQHFkiwWS9jtKWEBiFu
P6khyySg3NbaxfmOBpKmFl1h6yQY5nbO5c+igcK9cuUPzGSY+FAqIv+YBucG
mUXqWckwa8OTqnefBpeqlH1b2cmwnlUVdiWZBv6M5xzfbSMDwWDPYmwCDYhq
EbQYTjKwTXq7ZtykQQquXqJwkWGn8l7LH5E0IMw5SD3fRQb+9sDagVAaNB7k
sVbnJYNw0E9EC6RB+2zenxI+MshURshIedPgrXMeOUGQDAoXfmVoetAgPaKQ
2LubDKocijwWbjRI+N0vKSJEBh2Lvs2w8zTISzBJuCxCBv1ltatp9jRY43Np
DhIlA+VB4sTr0zTw/ubhHyBGBnM0al9pTQN8bSjYWZwMJwe1Wn9Z0MBg0aKP
tJcMZ2LSjGeP06BY0iJruwQZHGWngYVCg4dzoRXf6OzaoKciZEiDFZdgbR9J
Mnh4P8pV1qXBRPXK7u1SZPDhWxQx1qaB3cmcE3fpHPiZknpWk66nmskE5z4y
hNs/2+KnTs+H+Vm3H52jieth8Ydo8HxPhGwDnW+9tFh8qkADilRxG480GZJN
XrmWHKBBZr1Ujwmd02cIfY3SNDhY/E7Hi86PUmwsRyVo8KfdiDGazllq72o3
RGkgxT6w5yads7vYtXcJ0cDFIeBOCJ3zwhyKZARokPiH5+JZOhfu/SSjw0OD
UvzfXSU6l1TvyLTmooGXVsbeBXo82O0ij/s2GjzKxxzP6fyVE9+MYqdBhb+p
qR6dv7/nY3jATAN+FDLXQs+30drjagEjfb0rITMWdG5b+zpRvbECk+OJxhX0
enVnCJ/toa2A2uE1giidB8i+rQuLK9B9drvAZXp9x0brjDnmV4DFRDQ+h67H
dJwkFptegf3/Eu1b6XrRmltyj42swLzCQbE1ur7//A6IOg2sQKiCDtciXX+m
PVGpQT0r8HEuzKFHmAw7HJXDs9tWoOP2U4mwPWTgZYtbLPu5Aq9uvk1Xpftp
z+sB19b6FZB5e8jjtwAZ9i0kWRKqVyD6lpk+je7PA+njtfyVKzAqa2bozkMG
JU0dbXlYAZfMe29/7iSDVtSsjO3HFXg2drDAZQcZLHcdZ/jwcgXERfTTG9nI
8CKZPdDv6QpoJNqZpbCQYWlH1V/1jBUItjSIJTHR9dymMfo5bQX+XJz0cd4k
QSfL3vry6ytQxnjaq4revzLXfxtci1gBh0sPtSfnSBBETC/XDVmBKdfoe/+m
SbCHYVtRtc8KnLy1a2ZijARnaEsP6s6vgAmlwaaziwR5fgU8ifYrkK5Ymu3U
QZ8Hi26JpqdXoHx5OeF3Cwky5/sim81XwDko6EBKHQkGJmtdfumswGU18igP
fZ5d6HmsNiyyAp8rVmyDHpCg2PZUwYvdKyAff+dIUxoJ2Lp2yl7kW4FPVKWO
nckkyG2PFZ7cTteb19XKPpYEfxqvMM9tLMPKacYPnD4k8KzUb17vWob+9SuZ
HQb0eavDSC1rX4ZURRdY0yEBF/78Nax5GUR3WtdxaNLn2xeFEsL3ZbCf76+c
l6fP1yLBJ2wlyxDl/yy0m5cEAdnT7rvSlyFjw+uCeL8OFJ45ECp8h/7790WG
iZ06ML3LNV769jJgwZjKyWYdOBcx/Eozdhn4r1FTvL/qgIlN95ij/zJcPPZi
rSxXB4S21p4rOrkMMkYvtxl66kC5x3MrK4Fl2Hg8P3l0RhvWJQedzvIsg5oo
Tfr5iDaodotedeVahkah+qD139qQa/gwJZR9GbSW3/gE/dCGFLGUxhe0JWDM
LFT8nK0NTs3hxsu/lqCr4PuY3hltYFez1Uq/vwRRH89JWgYhSKheN6OmLUGQ
3Ir/VUcEu04+ciIkL4H9Ocde+ucUCAf03Lp0YwmkH8gLbQojUPp8tkvbfwnM
3vf/uYS1wAY5+Y9bLsEt4ZS8rPWjkGvg/u4w1xJ4lAeTB2w0Qb5j+9eZrUvA
biXJlYU0ofDi21/P2Jag5brlIJLQhLIbswycDEvwM2fgF8/UEfj5/crxwelF
OCAks3gg5AisHff7E/djEab/fjrLd/cwUE6GS/2OWYTdN3RW7d6pg8LraaMX
1xbByExB806KOvAw2F32CFsE7xi+tVc+6tDzUqOQ0W8RWJLsNcNV1cFzeV5H
ynkRdmi1jZcWq0FKmpOdh+4i6Fm7SWR8VIXOFuM7jIyLwHlYNyQm4xC4mPEQ
pAIXQHF+d+nbPQowr+uvdSf0L/j0TavklAuC/PeklMrL87DK8OZCbAY36jAJ
MOL3mIO9+/O4CnLlkc2zpnnPq7Pgm6482dB0GImIlLvw1E0Dm+mj6SwOMqKw
dJyT/28aNpu2V14XIaPAqenTRqXTkHbYl+2MMhm1fN5zLOTNNOQf0o+etiGj
2JP+SsPx00C4veX1rRwymk2SXys8Ng3JghwXs3V1UTnT41snGqfgUFSfcYGX
HpqeLLzuXjMFigwfe7mj9NCe5u+hsXgKWg961zun6SHfJzTPL/lToCFw3mK4
RA/JaFlaSiRNQY9GyYHDRH2U7LdVeMFsCr45XAg7kKSPzk8Evk1p/gPI3Jcl
+IkBkoq2LiB+/wNVp88dPPneAI2JHXrvXfEHOuM4XET/M0Dup6Y+WBT8AVru
ZIrPmAHyr7Ev25n4B3xn5cf3yRmihBe6dSnGf0Bu62LPgyJDVHxu+2RK+STE
Nehfh/dGKOjfxB/iJzofK/34q8IIad2vnvbOnwRV6vfrXU1GqLIpfN4iYxIC
x26eTZ0xQvXaf2k7QyYhbP7i5u/9xmhQuIPtjvokLM1pCWTdM0bbu55I3Xk7
AXUfUt0mHU3Qs5Eoi9SXE4DDlHXHPejfe/MXwtMyJsAq2ye/LtAEObPLdaYn
TkChG6o0um2CytRK4h95TMArj4PGHCUmyOPOz4UX8hNgkOJ66S4bBbFkFoll
75uAVXUrygwXBT18lX4sR2QCOBNtP8jupqCaijPZrzgnIHNI5ZnZQQoSnZs4
nT8zDvbhu3SPmVJQI5VY+entOPDIRBtO3aYg51MjMyUv6SzBLx6aTkHrjt/2
fMkYh8bFxEtzGRQkHZzoW5Y4DupqH7+H5lFQeO5umUqPcchf3rqgUEtBvB/+
WVVdGAd9Iee0pkYKel3ef+0/+3EYvMN516Kdgjo6Xv6uPj4Of0vapNcGKUiB
9VDSD/lxWDlytLxljYK+cvOV1e0bB/aU5BvBjFRkK7w6US8yDmU/795jYqWi
WBWs28Q5Dk9WZJmKuKio7zxlpXVmDK7lHJFOkaQiXw95yfbRMbj+l2ShIUNF
W4O4zTt6x0DCnfyqTI6K1JM7XnU2jMG59w8snNWoKAk72ve+HaP/P157IGlA
RSPmg6/Yssfgq0xJyFtjKjo87LCimDkGwXFZwH+MiobY7ZOibo8BlfNJV+wJ
KtJ4+Pv3m9gxSFNw8Uq0pqIEOVuZ9vAxqC0q6/GxoT/P4lTlfq8x+Oz4/UOX
PRXFD7dzWriMQYpjcbftOSoa8LOyDXYYA9eox6ZfHKlIdUtr9vNTYzCSNTdD
c6aiuIcWi/VmY7DPnDedx4Wer9xPnRWjMWDd7yDF6UZFh8pNE8RIY8Bxis9/
5BIV3bBo6DQ+PAb5B91dH7hTUc8wdZ+P0hhkXY/rPOhJRcr+P7wfyYzBkMn1
54/oAzd2iwn+Kj4G0vUO2RNXqOj3w29bZwXHQD+GD+/6//6fvOEpgZ1joKYT
/233VSqKKf/6nMQxBjnN955s0rnbQm/ejTgGNT5MktiXihRGKrVS10bBziZK
wc6Piq77k+LK/o7C8Smc2Ubnzi3l7aOTo7DtlZn5AX8qknuEJLiGRoFToUzs
DJ2vyZd5Hu4ehWuqoZP/3//rKNcsPd8yCrf9aHGWdD544jN7/I9RyC2K6RWk
c+SIhtWHqlE4VuRZ8f/9v3b/4qzeL6PwUOXPDnU6H+BQm2ErGoX+abGXifT4
Ih4VHVF6Mwo7k/Y7VNDjb5M/FHv6+Sh4fdiyu5Ger2zFu5aoR6Ow3vUlv9ib
isJPKIrlpY4Ck+G+f0H0+rSOvL3cHj8KFQ5ivQL0+skEyJUwRI8CD/GKfLIH
FYVyvGGRCR0Fikpj7dBlKmp+JGth4TsKKQkDt7jo+kgr5GYEu49CWCoy43el
ouAK6T/PnUfhk8XlvysXqEhqVPL6itUorN4kIIPzVBQU8KxJ7PgouM9KZBSe
paJGjr3CJgajsGUs3njNjooCFUQ/PlIbhY/XFmd2nqSihorHxGr5UXiw70Dm
MN2fEpZCprP7RkHylADbbTMqqgsQHCfxj0J61E9Xd7q/xbfeU7m0g85j5ruz
9On985gvMpVtFFqS5qffkKhItHLX7rGVERCsIblSD1PRVcuUC1xzI7DPem91
nwoV1Y5yFR4eHwHJ49cKTBSpyGcrJzX+1whUvHZNf7mPiqot2cOUSkbgW93P
BG9uKnr3kNpSUDACnSeePdbZSkUPB5P2K+aMwOfzPPk9zFTk6SXYIp8+Aqf5
tXmur1CQYLzs/oO+I3Bza2RSSBcFMbV4hL6+PALbPn2xLmumoBnBwmZZpxFg
a96S/uM7BVVla4bKnBiBpBjbctPPFOReRW3epzQC2t7bTObvUtBJjmTpl/tH
4Ipime+9BAoim7eFSInR8zPmTtx6nYL4+85IS+4YgfgB6VJLLwqqWPMIEZ8e
huEwnwR3A/p8U07eJ5Q7DF/u1RfEj5sghsC24IdPhkEq/+ZyV7cJmsSCP3ff
GwZWDt6N+QYThI89DRaMHYbQ9V0BgUUmyNW1sInPeRh4PfJvjIeYoNInbUHc
4sPw0jbEUZDJBGWPCTYlCQzDHcNH2t1/jVGyvL0UF9cweBaZ3D0/aIycS0cb
ORmGgU3rcW95uTHa8WtFclvPEGiees78McgYOe7Y3ch6fwiSCusyTwwZIfFq
J1P+5CHYm9vp8Jr+/uoLyW+UvjkE/2WpHq0vM0K2k3pNRoFDYJ7deNsj3QhZ
fPX8GWczBAHJazV7jYwQKfhrC+fuIRDVPC4tm2mIGJS5LEV3DkHFzYBYzpuG
qGz8dKsCxxBIMw8qfvY2RBrWc61ma4MwcSko54K+IVJQ2tOe0jUIRP6HUjvG
DZDImNcvvoeD4G56d8p3rwHqfvzllPSdQXh7a59BCbsBum/J2ql+axAi320w
VczoI97Kh52nggch+2DAnNBnfbT9cXXXA9tBKJwTcyIc10frFkI9IkKDcPhT
lPwJNz3UCTUD+x4PwIkzyz9rfchITvaXW0LqAGzKNSddMiWjiLTxhYVbAzB+
U1GtXJaMpC9vYa0IGoDMsF/qkf0k5CtIkbU9NQCt6gL7bY1IiOtqg/ftXQPg
sWNxWG2LDjKUaWOi3ewHypvY3ymPNNHD1JF4+8h+OCmo3H1XWxPNMCzzfg3o
B50LFW5zA0dQWjvf/pSL/ZDawyX1VPIIGoo6RT2o3w8DSy6W81kaKLy3O9WB
sR8Ov7TR+Rasij7eGZSq9euD1gC3ViULeVQbndhw0qMPGDLfBX31lEPd/kf8
R537IIp5i/vsrYOIwS7lG5NVHxCOSTATy2WRkST5EjrUB8z8xGhmfmn0wU3v
vEt/L4Tt0o5NDhdF/95U+ms190DVisZxd4kSLfHk3bWnK3rAZMj6jtObrjID
X+/dAQU9sIo9NT9smSm7rbW37H1iD8jUPpW38GAA8YZI4n5KD3BH/XVoZecC
/VmdhJ3//YbOPL5+oadiEK+En4596IZTTR/SauOU4OSShIn0y26wsGpnitur
DBIlN+Yv3O2G90Pvs1m/KEOJjoXOqF836HOfCVCbOQQjpiM9w+rdEHywMyP0
jBpoe2wVHCzpghv7/Ip4HTRh4dXJ27/LOsGvz0RqMpgM4FGqJvS2EzZiSstZ
WslwU1m81zajEzK+3TSMPagLYp8nD3aHdcLCFiWBsl5dOFYb+r1TuxPcfdya
1wz1IXvsGUtHxS+47bnTdUXOCGwl54J/fu0A8r2NvHLj42Bu3q9SVtQBvuPd
RjnFx8EorGk651kH1H+sVL2x0xRUfxWcjYjsgI0UrRNFkaawI/6KroJWB3z6
Lqgs7GgGVQt/ORKK2sE5TvbFSWULkK1aum/0rA2ecIs/e85kDeJzIxYqKW1w
NCmQi1XXGviF27eKRbbBG3fh+rxr1sDk/zF0xb4NTl2cn2winoQeWf9zL3e3
wY7ry1/cWE9BcgptP3NKK7wuEuDm3XMaVs+tF+OIFgh5XvnfrWB7uOtBq673
agHPQvMlLWwPh4KX2rodWkAt3adKgHAWPFJnF1Z0WuDUviL1K/pnYah6SEGR
0AIal9kaCxvPQv2Buuwnkc3QN5nLmzzpAFlLj9Ijr/0E/kryM40jjmB0E/nr
Xm+EhpsthDJ9F3B85v0162ojvGv3737l6QKhZS93MTo3wsMO09Sy+y5QOM9Z
UKrfCK0j40vmMy4gerpvXJWtEXLXyj5r3HeFP9aEj+a8DVB4k92fa9kN9B9c
D9kjXgf8z48MBNe5w6rYrS35Gt/AeurNr3X/KxAtzVFbxfcNCvL5svlSrwC3
/M0bvxZr4HblWxuTgisgoxnLRnxXA1yjH15sjF8BG6soFiuZGqgxee6daOsN
n28GE9YFqyH6dV2Fj74PBP+9tGqwXgV9rxWf5h30hc0q6kRvGYYcIX5NDWog
dNwcsdTIwHCriiH57eVAeGcaVp4chkElvGdKKyEQnLvz0/W0MdS98/+T3RAI
6aP7EqyuAcz72wW8sggCRb1Cg6nYUpC2YIr2PRsMjgx1JYJ3PsGr+E6Va/Gh
UOv7L/NqbgFcO+a0X/thBAwsVtd/P18APqGGjwXeRcCaT9K6mFAB/BTb2sFU
EwEHvCVO1ifmg1mGXOWOhQgQ7L0jfGwiD8oHqu5uUiIhs/HAWn5YLrgy2xmR
CNfg1XvbQt/cJ1D8pMT4eWAUdBfMcO4VegIdYz5J35OjYGt+pFtDYiZcfGkw
zfSKfv2kmZ7pxGN4Z/KWp6ArChyMx8Xeh92Hr16LlNmj1+HSQYEu/9wk0Evs
pO1kiYb6/Si5KfE2HLi+WeUpEg1nKLXJJyYSIEw1yKpfPRqGjp7z+Bh2E/LM
tWgbbtEwI5osHZIbAQqmyf5SzdHgqPzloN1EKPStjuSLT0XDuMSJLTgsENrU
XrMrs8bAAmtU5fVcL9hNXTO6fYTO82raTWGucF6QYvjbMgY2Wy/Q0nIdoNvl
wR0tzxjYdUXe6VOuGTAZ2BwuvBkDRNhSP6jiVTYps6mr9TwG/gew/aou
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{-Pi, 0}, {-0.011545645218480746`, 
     0.0008993651344881424}}, {{-3.141592653589793, 
      0}, {-0.011545645218480746`, 0.0008993651344881424}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.518739072249714*^9, 3.5187390922303143`*^9}, 
   3.518739378971005*^9, {3.518742758688917*^9, 3.518742763095243*^9}, {
   3.518743234572774*^9, 3.518743237633823*^9}, 3.518743280724813*^9, {
   3.518743352128582*^9, 3.518743365082287*^9}, {3.518743471707502*^9, 
   3.5187435191145353`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p", "\[Rule]", "0.22308510060189462890687788351225270991`17."}], 
    ",", 
    RowBox[{
    "q", "\[Rule]", "0.77633023248007499361248053764640833501`17."}]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{{3.518739072249714*^9, 3.5187390922303143`*^9}, 
   3.518739378971005*^9, {3.518742758688917*^9, 3.518742763095243*^9}, {
   3.518743234572774*^9, 3.518743237633823*^9}, 3.518743280724813*^9, {
   3.518743352128582*^9, 3.518743365082287*^9}, {3.518743471707502*^9, 
   3.5187435191169*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "+", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "+", " ", 
            
            RowBox[{"r", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}]}], " ", "/.", 
           " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"gigasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "-", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "-", " ", 
            
            RowBox[{"r", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}]}], " ", "/.", 
           " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"gigasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", "0"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"gigasol", " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.5187390421257467`*^9, 3.5187390718714457`*^9}, {
  3.5187392997065277`*^9, 3.518739311382125*^9}, {3.518739385798242*^9, 
  3.518739394636228*^9}, {3.5187427657354727`*^9, 3.5187427697535152`*^9}, {
  3.518743529974262*^9, 3.5187435615684958`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk8lN8XnsEwjG0SZcs2bZJkT8y5SSn6SihlyRIliahU1lKRkpC9RFlS
oRBaXUkl2ffslJ2xZF9/7++v9/N8zjv3nOc5z73vPZ/PyNi7mTiykUikS+wk
0v+f7Jin8o+aO1Pa6XHQOjVHvHGwcPeGh4eBGXRwTZmAI154s8Phd4QNbOl8
O/lqyAH3rnWay49wgzIO3tWlJAfcsv9WcWqEP6jyqxytEnDADTYRmxMiHsAK
1/U/fDP22MRFtCU2IhF2J6nVFf2xxbyagKP1k+BMgWk4tcQWj793p3d/SwKS
Q7aGV4otzv/cmHe5+ClQ6oRiWxxt8d5vSStPPiaDxa97R0UabLB1vWrYROZz
2Jg4pyI4a43DJ61yoyNeQxCbjHTBZQt8Xzheu4jvDRz2faL2fLcFrs2+LaVm
8gbslc4qscgW2HLIqndD6xtI0jl/3P/BCexqSXOfHMmGnv3RwilZx3GkjtOd
OMG3cH/H+OnUpWO4kyxb0G/+DvxekJ5TG0wx4wlfvNXjd+DyiuQnm2qKnbTm
fWq63sHMelJv0GVTPOlRrfvx7HvYedKOV3WdKeb461cZ6v0BJg488aCeNMHy
31t71RI/QR/vUcnj88Z49zcDHt2LRdD2lenxqvQQFqxPq9J4WARblBz6Xvkf
wn972KK25xbBxzNnnTdoHMKhpI9Sov+KYHRiMNP8uSHu2b1NbdzjCyhu3xTC
d98A38mh2T7xKIbIqWQQP38ANyaW5y24l4DYxamRKz56+FXWFu/x8BL4PnUx
vArp4eufb6G+7BLA1hsd7lL08NZW7V81EyXQ+ta7ZnPYXuwjktmV7v4NRE/r
hE6/0MVy9+/TzN2/A8cu2UbvMYQveBnZ5V4oBbWIt143/HZjA1ftdGpYKVAl
rv1Ul96N5ezlx6xfl8Lu/Roc4cVauPEgpy+VVQqRnjy6O7m1sI5oYaz1uZ8Q
FSYow/tEE/O8217NdboM3v7TDwrqVcN/X4mvs75dBp9+OzqohKvhwkTukzkp
ZXC5RzHoqo4adg/qHbb6UwalFU9+/opRxc3HErhybH8Bh2padICpCk6d5gUr
y3LInekfjupTwn6DC7ezvcphFNCtgEdK+Hj7QDlnfDlUV34/tmyshHm/lVhk
N5fDqV9ic2reO7BHpI8n57EK2Jgkrv9DaztGKiOZb4wroTfJ0EhxdAs+/84x
lE2uGi5EcUsLi8hgxYNHpMmq1cCrmZm0LkYaj//WzlnVq4bh9kM/NEWl8aVF
ocal09Xw9y/bz6d7NmAvZrHk7MtqiJ/8fNvSSwwHlmzIHFauga/FZoMPTYTw
gaM8MLS3Bg5Khr5nv7IGc/dNVw+Y1UDtuh0iNxLoOISrYqrXswb0C87X7OwW
wA8NvLW7PtRAXu/Kld/W3DipuulXvW4tlMgvzGVvWii0t/tqXWdaCy23FPAN
9dlCucmssRqHWjCPO79U999UYZpQoFBVYC0IREs3pm8cLcw8pmr5s6wWlC9n
FH1I/1X4oS1s6LNJHYx8EGpKdZ1g+pz38fl0qg5+Pq7qez38j6mzcob/46U6
mDBKvdZlN8MskgLld9F1YOTJtti+a5H5w370Wk5LHdD3kudzDrFB/cBB7uf2
9bDv9y/LHAEajMVt2XfTox6MxZtCJKi8wGPIdcMmoB7U4mWmqpZ5AWWWzK17
Vg/phjELMt388ModBu5018MJNeHosb10CFhQ/eFs2wChbs8ZdzPWQsIrIXb9
Cw3AoXSwiyUkDO+sJply1xsg/vXZ+yJewjBa+Dq/NbEB4laL1+TrisDxm/Jp
hzobYCZG5pvTt3Wwg1f6tuLJRiix+PRXMUIMDD6vFPG4NoLBhnTtR31i4ODa
vtTn2wgJW34K9+8Sh/jq+EuJCY2ww9tchdEuDpxRwg6C7Y1wYKV0jYOIJMjs
n0ocGWmEF/6uV5bsJEF7tra1dKkRTq1tJwVkSIL7iTDTGxJNEOcprWrJ3ABt
krS9k5ZNUOFMf3LpqBTMVg76VZ5rgsfbruWnxErBmuulH156N8Gv9EmFqhYp
ONBzW/nUoyawftbSzKsoDblpJNn6liZolkpad+KFNNzdMUPKP9EMqEFR6eUd
GfC6cnBbn3MzOMXxGcamyMBZ/PioiE8z5HJxpS9iGThweO9LzyfN8DH2EXXT
tAxwuYWZavxphqMBEwaME7Iwk//H98xUM2yWrHFouiALfSvq6TGU31D4X6cj
1x1Z+B7avjS7+Td0zYm0db+VhVtZ8mnvXH5D1kx5ZDxVDi7N+FYP+P6G5feG
w0YScnCKWbOw/sFv4KVq3AvaIQe6lVcOX8v+Ddtvz+oFm8kBmVUyt2vmN7gZ
duX3x8rBuNp6OWeuFhgfyvJsSpeDLt9z/8Wvb4FMzekkk3dyUMS35tmCVgv4
bT+fw2qQI542hh/9W+CqrgmpkcYA18s5l4fDWmC7upzJrvUMsP5MSRJ/1gIC
vO1jigwGaP+XMeVd0gKjZM3z9VoMUIha3ZDR0AJedwPnb+9jgES7ycG2vhbo
/yS6reIwAxZd5hO0uVvB3r+1XOoUA4beHip1EWuFNx/5exRcGNCylDj5eFsr
cH8L76u9xIAPIfv1l/9rBS39jcsjtxjwsj7OfbtNKyh6v8ywD2FAnMToI+sL
rdCu5Bx46SEDrmY8HP8c0Qo6rZqDbkkMcJrqE2MltwKq0KNapjHAXFtr34a8
VnDXCfTtfcWA/bfuuxl9b4WKSxl0wWwGqJd3xfk1tQJL1DukNY8Bm9aqlmQN
tEI9+vX2wAcGCFsFsTrmW6HXOMT4eCEDOFJa1gvQ2uBAcAmDVsyAqeHte0Gi
Deo5I6btvjHgr8qN827b24BdaVugdSkD6rzrYxKZbRD0oDN2pYwBxV83F1cd
boOl6vVj+yoYkEPzHlm1bYOtaywPqlYx4JlppYiSRxu4Ptt3pqyaARGPZPbY
3mwDqz2RXNy1DAj4c+lcWGQb/JzbMDBOYPdtpVFFqW2QltP6LaCOyO/493pS
fhu4Pz7CgQl8LInkcv1HG/BkqhW/IHBpi4S5bXMb/N3b8XovgbWEd+miwTY4
b1bjc59YL+Pw0e3SC22wTvx7U1ANAzbcdV9PorVDq3uqqwpRT1jJffYu8Xa4
2BLMCqtkANvqCxZWaIet8l/Yn5Yz4NKu778TddqhT6D8hAPBt+9iT4m/UTu8
Hrd51PqDAcezVl7b2LSDSNJpDy5Cr7IBsUdwoR0SDVeDBr4Q/pLTCJS60Q6j
Yv63/Am9s6xN3VfD26HmhbtABdGPiNp7+ji3HbY//uccmkP0gy9dObGkHX7f
yg5kz2KAp36JpH9DO2QeQT92vmCAxaelf8zZdrA4laL36QkDymfWd26gdkCG
nOd30TgGMHeqla2s74BfukKzyoSfZNPOJxVqdcDhL1p98YEMiOwKvvfEsAM6
LyX/GfJnAKd4mqefVQfY5ETxzV8l/Pyg4xDTrwPObL1hZeJM9PPa4fnPXzog
+q3lJLcBAxhvz/1NqO0A+7d6jlZ7GBDNCqry/dMBuFSizV2TAV6nilJ1KJ3w
3ztNlYGNDND9b6fJ5wOdcKDIe3TNihy8DfpPJ+FEJ1RNOA7f/ycHm4rPbvF1
7oTI2jtR1QNywKPxbEU7pBO8R3tUX9fKQZ200KtPVZ3g+6bXoTtZDvZb7oh+
3NUJq68ehb6IkYN3UYY3fCY64YZlf4fOPTkwohRve8LdBeWyfHIV7nKg7LVA
PrmtCxKW9tlFacvBwqlzWe2uXbAsbZm996cs2NL/Xf3k2QV3uaauCH+UhW+F
Xnsf+XWBwbXmC18yZCFM9G7z8dAuUFf79fjFA1nYXJXOVp/ZBcW/jml+N5UF
M62+Y2UjXTDtq5gf3CADWYJ2q/nO3bBHy4h/6Is0rC0c+Bnl0Q16XSuTX19L
w7VzFyIveXVDyWMOjVsJ0qD33X+r8t1u2J4vv/f9VWlo9X5imvmiG4J8Dkqu
bpcGan/r8+SBbtDfE954b4sU2H8+Zhx2ugeOnb9ZtyZFApTz168RdesB7rDh
n1uuSADb65a6p1d64HBAXY+YgQQ8SzppnnunBzyKvfyjx8Sh5+bpk40ve8CV
e5c2ifie2Rt4ukiM9YBBdWcT+i4K9k1Rd9Kv/IHNm+veH60SgVMT9UVFd/6C
ga4n7zEsCCFKBW5pgX3gdUfmv/mZGWaZclPf5dA+uOL0g3bSdIZJVZu13hfd
BzxPpoVl3kwzb+3SOPQ3tQ8+Zv5o+eY8xfTWLdgi+60PSts/H0v5O8F0Nivo
TmDvh+dQv5HUNMjUv1pgGnW9H9r+VG6QtS5j3vJqKnO40w+HDV5Rt2R8Yxb7
zO5RDeuH3fztgjMrRUzmDQ2lusR+wo9uspSiLKb63QJeOu6H+duVLhv88woZ
jwu+hSz3w/51IycMLzQVshUVaNzyGoBV76DPLeTRwpd8a9KWAwZAo7rqNheD
VWhi6bL2yr0BqHuVYjmoN1aYPCM9cfbxAATwDgef+jJeqLf97svDhQPw8Xrw
v1Ozk4WB8VaS4myD8NW3xuHc3tlCnstk9pzgQWhrPlPfbb5amFNs6b4tYhBE
clV8VetWCy0E8ztT4gfhdHdq4sAmEn71yvlTzKtBiNZbV3IxiYQP9dRd9q0Y
hJUYaw/mAzIOPZw2cIA+BA+zio/5W7JjurxhZWfsEDw9VvYwK5MT93El0kuT
hsDTfW/ZsTZO/KF30uxN+hDsX2Vnz+Dhwg5P41uvvxuCV0+valqf5sLv1g8N
yDQPQeBvb/JvUSo+yRXM7rBuGK7rvPKXd+fGKr1t+w9JDcM33j0HHsdzY+pX
pbuqm4chKUzO6MNXbpzj1yxI0SAwr830wloeTJnZvCHt2DAcNK/nCc3lwRl/
v2sORA0DM0VjdraLhm8Ui/lUJwxD4if289sovPhYkit+lzoMFV/Hxni28mKS
lcj+4LxhyO12ZFS68WLTOkdT+YZhULd2jnWc58ULXzhcXdaOwPPeZ0NtS3y4
KvF4tpnECNy6rihXJ86PU3wzprQZI+CdFlZ8WYsfG+0y8+ZTHYFKM9GTRZ78
+Omb5DtZpiPwIr5Ax2WYHx9I1E0ejxiBttXG7q3fBHBQaXV7wKMR+NB1XnEN
cb/+PnFyvXDKCAilDe+JWxLA+/S87+/KG4FYaw5eXVFBrDuYeyWgaQR6Y4+F
9h8SxDfW6Oas7SLyiS6IHz8hiIt2V4+kDYxAREaoW6yjIIbQEbtf88T6D6IS
7/gKYm2VjYfWSoyCVdu2vC2vBLG3VW5gGmMUTJZ02UTzBfGH23u+aG4fBc+2
9fd+FwniXc3W6tbMUXgx5h72q0EQq/tGS6fZjoL24R7ty8uC+HIaw1Lz7Cgk
fR3THOSk47dVOVFl7qPw69Ds3HZBOlaRreIZCxiFrh/m/PKydKz0g2taI3UU
LIONE1l76dhtPGpHWeYoyFC3lQ0Z0nGWKMPZKn8UhI79MHlnSsfbXVDn9R+j
MH13R9UPezqWp1/7+XOQwEahRR/86PisFheH1eQoeOy5KKd3m47TT0UxWQuj
oLzhYWjiPTrenJ+du4aXBXHGwU3lMXTMsBxKsFRkgc7q2nfsWXR86tbV5lF1
FsjwdHZI5dLxs0xOoevAAj5JrVL+d3QsQ5K7k2LMguWH5nqOX+jYdmt2sfoJ
Fvh3BlErvtFxkgksl9qxQFtv4yRXGR1vSLX0GPUg8rnzPJqtoWPrysEMf28W
zNyIvJ/RQMePZ6/002+x4JKFIK/abzoWM4i0Uo9igblhk/CXTjo+cVE2pjSB
BY6fFRpLeug49vGbGos0FlyfDwx53EvH68bK9/sXsMDV7Jt+6RARD8d2g5gF
RoEppDWjdLxeNcfHtJQFsTmbs3eOEfHGlJjP1Sxo4sm/uHmCiF+Lydn8mwW7
2gft/00ScfG7FeHdLPAUux8XNUXHooU+A4uDLGI+fqTMP0PH8bZu7KcnWUC/
qHvQepaol91+Q/UCC1Rq2+YC5oh4qtkuLfYx2LJvzsp/no7FD+ibpdDGoEjG
ONxkgeA7tMuNf+0YBPdUZS8RWOK+wt2rEmNw0ya8xXeRiO+QSu1hjMF2Uvvm
RgJL1tKLDm0fg6d28vmUJTp+comjNV9tDNQEJJ/xEnjDutlpaeYYHD52hzpM
vP/k/aDgvf1jxDztzPmUwFKEsaeNxiDIaPydIoGTVir325iPwcIvd51IIr/0
0y92P23G4Oyzi9k1RL1Je9/6qDiNEfee58r9BB+ZvrSYhAtjkFDW31FP8H12
Jy6H69oYfGJp18cTeshuC6lwvzEGf3c2K+2aJuIVfgOtwWPQdVlE6M0/Opa7
4M6+P2IM8pT84lYJvVPWOGx4Ez8GEpO4Z/M44b+8Y7vEkscA7c3j28oi4uYH
zW69GoN71+x2sY/Q8caF3W6s3DGYMhi/lT9Ix5tAJrW4ZAyGY5Tm0//ScVq3
UJFCxRhwPWKzG+gm4rc4W6MbxuBx79xpMuGfzT+HBc/1EfpU61UUNRP74VzH
tgbWGNj7TJ8/Q/hvC3/NfpgdA8c1/tsHCH9GbrUs5OYYB36ry/euEv6t96r/
xaSOQ9fXc+fufKfjteX//b7IOw5Wi0ajHsV0HOWKptrXjkNg8k3L5vd0HJ27
UT5n4ziYHZa/O5BGx40ciRr9W8fhojRFpuYpHYscW79PQpH4fXbh6ajHdBwz
x2MbqD4OKuJtQdnhhP90xqMs9MdBxuFm/24vOm4OPZv8wHAcdL7IfKRcIvza
1fOm5DAR9xc3zThPx3EBDb8Uj4/DLtoB6zBbwn8/PpDZz44D5YLF5wI9Oh7v
enNtzGUczqm6hA7p0LH+QtpE64VxYOjnvVlVp+MphYfdb6+OQ0O868maLXRs
FHHuy+k740DeNBInTKNjNmuJG2XPx4F06VX27jJBfNxzzXz+q3FoTa0LevpF
EL9+QHVPfj0OysrlocPvBLFV8ZStT8E4+CaXv1B4LojzN1cgxR/jwFXl5XE6
QBCfm/QlRfQRepAqfOpUBHEx7dJVv6FxyH0q+ffuVkG8fqPzuDNrHExSK123
SAni7+bHuvbOjIO66t7zIjyCWPqzYtE0ZQKWTn9ce/OzAK4P6vQ/sXECBNnH
XnZxCmBtyT2r0g4ToLBDZ3WTJx8+YFXvYe80AcJhTRUWJ/iw2aMzfckuE/CP
ftzaUpsPnxMNrdh0eQKeCu4XKiHz4Xjh1kcKgRNgvkNNUecuL57ju6ypmT4B
pvqH+UQjaPjtSrr74ZEJWLvbybjOnxtv6xL863tpEvoLA10d+jiwUb90sefV
SchvNn5MK+bAF1hKSW4+k2Dbf3B9XAIHfrtkbGV3axLWpvWsdzLjwNqi4fV6
kZPw2vkrf0cROz5kQv9GezsJl7SVTZyi2LBLCT0t7t8kJFVZ7B1UJOHM9DVO
eR7/4Mnhb293nJ4p9OmwrtsWOAWldqnSE1vDCt21NQ2fRE5D0oOqY4ydU0yS
a6T/g9hpiD5rqrnl6hQzNHE89/rjafCK2Z61WDjFfMn2QuJUyjREJM6WCxya
ZvaUirI2v52GeDvRjT2nZphmRxfDsuum4Xn0rtaW4DmmumthY8maGcj8NacU
krHELEkUo+WLzEC6DTWibGSJaVLjCc/FZqBMQ2SgXGGZ6aq6Iz1YdgZ2Rsit
l8hYZj5fSLxmpDwDjw4qSrc+X2GuD7oh0XxkBio+xQyVHiTBQqKe/XDYDLxP
1dGtk2AD5qxOxM6oGaAx/CK0d7PBDSON4itxMxC8spLic4INqMtbZTmezQBr
gN3sehQbCFsI9EjkzoBwRkFRGI0dlNa22Bk1zMBLC9Zc5hg7XDxXFx75ewY8
gq/3nqdxQH5x+ZeW9hmIGz1TTN7MATruWOZM3wxsvfHzWYo1BxhUpnT7zxL8
OI871pZygOMdN7ts0Vno224t9zKaAumdTuGzkrOQ0sD5Luo1BUbU7b/oyM5C
IPl0nkkpBTx6zWTK5GeB7V2+CZqnwHVdre6e3bOQIHSdve84J8QvcditPTkL
946HxO4W4ILqC/G2V57Nwm8PtUOy5lSQDxNcvJQ2C9HjopT3TlS4+TowyuPl
LKj+5A+Q86KCOsuj7HwO8f7AeZeLj6mQcM5Q1aF4FtLbGaFLHVRwPr3EdaRn
Fv6lX9341JIbSm57PDPqmwWfsYW2s87cIJk6oH1oaBakK2UplGvcUP2n3l1/
chYG55stcqK4QcMus1WHbQ5ebXpJ7y/nBg6rk6/lZeegd0ss44UyD5z0rj+4
ZdMc+Hf3ng9j8kBBvMHfjfJzYDr+hH7QgAecf6uLyijPAUtOaZuiHQ/UHBO4
uU53DpQsgqjfQ3hA3vO2pPD+ORDMUritHsMDt6IWC9YYzEEAMhy48pQHNOv7
R/hM5kCdEaNwPo8HnhwpOsZhPwdXqm/vk27lgbkL6hPk03MgLGYZIvKXB0zC
Mu6tnp2DSGO9o+0jPECpii1acJ+D7sKv0LbMAy6H3OUnbsyB02f5/U8kafD9
XH8J6/YctEqmOq/bSAOpe9Y2I8FzsNHz3CdbBRrU/jwY2R8+B1EDMsWntGiw
S192pf3pHJwVyLKUN6OBanLZnR+pczCgZ2PJaUEDxVUPoewXc2DnpiT71oYG
sgVft9zKnoOnHaTBW840kBByyT2fNwcvPl1ufe5GAxG3tUzz93OwoLZw7fEl
GtA2E/ftL3NA6U54tuBLA86bfB1C3+bg8jcOGYcAGpA685yWS+cgOpFHNTGQ
BlPRnH7V1UQ90ezsd0NpwJrMon6onwMZAYG8XRE0GDAyf5jcPAfeCqz+D1E0
aOdMT/fsmgOHmdrCnY9p0GxvrGL7dw7S60osNicSfAvnPh8cmAOtHTZnWE9p
UC729IDKyBwEG2/pDkwh9PI8WCcxPgcCqz0l42k0KKqdsOacmoMN/sECCi9o
8EExfmBsdg6UBUwLNV/R4O1d3Yu/F+dAfmNWpUgmDV73DS0Xr84Bl8t+5vcs
GrzUfXgng30ent4g0/Tf0CDlyW6haK55yJhaUo7LpsGThT8J/rR54Ln58O2n
HBrEHgvZclZgHmRizUOzc2kQkaOaayI0D48N1+Mrb2kQwt+uo71uHrST2vcJ
5NEg0Pl26UbxeVgsHpS5SuAb37ebCkjNg5nBB5McAvvINrbPyc7Dj2lK82cC
e/r5OfVsmoeH5wuz4wl8oWXTv1/y85BTTO86QGBn9SrfPMV5mGHZnSol8jlE
XKEmKs+DZ4OptiiBT7KkHt5Rn4d1XwvP7SbqO25QKumhNQ+n3D5MKhL1m6Zd
SLdkzsNdncjafwRfIzZRlX2685DyuZn37msaHDj55bPi/nkQUTRIniD00v1w
9sB6g3nQX+6Lkc+ggbbImjqy0TxcMxwYUX1JA3WPD9bDR+ahK6MoRTCdBkqV
9gP1R+eBdU6i+HMqDTYG5i4/t56HYEOdXSFJNJDusbwTbjcPA2d84zITaCDG
5BDydpyHP53gkhRPA/4Zsy1G5+ehdVfR1YWHNKCaLOdouM9DFan6g10YDdiy
UnVkLs9DxdSyf3wIDWYdZ0ymfAj+F9vSrt+iweSXJ+3t1+ehhZq5RvE6DUYk
9Z1+3CL4vuwWzvSmQVdDjG98yDwUzKnOS3nQ4Oe+Xeno8TzIxcV0/raiwdUf
for+SfPQd7VdM+oYDbYcLHn7OWUefmrw7xQzJvp56PAXrcx52KSYzbihSwM9
U8cW1cJ56A4S1ixhEPuh/qXtxeJ5EAiPSa2QoEHysfG+7O/zIOSpwPV0LVG/
hfc/xap5KG0Sb0plJ/xrG867tWserK3/E9jayQMXehojzvydh2NrfK/fbOAB
KQcJ0bSBeTCVmDRK/8UDfmeeb5SbIOrzUmMeKeABbdfPTEm2BVDV16PLEudZ
gffgBTpjAZyKpvsrtvHA6WXF2cNbFqA8bX9WwwYeEPG/5BuqsABxojxd6XQe
uBSwGkxTW4Bnuofqs2e4QTlYOJmyfwHen/yhZlzIDVnRexrmzyzAsdOUBzV7
ueHk+iBLTZcFoO451Rmnwg188eXdnhcWIKDWbU5RjhtcEsxZ/64uwIOdCX2Y
zA3yKee5WMELYKTq7+H/iQqp2XG7el4tgFS2yp6QLcT3YdFSvvn1ArCn7eD3
EqGC0r4N4pW5C7BeOjBXm4MKn5qfLb3/uAAOn0L6UCcX1K2+wuG/FqB1JC1K
/yEXkI0K9+0ZXoCygM9CDv84wXqo50iS/CJY2dzUioqkgKxqqm604iKUyV32
MfalwIDvGZUQ5UV43/Bh5Y8jBS7RR9Ze1VoEi54NKFKdAvc0p5sOGyyCESly
o2QjB7wP5Dq5enYRlgY1Mkb4OEBYTsH55ItFWP6o5edmxwZhEfeOvchchKy6
kK/r97IBD9uw7lT2IsgfYJyKZbABqfuF+N0PixDYWuwu3k+GkSebK/J+LUKM
yyYZdWcylIjJKfGxFsFQ4c+JQScSXFojNvNReQl+BZt3OTxcYtaSqQGin5bA
b9+XbDGDf0xWZtxJ46Il2Dx76rn58iST22Lb7qCSJTh21DzZ5s0kE+UYTU2V
L0GQz1J8rfAkM8s+6nR1+xI0L6tLmHSMM+99lTUMWl2CGWvPToPyEabebZ21
07rLILQw6H3gRQ8zj3oxrfrnMtR43s8aOJZbqCAs6Gz/bQX6c8t7nS9OFwq9
/piR+nMFJKtGeF+UTRcuHDgzNlCxAn5aQzsaZGYKS30KL7k1rsDi7bdfpqpm
Ch3+uvj79K8AB7fORea2ucKE3J+R0dyr0Kqhdup0+0Ihv8lNXPbfKnjQ1nC8
ECbhsdCZtSqNq7CyuoXrvRwFj4xvKN7esgrZqbWprfoUPGSi77alYxVK+Efd
/5yj4L8isT8l+1bh9aYsj6e5FNzyZJcfdWYVjudt0azaw4ntzQv/sXhIqFlo
65+c41z4vzNk6xJ5Ejq7tfZHsis3PhQblftFgYSWrZQaukK5scHPrTxYkYS4
lHjXLWRx4wPbTAreK5PQZ4M8sSIWN9Yde0Z/rUVCJ/ttjka48GDNK3rf4wxI
6Jv09RN0OxqWCwra4eZMQi9rfjrd3caHPRpV/exdSMgyMOfX7v18uGhjT/lR
VxKKPbPlcLEtHz5Zou2s7UFCbkMz2f9FEfd/8mQKtxcJeVoxvh5b4sNrfKzE
UoJJyPX9nOb8F35s94v7bMw9EqqurZTt+M2P34gVFNy9T0Ij4t+kIif4sdF7
+lH3cBJKG+438ZAWwHdnvj9gxpHQn3yVZ+PeApjNfSfldzoJ3Wjift2xVhAf
KeowLX9J1PP3dIMBMe8kCYQ8wxkkZGbDdS+BmIeYWX2Q9oaEDuf4bJ7REcRe
w4+8Lr4jobBD9kUXHAXxpCPnOF8pCfEfWbx+4bUg3pOXyySXEevLNslqEPNY
GIfd/alfJKQ5OOvUUySIFZM/yrdWkVAePf1sX40gdu664JjeREJ2bHtmkiYF
cY9Fa4tuPwm9mgvR/65Ix7w65s9tBwn+j349tSXmRTWpuot+wyT0W2ZddDMx
T975U8b7YYzoZ0XAe9tDdLzD5QNz5xyh91HWUMUZOj5upE47vEBCRy6vW3vE
lY4DlHKaXJZI6NeZL7lviHm2cerFhXQSGe0f2/qD4wYd+/jGPZPiJqPIlisn
lmKI+d5G2E2HRkamPP+MbRLouGpP+G5LPjJqO+yRnPCMjmU5g+uj6WTkZLG3
8lUGHR8a4Hj6VoiMxpqM7byz6fhy2fXztcJkFOf7u2RjPh2Xhl7l5BcjI5Mu
+0s8mI4nL0zVbpMgo0vNOj56X+lY3PRC4sENZPQu97/y4z/o2HWdk+ZtWTIy
FrIsFKgi5vP5PxzJDDKyO2krmVNLx8WtNjVFm8joeHIaU7GRjoWTzJ2X5Mno
9OnMvbltdMwMqFMX205GXA/Tez920rGTw2F2zR1k9EDR+ntCDx1H7P9VdXQn
Gd0XP/TteC8df9qi//iiChnlpUsWj/TTcR/PV6dwNTKSd0l+fGKIjgVGmWqv
Ncjov6PNqokjdGyfrV45tJuMRlupUm/H6TjkYU48lUlGGWtLd96cpOO8y4pn
NiEy8rcsuik/Rccd5i9V9HTJSM/i8/SLaTqmam0i2euREb9WgRN5lo6VJZ6V
++8no1aO6s9Kc3RsuSIZl3CAjCpMzRo15un4Vlec40cDMrJtKXwoskDHWcXC
yr8PkVF0cH5TOYGbU8JXZozI6Armu2WxSMfkIL5fa4+QkeLub16YwPJng2OU
TcnI9S/1ySKBzQwpDsZHyUjUWbWaf4mO/bbfUHI1J6PDk9X/5oh4usDy0r0T
BL/nUcPvCVw7cfXnC0syqv/jFH+EwIt1U1E/rIl8MrZ/MJGfkX/BvteGjNJ3
4hccBDaKHVFktyejzleL1VJE/Ve9nBalHcgo4d87bTrB75nV3x/M02S0c7Ki
unmGjsuZtpFWTmSkZoHcPQl9pqXbbL2cyag4cB/b0D863sB+fHusCxm1jOg7
qRD6Huitm89zJaMLGj1BJoT+vttCvV9fIKMoB/20cyw6znE/sJzuQUaV3NM/
bYh+ia98Ij32JPr/eFtZM9FfY70rAVFXycjBMtbbmuj/rbs7OR54kZFH2dq2
T4Q/WCJpXAF+ZDQym3OU1k7Hcta2wd7XyejXmhm9hd/E/koWo10OICMNvbsP
vhL++7LjAb9TIBkpZaT+/Uv4NfLAVWGjUDJap55+wraIjn+GKsfoh5HRUTWr
UalPdLxSP7J+TwQZUU/EaL8voOMzdnYSqtFkpL+mr+hqFh1reRnIiT0ho6F8
sSNb4+nYrYgjVSiJ2K8kyTdvI+k4hRNv4ntGRvusItVEH9Ax30MVeVIaGXl+
e+Fy/iYdd72S2NmXSUY909nPkDOxPyYbczpfE3pJeBo+PEXHBprhqr+zifxL
bWGFVnScW0LRLM8jo0d7Nr15YkTHge0sZs5nMjqzf/D6TSU6/ij3ougVJiPd
1Jr/4rbQ8fjZU7qpX4j9qGexK0iajk/MNO2L/UZGX3sHlYYF6FhB4Mshvwoy
mr+jx1c7IojtjnpXXqki+q0tuuv5H0Ec/UjN2L2GjOTO9NPNWgTx6uaXpg4N
ZKSjdjZK9YcgrkUPLQzayWi6iekjkCiIr3o4OomMktGr/sVdsvqC+I4h64zW
GBmNA3e4q5YgjmFcOXNygthfF/6k3d0uiPMb75xOmyajn459bTuFBPE/rQwH
9RXivHr78qDnOwHsyv7P9pgAG9JmOty0KePHvm3etl50NvRn6UZc70t+HJLH
YftEiA0Vfc3t5b7Hj1+dEbHpW8eGqrIUehUM+PHAr13WntJsaIV0ktr6lQ+f
irx+InonGyqto9pWpvBij/PcJz6osKFYNz4zZX9eHLA/4niHGhs6LhrXrXKC
FyfNJZtv0mJD4VcWPgjw8uIOqx9H83XZUEg0t4L8eRo+vpHfpNGUDb0L6E8Z
kuDBRvmPDEQ82VDOa2P3H8pc2Omf/arwVTYUUNP8Xp2DC99Ukn8r7MWGHDTv
ix5p4MTvXr6TFPZjQ2IN/zkGeXJi2cSGcaFANsRmN6W79JaCZ4IEYujRbOig
gcSoqCwHfnLi5h/efDa0n/1adudnEn4XbRDL+44Nzf4UXei6RcJ1dfT/eD+w
IT77DZ1hhiRMNUrKpxWyIXFdxFx4vVroofs5mOc7G5rIp/Kvb1ku3L9tdge1
kaj3yodpM8GFQtaSsw/7DBua3/toIpprsvDEccOt87NsSOSjGI67NVFYkrut
kTXPht53GybxkicK45xHdrQsE/qqqWwIHh8r1Gs+/+cNhR2R0rtlRYqGCx/l
XjA4KcyOrh8wlKmS/1N4wNlz/XtVdtR/MNcz/lxy4dOmG29dL7KjxZAtbyS/
TzIXnHRsry2yo0BL24ODVoJg8FEeXV5mR1YfslfF7wrCI7710u6r7OhyyMIB
kwJB0M6Z7HRi50B85KrpH3Q6+C0+tzlO40Bmh+7sLv9OB/bQNTYa4hwoUUnh
UIuSEPDm9ltPa3Ggx2a9m2bIImBFadCZ0OZAH0uklb8pikCmebHkKJMDIXeV
m8GWImC09Lj9ry4HMq41WBp7KwJh+0ys6w04EFW/eN+mM+tgbfMnq1wLDiQQ
JBbyrXQ9SC6HW7p7cSARZRlXQV9xONDz3/sYHw50f534ZsFX4nDpB/e6Qj8O
FGqo0MVqFoey8Bu1PDc5EKevruF+VQnw3OR+MOUeB3r2aSVMf1ACqg8bazQ9
5kCmH6Us/xpugIBn/EI6mMiXvKmr11MaMoPKLpz6woE8H116z39PGppdAiuD
v3KgA0bK1aKJ0qCosRLc+IMDpeS2/an/Lg2tv0ZJF6o5kO3W7KKatTKgOl3O
etbNgS74n+P3fSkDNi13Dv38w4HkPN9+Df8kA3ex3suxXg6Uq3Nf5kalDHQF
f3LUHuJAyuehZXRCBu5vyGhrmORADCFXpQl1WejTv1dG5aCgiorE1wrvZcHe
0FZ6IycFBX+PYJ0ulYV2IzXPPVQKuurTqHW5SRbqj3bKePFSkOq+22O0aVko
PqVybXgtBX11MT4ipCgHzDPUKq51FJS4pBvUuVsO3ju3MxiiFER56vjU+6Ac
vHEPqraSpCAhO2wr4yAHCf6tmys3UpBZ38sFoRg5WH/zje/QZgryulm/zzhZ
DiIDb9dxylNQiJSy9PHXcnD3/g5/UKSgXyFfDUq/y8HVRzcb36hTkP+vvT/F
/snB1JPjChWaFLRBfOpv8rIcuD3bHjCoRUFrjzbzTXEx4PSLpu2yQEF5/z3S
7BdngFnBttsP9SlIkiqaTN3DgOoPpNbXByloPd2j4/1BBhgWNiiVG1KQ4ESV
53YTBuh+82/jMKaghoQ7x0/YM6Cw1ExZxoSC/s6Rzgs6M2BX+dY7OmbEeifz
LgW5M0Cprk7F8zgFvR2tHs7xZ0BGY3pwhAUF0T4dlT4dyIDNLb6dWVYE7jKq
bQxhwIbuzff6bSko53SgEiuWAfF/l7rYT1GQi0blo4dPGCA8UKMu7UhBK10J
bFPJDOAd8+45fpaCll5e0/yTyYA7k8aal89RkJSQU9GFHAawz2wMDT9P6M+X
kpefzwC/+YU/mW4UFFGY5fH2AwMWlqp2lblT0MgU88jZQgZ4klIf9F2koDnN
/S/rvzBggt2rl82TggbxYMN0CQNcuA7vlrpK8PkRtK38BwMGeBjhu70oyOd0
Ntm8jAEO/PN95j5EfTI7sqLKGdBJr9S+5EdB6c4Lt4MqGWAhnBwRdp2C2jbo
tW+rZkDj+qsDGQEUVPXMhSughgFHJP5j/rxFQUaOVPPgWgaUS8lG9gZSEFpp
l9xTx4ADcrOD5GAK2iL9JyOdwF83lcOGe8R6c0yz//9/yyC000DkPgVtE8kd
ukvg6unJo/wPKEhBMnCcn8Dm1px2nOEUVFzL32BArN9RIuqyEkFBG69xcDGJ
/A4K26/MRFJQr6//VH8VA4YfogBWNOE/h1meA0T9Houm9/tiKUiNpVtgTfCb
sz8T2xFPQeZmsY5bCP5+ZV7JjY8pyMT9/o3nhD4U5dCsyicUpPtLyLOF0C8k
7un770kURB33ziwi9F1DzispfEbwVbsUfoLQP9aptCo/hYKusFPupRD9kapu
bclKoyC7gmi2p0T/FBLZJp68pKBlBwmeDKLfOZwiS9EZhB/bU868Tyf857qV
60EWBYk/ONZxmfDHfh1jSf8cCkpq13k1H8OAipRTW668paCA+cafOJzwP+8V
Fbd8CpKNPhmhfI8Bdq0JB20+UNC5oz9fivsS/dXNNjP/REFb/1R+DrvMANeX
JTaHCyno2hiF/OY8A3yuDV+GYgriOUGOGbJiQPS6Xc+kyigooe+eGVODARL+
hzLXlVPQqRLpPf8UGJDcZ/NOoJKC3E+eNfhPlgFv8gIrV2soaLOpnwSLxoBf
pvULnb8p6FGOtVd1ixyYfOynNLcS9ZNGeR9XyEGz7KJgdTsF/Vij6MtVJAd9
EzKbi7opaH5Q1uAjcV6QwtxMkwYpaIeRRv7N03IQOBtwMnaYgprb71vuPiYH
fDbRZ8NGKahGT/Di/X1yIKb42f/6BJE/11FtRVYO1Mp5MmznKcjtQs2dlWZZ
cKamcchwc6I1mxTWtynJwi+2O/f30jhR8mxVx8Q6WVBYPitymo8TxVx1Kg9Y
kYGxie1bXtE5ka1gjcWaMhm41JpnqCbGiZzaSbjCQgYaGmLqzSU4EdfLaeYz
HRlQr75m7bWBE9WnPtAfkpKBuRIdN2IIRAO7nwnU9EiDb9a3iIPbOJFJwQme
Djtp6Eh/Lu6ynRPR9446qiBpQMnBKaE7ONHN+6ZOU5LSwBb7X36dCican77z
zvm1FATeaPhtrc2JdBq0dLbf2QBhZr3SHv9xout2zV87V8RhwujHi8jDnEic
m+0+d7o4mBx8oVxwhBMp5FO9Bg+LgzDzvN7SUU70YHlh09dHYhC/efpM4ElO
9A5ipZ7KiULKAsfreDci3ybjKLFJYaBM92l8dudEu0/pTiXeFobTY6VFnRc5
kftVC+q7dcKw9W9ILeMqJ3J9pSkbo7EWsirWzmRd50TLmr+PVjuugYIkhs7X
cE60mJ22Y88ULzBW9by/POREHNv2Okgv0yDM2vE9juJEo/UaO/aw08BJLE3t
UxwnkvY8+UiDixvEIjcr5j3lJObJ7b5BoxzgEyQv9TybyP9iKuaA7RxzoNfA
OjWXE1W9KHVwFZlhHtU79yg5jxMdMTl+LfL7P6YiOWNd0ntOxPo8Zu2/lcXs
9NouGPeFE/192LTy4EkDU9dViXyvhhP5x6+urwFWYVa5MQTXEZhcklFSMVEo
vs3dN6iBE82ZyR/fFjBVONWfPX/zNyf69G+33KeV+cJUO5VJn25O9EawXXAq
mQ1Tj6r/cZ3gRI86xilq4fy4crf2NxM6FzqxsE/JM1QC3313eXG/EBdijX33
ZbpKYn211zt3C3OhM9oKrd2HN+AiRdkncqJc6PaxyAQ7XmmcK0O9MiXNhW5S
PibEdcngWK76LdFKXMjTYNd+j4KN+OgtPpu7ylzoQfGb5UL1TXgNWT/KT5UL
neqefcZbsAnfW3hPPqNJ5NMQyn/9YTP2G01s0UBcSKjER02zcis+VXcu5Pdh
LtSk/n7cbbMiljZOLa44woUKJPVyThUo4rbyjrkvplzI2sS0w+XADnzs+xHH
l+ZcaGlV/WSPuhI+8F6D6W3DhTj3fO9ost+JFRPZxyXciPWabpCrG1TwnPMj
U9tQLrTLq3N/qcIu/MArmcs/jAu9jF7ZvfHBLrzp7quPCRFcSHV91huY3IWP
vvgo1xrNhboLY5rffNDCOf2t/44mciH2C+XhT8y0sYuDRKThGy4Ulai17JsJ
uMs6oV69lgvdX67rEvHdi6+cT71ztJ4L/RVcEuL/uBfz+2ZqX2rkQmxvSB0X
5/dincefU7JbuND0Zorx/St6OL6l/ZLCHy7k+1XhKue1fdjMfIOw7BQXupLW
9DM4XB+XGice5ROhojHTaNtMiUPYuaS3kGs9FVmy9ppaOxzCfJoKW9jEqGgi
ftO0T8YhbCL1fmFGkor6W4UU+Zj/4dbR2sSujVR03m1bp99pI8y6yzmUq0ZF
rolDrODTxlj423k/i6NUlPBEaxMsmOB3mm/7zcypKM9nT9+9jabYImPB+PAJ
KjL7m+C7/ogpfvIwSE7PmoraJdejyXRTvMX+ael2Ryq6VyB3/bWlGdZerV9D
vkxFLu5LpPsVR7H9Lu3nzyOp6PTHm2uK/h7HZ0crptuiqeh5yOn4uA0n8IWn
Nnpr4qjoFkgXVRw/gf25b3b7JFCJ73nzTf3KE/jx75/iJmlUVFAdbR7y2QI3
XjMPWyqgout46H1BphU2+OBx7UgrFXU1rd78fs4WH3HlKA1sJ+o9ksT9LdQW
H5eNFvnUSUWJ3ztzZrNt8Zm773M3/aWihtKb5gtztviWBYm1OEJFo0tn9b2D
7XDhwn37tBUqCsIqxxPf2uNvWVLZrSRulD++49Fiiz0ut89eFWTnRkGs2bwH
5FO4taz+sTcXNxK6yXbG9vApPBcv3mQsyI0+HVFzezl6Cq8aZW4MXMONJC4e
2Vwu7IA52eHSx7XcaEdGScpmpgNee86evkmUG/UmuwyFPHDA4lJTNpbi3Ci9
L1Ap5p0Dlq27nRUmyY0MXT9otHU7YPmgdcvfpLhR18lbYEVzxDt3vzBclOFG
qwVfN4moOeL/AUV39ek=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.518739313937161*^9, {3.5187393898063803`*^9, 3.518739395089223*^9}, 
   3.518742770238413*^9, {3.518743535728662*^9, 3.51874356288622*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk8lN8XNsOMYWyTkDXLJJVkqyS5ZKu+kpCspSxZKpWStJAk2ZeUVKiU
JUQpUjlXRCRZkl2W7PtuEL/399d8ns+99zznPOe577zn83llTnqaOZPZ2Ngu
srOx/f9XZXf6f0syXHg1v0ReeLszbD7vIEuW5sLCoL+mkt8ZZFNFWDQpLpzN
mzX1asgJ1ggGvRQW48JBotyry8lOMDN0kqS6hguHFKsd+cnvBAUJEvmuZC4s
98m/h3fuJKDFSNnf3TQsZbO9Hvc4gIayEautk4b9vc2jaaUOoOyy8rOng4b7
mbk7fVMcQLru9PXJFhoW+CwY3+LsAOSM/U089TRcdTz0iHDDcSizZo/QK6Fh
Je4FNYF5ezj4wZuV85xYb5eWzr9kA+52x83Cn9Lwockn21N320DwqtErtyQa
hgtuymMkGyg1ELWXfUTDpSWnrfwirUGr7iOOjaFh0wP3hVKyrWDzMFuw900a
TjeYcHmxbAk0yVBhreM0/CuRLZXWYA7y2MtznT0Nb/rBdkP2hTnoO9p9m7Gh
4c1ybL13LpmDf/pW3yxLGr4hcoJHXcQc5rfXtEuZ0PA9z8QLtGNm0Gci9IK0
h4ZTdh2RtGKZQol/klq5GLH/u/aFV9+M4TfsbyxfR8O/Wxz7XvkZw8DKtO83
YRqeX+PmLrXTGPiu7/tSsYbQp3Uw62jqf2B1ZdK0ipuGvwxtCOMNPwBj5/XO
1i5yYu7bz5H4mX0g6tif1trCiQ2vzIxcvqYPis+ijduaOHHWjFf0Tx190O7a
PdH2mxN3B2xwCqHog9PxqJ0ddZw4ZuPV2o1RepBtu6uss5ITsy9qRcym7wV9
i9Ce3kJO3MaS+X11XAc8DbZJTSRw4v6Ot743b+wGVRdcsRjPiS8v+1TskN4N
M0GHL1EecOJzRTs4or9ogs83ryqxWE5ceIJ7rwqXJgT8V+BrEMqJr+wXkOFJ
1ID7h3UbE65y4rSLRnfu9G4Hqwt1AS+ucGKVMmcntejtIB7rqJRzmRO/b1K6
47NnOyT/un37qxcnlitNrPj+QB3Sj1aqTXhw4qXJF/cDzNXgk715lIEdJ+bz
HhiO61OGGzf+7ja14cTqvSgw4JEy6CZd6rex4sTF1WWW/0yVoazzgfY5C0KP
42IL269ug5+ObSMJxpxY+qOYUbnmVuh2c94/oUXoEXXARGlUAWjel8mPJDnx
cClNWkhYBibYNZWvinNiS5/MZJEH0tAUvWxvK8qJE44Zl2uISkNq1s0P4kKc
2FOJreKprhQY9oaee8zDiZW8P9+29RWD2xbJHU+WqDjri8VgrJkgnO4+yXOD
RcU6cREf2C+vAYtzGzSPzVPxYKuS8M0nDGCGZcRJTVOxhbhnrUoXP5SW5Bkn
DVFx8rmVy832XEBWqyhMbqZiOt/SQq78YtEQDh3wb6Ri30UFuLljvqjOxET4
RAMVGz08s1x/cKboqXv9eZlaKp6Mk/6dtmG0SOdZu8Kzb1Q8JXQNF6Z9L7rB
mLr/PJ+KGTFrG1+cndR2ScorvfWOiiue/+p7PTytbbL18pTjWypuMXlxpfPE
nLbk/uWDzNdUvOTOs9S+a0n7kz+V8uIlFYseYme9MSajpXExr5dxVIxaKmzf
8NNRk2jScEYsFe8UbwyToPGgPD05p9fRVNxYKTvz8x8POvtgy5GCcCqO7Lu/
KNPFhzq1tXZW3qZitVNC98f1GKgs3H5p9BIVZxx4yQzJXIue5Xd5TXlR8cPq
fZ1jgkLIr8t5ZO48FbP5uYUL+wohje1n21fPULGkTOma93uF0au2G8BwoWJ5
V5mvrl9FUNSW5FvbLam4+Onnv0oxYuj0EebyLgsqdrqapvWoTwzt90u7qG1G
xdaPK4X6d4kjcn2Os5EJFb+8bK3GbBdHl3yLjawNqdjrTsUaJ2FJZJZigO31
qThzxPPy8glJpFRdoXFyLxFvQwdbQKYkGpCp2+ShTcW790ur22pLIZuKbvr1
HVRsVcpIvHhkPdox7RJ4U52KLzv5vk+JX48EJYeXb6sS8SomFX+2rEdV56ZH
I5QIXN3SxKMkjdA6jppkeSL/7cki1unSiHlqw71SYUL/DCXljGAZJL/SEpG4
lopNS3n/i0+RQQpxUXd91lDxqBFn2hLIIMWSpRuKfET/sh7R5GdlkPr6Ord7
FCpu2zp5gGkti3a8v+N0lp2Km97WODWek0UaB/cc30ei4gTuTmfOYFmkdTXN
YnmZgr13irR15ckig8YbyGmGgi32/7iXQJND+86qa2pPUXDD/H/DJhJy6ABl
SH3dBAV7Tu8IvbNNDpmoHdlcNUzB4V/m9e9ayCHLyC1C6j0UvD24831/vByy
ku/i5+ui4G+7X3s3pskhm8/3uQc6KDgzdzbZrEAOHRsmsT1uoeDzW8+8GWuQ
Qy5GTUPsdRT8hWrG9pvORK4d4b3tPyl4dr+c2a51TOR+Sa8z/wcFb7JtH1di
MtHZ59kNHhUU3E7SOPNLk4nOaTrVGJRTcMZIEOu2ARNdqBX9vv4rBWuli275
cYiJvFcDcT2m4HL91qr1jkzkc1/zY1YRBYv85OtWPM1Evlsn3t35RMFOTdF9
dReZ6Iat7avdBRSs8HHDv5FAJvKfEngp9J6CI1ozMk+GMVHA3bLk8bcUvP+o
e9DFWCYKyle5//w1BT9fu2vQM5mJgk36o65nUXBjrD7N9iUThfQ+Dj36ioKP
7Qm63vuKicKumQWppFPwL5zJEMhloghB2k16KgXXoathre+YKCrj89XeFAqO
ufI9b18hE8XoennDMwoe3hNmalXERPeaFM4/TKZgvselTPoXJrrv2eHhlUjB
xxVjZk98ZaJ46j2Xg48p+MqRLUH235go4cn+ExsTKPiO/p/4lUomeqy+akuK
p+AHPevGDX4wUeL3PMvWOAouYNruV//JRMkn3Q+/iyXyXTU4VVnDRM9Y640j
oynYHGI5ueqYKCWqwdAtkoITsqUGJgicujFUVy+cgrmGWr8G1DORVfJG/Y2h
FCzXd5gDCMwtWmpIv0vBK7QdX9IJ/CnaYf94EAWnJnW81iPwWe5//9UHEvXQ
a6+FE/Gkbz00yQ+g4CJaWeOdWiaqXdp++JE/4afzL86qEfkEXKwz97tBwepy
IWNR1UykPnrW0vEaUY9DMfvTKibqc6ZbG/lS8N/kKmsnot74jlTbLT4U/I7s
8Ki1nIkOHNU/xu9NwQ48py5wEnot/ex0mPai4PT81TsDxUyUue+6Y+N5wi+m
foF+hN7HikVdPnpSsKvQBf4fRD++vDHzuOVBwbtCpt0j3jDRxS3jZ065UfBM
e24QezYTyaeEnvvvFAX/RDrlKulMdDeu9JKgI+EP7hT9T4lMpMl3wmfegYJp
17zLRB8y0UjQP9/WYxR8+d2aeVXCT6Y+O/yf21DwITfNvoQgJiJP1gXcsaLg
APrzniE/Jspz87ztYUnBB9/E8bJ8mEjENi1EzYzI3/6mnZk7E3XsEYsr2U/B
VhJ2U1wHCD+9f/8g1YiCd3vqO9vpMtHebeYJoQYU/OmWRNt5DSZ6IR2WZK5L
wcVmu9QGNjDRafaV9B4NCjabvjq6ZkUOSV1LyCzfQcFfr7gMh0/LoZqZHa9f
qVPwpZnguJoBOaTW55nnpUzB0tI96q/r5NDit64idgUKds/pdep6LocydW8U
92+g4AshjyLSHxD3v1Cs9LscBd8P7+/YEyqHil+ZV8SuJ/QJ4pX7cV4OBUd8
rZcToWDlQ4Yn4rTkkLBF+oAelYLHpG1z9Spk0SdXzh3GHMTzo2z6stBHWeR4
3fmWBZmCcx42nSvOlEU5L2WknFc48IWZysfpkbLoAOuhedAcB56mH9UoM5dF
fokhRd/6OPCnZaX3dxtk0MCAx72D5RxYRdOEb6hYGkX8q+g68pUDJ9iuTpW8
lkbb1yhsO1bCgf0/cuwMfCKNAnb/rTgLHLjm12a9Dz7SSDLCbjUynwMvJ+yX
XN0qjczUDrrXpXJgJd3o36EK69HH60o6R4M5cP6ngPo1KRIoaPUz//YgDuxK
GalQuCyBzG4e/LMmkAMHG9V3ix2QQEOBp29U+3HgvTuv+t0fF0diYRmfDC5z
YFOuXVpsxP+Zb4L8LnUXDnzO/k+jTpko0syXUmXoc2DuB/UfjvwURoUTfMzv
q+x4Y5Y3jyUIoHEHy4LD/uzY/LzUQdbcnLaDQ0SL/Q12TPtQQT9mPqddc7xs
2e0aO/53cFpIJmdW+82xHboBPuz4/M6Klq/uM9oX7YQr35xjxx/bP1um/J3U
Xjj6u1XwBDuO/t26ga1xUJvtkOVqgy477lv6JCVrX6l9ziRCphux41idXJpC
5lftroNlemN72HEus1ZgbgVrfzHeEUzVZMeGeZ6yFJytHXhAmLFTlR2/Ve07
LeX3rohm+Fs2XpYdh1PHrf8711jE2GNpaMPOjv9evfO5hTRa9DIdhnaT2LHB
te+3OZljRVrCmyIlV8k471WK7aD+eJHr+FJj5yIZy3H03XUsnijCT5+6nZoi
8Jrgacf5qaJz1NGwi11kPFNe4+ShN1/08+et+ggg469Np351HV0tctIavXzu
MxlXHlS9rl6/WrSYZilh9pGM7ZNSkwbk2UA+YJOzUD4Z+w0Ll3ols8EN9Z9z
j7LJ2HD/sQvakSRQeigmlv6EjE/zlVr62bJD+Mlch5KrZPyZsyo2O4sK6zza
DlVcIeP7WLfSso0Kz7w40c/LZPyCTGHP5OaEgkB7yVYvMh6Z99Gwd+GEvy+5
WqY8yNhx61VSsygNNIdPmMvakXHxnky/zee54Ot02F4FGzL2zNfd9ziBC0yX
81WUrMh4tlfWpLCEC5x5+QQ0Lci49f3x2cW13BC1rbDqsDEZj7M1cEe85YY+
rzWGN7XIuOXQzvn5Tjqcv7Zn+x1NMm4G8pktFB5YDnRlhmuQcbfIxDj3Jh5g
3C8iP1Qn43cqp5jVnjygVeAOOYpkLG3vHu/M4oGY5S8anRJkLJyUPNS2zAuS
lLGNfWJkbOSlLFcvzgdpvKIiI+vI2NQ86sslTT74LOU5O7+WjFNTRY9hbz4Y
0BF/w89Lxl1G+XtOD/MBuu21Bf0j4b1zjV2bvvLDxOLPx2JLJBwacUZpDfF+
nXxOkW9ugYQHXg/pPlzmBza73onMGRJOUOfg2SsqAFj16HuxERI2Ejwa0W8s
AOfS3m6cGyRhE49FcStrAZCWEnhY20/CZbciPOOdBeAmV8XV4B4SJp2KSwq+
LgB7OzV151pIuJVD8Z3CKwGYOvLgTW0TCRsu7yWLvheAZ9+n5bJ+k7D9VtHQ
ZiwA7PmZVKc6EvbUuRD1vUEASsOlqmoriPzku7Uu/ROAi+xX92SVk7C51oTG
IJWYF640Zgd/JWGRX3MLWwUYEOgUFY2KifOuVnybZRlgsJt8NKuAhNUHDyWN
6TFgLufYt+D3JMxI21I59B8DXsp/3OWUR8Ir18vNCswZQF1zUUI8h4TzW7b9
LD/JgLKB3q7gVILfJAIX3mCA97G95k4vSLh/8oKc/m0GyP9KLEXPifoMYiOS
QhlwB46mziWScJjp3caqBwzYd7/itNN9El5mrC1gz2bAAl2+A90jYcGPHR3r
3zIg7WbAIfEYEnbo1vzGV8AArjO7VevCSViZ20rfuZgBhd0PnmeFknAjNZj2
4ysD3K1m1t69S8LhHhumOCsZUKmXNY9uE/09wP1ovpYBvh+43MRvkfC29Hvh
mQ0M2LzNpWXOn4Rf3hTg2d7MgBCx9Z+zrpGwz4VGoeI/DNCMuqp015eEq1S3
/i7tZsAQpSnJyYeEvVhBYY97GfDfZFSA+EUSNtv61ejbEAMy9v1aYrtAwkoa
KWxrRhnAnSxyqc+ThAP3bMxVGSfym7cZ+36GhIut3nttnCTyM0k8letBwnqR
gyenp4h8XnZ13ncjYTex8IdxM0Q+/5g2104R9Yg9VuWbI/gtXOtPOBP+2LB3
v/08Aw5kvjI2ciRh78C2hYAFgp99/KviCRIe8Viw82MR/LaqaM1xEn4nYxpt
tkjwv7lUMG9HwueNfuYuE7iS64NKuw0Jv6qPbrm+RPCfWM74YkXCmcXtG38T
OKQAMdMsiX6NbnpPWSb4+W89Cbcg4St2ks94CLz/VJmwlxkJP9sWTBsm9qcV
cUVZmZLwxxR36lMC04QPcmmbkLDql4kCJQK7nokKkDMm4bHv5/fcI/i/ldYv
0Q6Q8LDQxdxaIl8FCZFLY0YkPGOdqtpP1BPsZTNWb0DCYin9Hb+Iegcqn5z6
oEfCOWNavxIIPfbJdnUm6pLw0GST8q5Zgv8K0yYQEX4dEBbMmSb4a0/Vu+0h
YerRGw9XCb1dFV4ZH9pN6BuKuzdOEPx+Y1/Vd5Fwr8Q73k1jBH+jChLbSdSz
5uQu9hGCX+lSwao6CZ99MBH4fpABRu1LGZXKJMyzuo2V9pe4H+qImaNEwt8v
kk8MdBH3IyzgSZwiCUf2LriQCP+UaXJFOSiQMF+g/g/cRNyHGGMuQ3nCj5az
Z04R/gsajAzYwiTh6Ay/rQOEPw3jhS/NrSfhfyUXQ30I/74ctx5rlSThCv7T
HsFlRHyjJ6eKxUnYQObQ6IUvRPxZOZswERIuUbll2/SBuM/mKkiWn4T7EjaH
DLxkQErGxQJOXsLvhhSZ2qcM4CAXqIxyE34KLXKJe8yA0hxtZgGVhDeKt93J
jWaAPp8xl8kKGx79dat/ty9x3jkyQG2ZDSc8kvlIuUic/1y3tG6RDb9IETfP
PEOc97Ae65llw+m9RvZRDgzQq3CpvzLKhhc9bT7n6zMg/pPHg1vDbLjM+nTE
0B4GjLw+Zxs+yIZnfuflrO5gwP37vj3JvWxY0vTssVoFor+OEdPl7Wz4Yuvw
QyE6AyJW3gkKV7NhmaJXubsrBaBnsrBxfRUbTtpRf+dpsQBo9MKjTZVseOnJ
94jhAgHo+l4ht6eMDXut+ZGumCoA6g/b1ZyK2LBAhu8FlwABaFGjWLzJZsOb
N/y4Vq8mANs2cq/7lMmG5YYl/4ZsEoBAMf62rxlseN+L6rMK6wVgK0nUqfkl
G26x0jsjzC0A/tWKF9mS2PDtvZ/W3vrMD/JuFvdMItnwKnk8o5PKD+cTn/8a
8mTDNxO1VuW9eWFkpVms8gwbpkY1/rCx5gWX4wIn0j3YcNiQlb2tFi/YSF8f
PXWKjfCroWApiRf2PrOk9h5jwzqwXWlPCA8IvuTS+HOQDfflm/CKxtDhXZbn
o/otRH+mT5nW+3HB9JXLpT4/V6GD485Zpz4OqLlwqs/v+yo8dTr8mP6FA7I9
jtLulK+CZf/+dQ+fcIC7/U7jOFiF+M8961wtOKBbZ74+9/Uq/GGW8HVgdqjj
vNwzFLkKXXMqZq5xZHgT5022N10FdwMbvUElNjife0lHt3YFxJu+5m1zmSt6
dnVzQ+Xnf4CLy6QnN0UVZUma2lu9Xob6NTWWTJUZbamRaYVTr5Yh2s1cQ8Fn
Rjuq8MHMpdRlmONVzF4qIt7/jv4JjU1ahg4FVhW/8ay2VvTZwurIZbj3V3RD
t+OcdiVHuIjBuWV4en9Xa8vdBe2B4YpaFZVlKDdbVA7LXNa2KTzzRGfrMnEv
OWMqR5a1q4IZboc2LYNIofBAleI/7ZwN1mxnZJYhSlJ+nUTmP+3LxweU0hjL
8PW7knRr6oo2tZ4aJjW1BJX/Hgx928+GmIV6hvS3S/DuxZ699RJk1HnygPDX
7CXIfHEjRms3GT2hH+67kbEEM3g15Zo1GQnbHwuaeroEMmnsFv5xZMTFdqWs
OWoJfg2+x1F0djRmkG2YdnYJzJpHF7LG2dGrsTzhk+5LIEXz7z1D50CuDz72
ibssAduwyxfSRg7UNfAtKNJ+CcqKK56l2HOgX6E9Zd7GS7DHyMq57hsH+lC7
zshg8xK4nrWXy7hPQd6+60VWNyyBZBy1IO41BanKyfcXyCwBR4nLO7NvFJR5
Ue2OougSnFnMN9NhUVCiiEm5IG0JEgT92fusqCjQ/pZRd+8iHG4Oi9/Nz4lM
BkeN/J4uQoTqdmPZozQ0U3E56+aTRciaFKN8cKWhRxkkwcCHi0AO4Q+Q86Wh
AQ+hjuDoRbiXdua012MaujmmdTHm5iKMSzAjljtoKG86NPnFiUWwHbi84akt
F7L5JURNs1+EFs+lNjd3LkR6l+SRYU3sD5elUK5wIRPvtzteH16EsCtNNm/i
uFD/QktVge4i/LfxFaO/iguJrWxifZch+N3imemq3Ah3vD1WLbkIn070nYnS
5kanYE9pjShRz0QiY/8BbpTnfziygbEIzBTlLUonuNFB9isb/pAWYaU5iFYW
xo1mesihXf9YwJeteHvHA26UUBo20cNiwQadAwOXn3KjvtvJHwcmWbDf6YHi
mXfcyJ/27fBUFwvuCAQZSLdyI/nBw/kz7SzotLYJE/7LjaoqWiXmm1kQa6p/
pH2EG4mGjvcv1bLgzcoX1PaPG73hFblB+cICvz1bDBMl6chqLLmHs4gFvfYv
3EU20NFq9eb93IUskPP2+OSgSEfGUdpr+d+w4ESa9BdHTTrqXeOSse4ZC84f
yrbdbEFHQ+8/r9+WyIKawGO2VBs6mrARijNIYIHNNmXZvON0tPys1O9CDAse
JrINBrrTEdlIYjY4ggXpny61pnrSEW3Yyz0phAXcc4tXHl+kI0E1uSNVASyg
ySQ+W7xOR+safSu7b7DA+Su7jFMAHUldrUMsXxaE/OFSTwqio80lNzfLe7Hg
9G929pAIOlI+1Zyk5ckCGX7+d7ti6GgHXUXI3INYzxzpL4yjI13zzlU/RyLe
jvoilcd0ZDi/89L94yx4JlhqszGJqPdR5FCmLQt2ex4/NfaUjsxQ//GSowRf
lEJXUAqhV492Q7M5CwT8ekonXtLRsTv3D0wcYoEkusuvmE5HTlvGgGrMgq2H
zIo0XtGR+0+D7ZL7WLDlRXa1cBYdeXo9yVDTJ+obMdQuy6ajiyKz6w/osCCZ
RKIb5dCR70fjOActFmRd/Kf6MJeO/I+ncF/WIPTRi8379IaOgtiX/cLVifrW
WUXkvqWjsFTz2efKLEgIXQeX8+go5r9X7oWKLNCSbjfgf0dH8ePkzhoFFix9
GZTxIfCTWJsj/UwWWBwoNHtD4Gc731T+k2ZB+SVq02cCp7Vy6ayVJPwzWpSb
QOBsvxPvNosS/vki0LmPwHlyHzbrCrFgIfuk4zeCr7BcIPkogwXeDWZaogTG
Hq5CZ3lZIFJS5LGbyK+MH4cEcrHAadvHKSUi/+9vRdgeUVgQ+u9e3TRRb81R
z0u5JBa82NPME/Kajn4vlQ2V/1uAtUr7n08SerUlSTl0sBZg357+B5sz6ahb
z7thZnYBfOgDI+oZdDTQ/+MAfWoBujJxikAaHY2FbsAyYwsw4yH55fMLOmLV
/8ow6VuA0NA9u8KS6WjlsqK0c/cCTKfeeJj1hI44JALjrnYsQHcSOp2cQEcC
Tmr+ab8XoOMK9lmMpSNhWuhsUd0C1LLVFJ6IoiOJzG73huoFaJlZ8UsIo6ON
M9FHyOUL4D/d9tI/kI4U4wcr15UswOC3rDVK/nSkqqWrsw0WICSjSyjrKh1p
B05ststfgC8+21nrL9DRkbWH2N6nLsDm5gd/mu3o6GUMl+/l5wvQtNCmEWdJ
R3MCpdMaSQvwIZ9XRcyU6Cfvrv6P9xdAKDuHeXMvHbVQ5aqLby/Ad04hjVIm
cR9utxvduknw19x/8UOCjq6yxxfrX18Ayg5FzqdrifzZeN+VX1yA/qMSjS/Y
Cf+y5h79cFyAc08O8m/6w42yL+cKRR5fgOsx1/1vNXCj1VmPSFPbBXC1mzJJ
+86Nkqc6A+rNFuBf4Xbtw/ncqHu40q1ZdwFcyvUZssTz7FRH4s7e9Qswhuf6
f2zhRgV21rkvxRdgss8wu0GKG9FaBbe4iizAkYdcnWkMbpTRGCw1zEf0m/3g
r9w5LjRSc4Ey+W8eCo+Vbzct4kLnSgzrl1vnwXwDR2StHhfCuqSDRY3z4O5/
8s9DNS7EwB/L/OrnYXPsuQUlOS705pNyIfn7PMSoPOkDEheaeSf2lFY4DzV5
fhf8PtHQlbSxs2vj5+HXOTXdMAXi/+GY4g2pe/PwVF6Zz1eYhsbWuocrRM1D
1Z/bb7U4aOjkzd5XWsHzcEUztE/nDyf6z6ZtwMmHOL/lZZxRLCeS5Kk8+c5q
Hh4WfxJ0mqaiYs8Xlpai89AidUsz7h4FLW/ocXYQmgdLp0vXTK9T0I426Uvu
jHn43FC40uNMQRn7Hsfe4JqHn0+ldO7toKBYmdial6w5+ASxGyR/cyDnev8D
881zYOqhkTnCy4G4dtppxyfMQeKe3Tc8T5BRRPny4YP350CLEVayTo+M1lo9
cSbHzEHubTnHeCYZSV3pCDt9dw6CW7+cF+8nIdWPDq06PnPglyUvs8OdhGyQ
s8/gkTkwz+i2HnRlQxlGZ99oMubAk/Nop1Pssraxlb98+51ZUPuCc8UOTGsr
Z47tf3lrFrbfdE49+m9KW4jN/oyn3yxI2lk9P54zpd2RuiuPdHkWxFlLCXVC
U9rn5qd05V1m4ePcdgmzjgnt2PvO9p76s2CHLvw5UDWi3fLrwD0SaRaOTA5c
3Zfere12WIgs7zsD2m4Xswcs3xZN6fto37sxDQlna3rdvWaL6K+qlkx9p2Fb
yARPeuVsEZMh84HXexq43gxua5CZK7Jsr1C7c2Yazvx7Wzzzc66o8JL4Jl+7
aeDn2uOlvWWh6ObLIkEHzWlIrt/h6NK+WCRAowxumZuCNy1rONKF2GDb9+jY
kjNTwMW2ifODHAVU3dz6vrlNAdmn/kWrEQXUOXV3VTtPQVTAyPkeDwpo6k10
NNlPweDp7AtP31JA/6PJ5rGDRLwlBY2fulSweUUvXqdE7O/f1PPGihMCQ2+P
nRmbhOT8uvLnZ7kgaJO9rtfQJPDaKzd0RnDB3XL1ez59kyCkzCOymM0FEex/
d93qmARyzDsxPMYFD6/uvR1fPQme/cePxJzmJt6vV8VLsifhkqu/NeMEHZr+
u7J/neckWGRUuoZs4QXNLKlMFY9J6BV++323IS885ivl++/UJGxfUDj0xYEX
HGr5fl0/PgkBQ3O5B+N4YcAy5VjPoUkIs2OWWC7zwsKJn17ZysT6hwUNVjEf
2JRc/F2uOAk6utWyHc188IkptqtLYRJoYuXr703ygX+/04qgzCRc5R80uyDN
D7Qzi8FXGJPwg6n2bOIqP4j6bEjUn5qAaWnu1x1rBeBacyXbsbEJeP7XpeEA
Me90aJ5zvDw0AQwRWugTYh569q9QIaN7AmQbr22c2yMAm2+ZvuWvnwDYeBKf
cxYAzYir31reTgA/55L/udcC8HhcesvM6wkI+Pdbdicxj62YloXzZk6Aeum8
azcWgC+CDHOdlAmYtU1z66sVgAMPX7a/uDcBTzbqziVPCYBNSu3UuUsTQMoO
MypTYgBnZ7P19vMTcHTL96cOxLyYJ96NWacnQDxG5H4TMU/yxU5FBDhNQPrO
gA8Oxgwovim45Z75BHCVjQ39OMWAs5/FY6wOTUDVIZG1h88yQIwlx5L4bwI8
w4vf5hDz7MVz6uUv9k7A4fFN5Rw3ifn/+BHHfJUJkI+8bL38gAENCfaVV7dO
gNvTadPjTxgQ8NtZRWfTBOReuvD8yTMGtB70Xv0mPQFTA3urX2UyIPjuDZdw
iQkI0TE9cTWXAepfg34cXjcBykItpRveE/Os1oNHLfwT8GzfyYvcwIDdPknk
JPoEJLvsuaZfQsy/b1PdHDknoHnWuMqqnAG3LM95Nv0bB8tRmyL+nwxo++G/
58TsOMgmH5d8U8eAHQbR9KGRcdh19KW20m8GDKm9SV1qHQclsSy9t23EPP/q
y6XA+nEQik3r/fiHAU9k6/V4v4/DGZp92ZNuBsw97GHc/zIORQH/fbXqZYAp
Y+aPVOE4GNlJfhnpZ0BGMEd2au447Dj9/LH1EDH/swldU04fB81vTepJIwzI
H9u+bm/8OByIpK3Pm2CAgIthX2XkOBSs/aZya4oB7u2WeeZ3xqGYD9/aPMOA
UotTAW03xoE083k2fZYBUlWXTZ29x0FcM9+VNM8AH71gqbEzxLrHz8/KCwyo
LYwf8XYehxaqxe+dLAZsVk0vXLUbh+sbIVZ4kQGB6R+Cgy2I+L/fN1YRuEO6
0pJhPA7ZPHyBNksM0IhvYSbojYPW7q++QOAY/uEp2d3jIEPnSlwi8HDQEn6l
Og51Ueo1fMuEXiv0SPXN42A/VTO9QKwnXpKw/ywzDm+q44Y/EHhhRHGLoeg4
HFNxSzhMYDOnPaxqgXG4LePQAwR/ZuvB8qO0cQi0gnQOAlPMj8V1ro7B2Kul
mvVE/scqzzq6zY/BxLsPWgyivgJdP5WpsTHQnvpR0zTHgDUfIld9+8bgSRE6
703oc1o5+Qd7xxj8DDIgD00zoCw151FYwxh0Cu5zVSP0Xb++2E3oxxj43u6+
Y0bob0xtOrnt6xikhRq99BhjgO/omO3+z2NQ8nGm4jjRr18fJUyuZ43BAEOx
sonoL+m5mtGDF2MQHRB/1Z7ov1LIAZ3cJ2Pwd+vatk+EP4KtfFR7w8fANuDN
EXo7A96hyC2rt8fgROms/mIzA7rlXzJFb4wBzN6NLCH8pzVbL3zwLJG//Yu/
fwm/TkRvW8ozGYOG+jRrB8wAySuGM9WGY8ANtqPrPzHggIP96ID2GEhzP9D6
kM+AFKXQPxLbxuDImj7sk80Aq+99JYH8Y7DwXuzwpgQG3H7z71Mi5xgs50jk
5N1jwJuHa98XrI7C6fp720UjGcDjujdtZHwUAr+mnz5zi3gecCSGWdSMwvhs
7jMddwaMDefdPvttFHKrLv0X68gAifrvN4LxKLR5tUcV2THA+ynr3KecUUhx
k89JNCH8pn3kCDN6FGylBv1vKTPg6IbTJtp3ifOSdQcfKhD+47llZHVzFM7o
2+y6I034ryVnV9j5UTgRN6g8zE/47TKP1MzhUbDW0OetGxEAOCYnwndgFAKG
1+1K7RGAEQNNAYW9o+Ak3M+waBEAw7WuZDvVUdi/3S1OvVwAFnNK+krWjEIc
G7rGnyQAjkO+r2PrR8B+1/IuWSMBkA86msv+fQQaXbmiz2oKwICM+luvLyPw
fLb7ZchWAThrPfrePHcEBgX72lQEBcDn2/EiwcgREHn1ar93AT9EvNT/EXtg
BO4mn7x1vJIPTPfK/GTfOwJPnwU87M3gA8GOfzVeu0aALvW2lyuUD+KF8n+Z
K4xAX7Zir+IBPngeuKlNkErEIx2jtZbwQsFJvuHY4mGo3MjlUJ3CA1dXhkbY
PwxDbgmvhaofD2gnlI955QzDTsn4LjVrHiip9Z8yTxqG9MuLhfw8PFCtM80S
vD4McaM0xc1n6NAj1US7pzEMd5r6UoYkuIGv9an8vddDMEY2PV+uygkpfYHm
calDIKjQ/GEHBydoTp3yv580BGahYaKHG6jgwqXUEh85BL1bTJzveFOhaGdh
+BNPYv+Jmb3LeRTwvFc383LbEJAeiY+KynJAzUH2kg+vB8HU7krun89s4GLd
N16YOgjT50QXOwPZYNmpQuJT0iD8eC35J+o/NlC4FuldFDkIjTM62ouvV4v8
M8Q3l3gOgpMpJ9+6ln9Fypzq0VXbBsGG78OshcBiUTR2Ov7n9QBQ9R9N3uec
Kuoz63lFSxsAe3YxeBg4WaTZe2JBJXkAajf9l8xDmiz6y3U8OjCK2B+8U+ru
xHiRhrl1yabzA6Au1iMrjIeLOnoPbryoOgAZn41lfm7uKVKk7xynvesHh2It
7wSP50XlR7j8VAv7QEhHPkeybErbSUC8hjPhL9yzddg/aCeAZMudTdfF/IX0
Q7mr4iECqPN6To1CyF9wn1/cZ5YvgOyGDWr3+/6FzbM/ZssZDGRedq4u1OYv
OBkH764qY6C918p+8Yv/hUHLLcYtyoJo/cD5ZpHHPUCX7JWfIwmjtsRP1gr3
eqCmVFr1q5IwSjjC2aIR1gPTFaq37toKI+GSxy3W13pgl+9/y+N5wogvsbz1
kV0PCLoUG8ifEkHL5pId6yV7gAeLhX39tg61wLfujYndsFVV5qzAdXGktKXZ
IyKuG4zDxDcKvBJHN+8PzsyEdcPz/xQ7x5rEkcIZbs4vV7vBfGrvf4bqEshb
zHiLnXU3FM6vRBkNSiDGpZ9eUWu7IdVvve3f/6TQvs2/OVghXVDgLN/Z6y2N
Hsf1hR8P6ILARxc/8IVKo3G2eeGyK11w1ES1RjRJGt1vFNkU69oFlffaen6V
SaO/gdYHtxp2geJwDq5dK4P8/7TFnSB1gWCSB9/1DBn068Co1LeFToi2zCuJ
/iSDNr7/l6o00QlOK2EyN6tlUHWYVOFSRydkVqGW0UkZJKHp0BH3qROU2c8q
T+6QRfn3euQrL3dC8uek14ofZFFlUORPK89OSCiLGXP5JovafHb79Lt0QkvY
b81LjbKIzT62gsOyExTW3h6nz8qi/Rv0TiP1Tmg4bXpYUEkO2YmMr63e0glB
D/fe+bNbDp3levTZTq4ThJ46P726Xw7FjE7x+a7phJqRIgcZJzn03sPA0a3r
D0zfzFgUfCCHWg49yQuq+QNRt34ZmD6XQ6tqs5QU+APkFRVpq9dyaN9ySlrH
kz/QHVZy4FsZsT+MY8zc5g/cS9erEJuWQyvn7ND5/X9gM/fM3+f/5JDckbyo
CI0/kFTVyDvDyUSnJZ3UKoT/wJGYRxr94ky0klXio13fAfeS1z2n6TKRbIx4
pe2XDtBrP9/xYT8TGXl7iV/J7QDxIz+9t5oxUZS2XNHbyA64GRZsZX2SifJk
r/LX3uiA4qdsZwTcmaiZWu8wdqYDqqnvLt45T8T7GcC+ybgDykdrht/4MZHh
2xYLw90doOZ0RNoliIk8Hqi+dNzcAes7Tep+hxHxjnfvS6R1QJ5KkPJYPBM1
6WkmfJxvh0Pk6kexiUz0b2PMcFNfO5j8fEKeeU7Em9CNEPzaDjw6VzR6spjI
/dfDP8p5xH6SKz73hokiCyaVTZ63Q83elHfv3xPxH+8P8IhpB07d7At5hUR8
/6f1wTfbgVKrfditiImWnVjMl+faoafQIONXMRPJ7D/sXXK8HbjqBhtmSwm+
renlnSbtcD36zpaqcoKPQRJd2UPED8klHa1koohZK3fxrUS8d0rZcVVM9LY5
56OGRDvkuy/evlNN8H2m8VrS28EzV699Sw3B99ThmNdiG7TJnuYMqGUi6aCC
11GDbfBBh3b0bh0T6bsLkLKb2iDgWbukbj0TuZq4mn0vbyPe/7sz0wgcroqf
D7xvg5N0ZPH/77es5pj/KaS2wb7JN0MhBGYW3p069aAN3vbenuAj8Pj1sYep
d9qAz5uv4QARv1DXXLf/chskunBwahP8tykFA/KubSBk6DfT/5OJTCskolys
iHic89z7iPzFw2/ufLmvDdq/7c23///3W6Z9Hb0abSD7Jt5Zgag/d+1/QRs2
tcGzY+E3Uwl9rjW93uos2gaBBYLeLYR++x6vbUjhaoMshWtZmNBX0OHKtb+s
VlCyvRhtTejfIdchxxxqBb5HlNAUoj8Z/Xu/O7a0gtPEffJTon86njxiPYWt
0L5OgjuT6Ddd7Xyx7KtWaKpMOfUhjYl+zzW4nnzUCuqRlh2XCH+cuZGU33W1
FRxEtF+xHjCRxl6O4zKnWyGB9bsCopmIg+pGPWHXCsMBx2JUQ5koIVz1SKdW
K0jvrcgQv85EzocfLK/f2goxcdWfoy4xkbLQ8vPjkq1gEEEh5ZxhovLHX6c6
/rXANSnSgyE7Jpp5ZRXVXtQCevvDLLR3MhF4ft4p+boFWI+ldacVmShETfaP
XVILhMe7HjgoS/jr4/DWNr8WQOY3JMboTGRSeeN7i04LRIXY+9a0yCHRiJ4L
YiotwAge4Xn8Qw79PbxPzEamBSSzt17nxHLoajPDrZnUAlcc5Q58JJ4XaQMp
1KYvzbAisPP9LRc55JXJlS3ythkuV4Tb7raUQ9rnzh45+rwZzgcIeIUbyKGG
+Z0pv281g9sl5+0rsnKIzPldt0G/GXqza4NXmmSR3YbJa3VlTfAjesu6NmVZ
ZGbWtb3oXRNkGdd0TIoQzz+/2rH0lCaYDXetCliRQTuacx1uBjTBk94amzWV
Mkgg/IK+snYT2EiR4IeNDKIWnvwnvrUJNg7Paj/bI4P+9Zm955Rogu4XkUZD
62XQkI6awh9WI6RVP+Wv7ZZGpTPT9Ih3jeCQb83dcUIaFcr8Lb2S0giDuaPO
ajrSKNfk13Xn2EaICDd3nZGURolpeeNa5xvheEVwgfvr9cjH7lL9sGIjqKVp
7tkaLIW2lM4l7E/5Df7GjSV/VsSR7GSf+fbY32AxzRbOlSaO1kk18sgE/Iai
vzTfwUPiiMMn/8bC8d+glbwoX/JIDHVs8TmZKv4bBAcfrn8qJ4piYlmbKLEN
AHdM48SmhFAwHuyeuNkA5ap7Z5JuCyG/0eZHbeca4LeHLa1ARAidNirkzTNp
gNu+GrIPdq5Fhku+kye5G2AktuVIjfMatHhyuQDf/AWC71O26c7woAeerPLq
8wTeouck/Y+O1K/N/W478QtUd2ts02WnI8+4iZkF3V9Qhmwf7eTkQn/L/yqr
kH8BK3PT9TujHKha8Ufa04B6sDNferDPYUHbY1dl/usL9ZBV88XprPCcNs2w
vOzzyXrYdMvuyr2yaW2948V/m/fWA8ehfnu/TWPaBdHvpNew18N6t46VyMQG
7WdzT+IDbtWBoujyulo0VoTYH6VGedXBFemSzNIfk0Vt/PHvEx3rIOeHvNWW
gJkikU0xvwr16uCSk47cpxVWUZhtkMA0ex2YZHQKzDwngzc+G+wYWAtrj0xS
tkfzwf4Q5KN/uwa+XDZU9o6QAKcUr7Jnl2rg+0Lpde2zknCjKHUtyaUGelmK
rV2HpCBvij/3s2ENlDbce3KCRxqkbTsHd9BqIMz105OHnTIwcpScbyb8E2aL
dhleyN8AsmHu5vzz1SDtmfOvaIc8HMV1498bqyG9Zv4ZT748fFF4rmDwsBpU
hQXfvy7cCA9Zegk7Jarh3e/r2zWqN4Hho9vXJWR/gM2DggnPjUpw7eeoaDP5
B1jp6r9xzFeCXHbL93E9VVD7yrzj9L5tIHFafpzvRRU0h+w41r1DGaa1yh1I
ClXQt7Oso/GkCiR30PT7tn4H85mbpJoGNViUCePO2VUB/fF/DL8p7oIgBXpl
qUgFtA+s7N4QuQvWbAu52zz7DaJ0s3PQ1C7YrBVMY3/zDbQ2xjflFGqCjWUg
1XLzN8hJqIpOtNCCjyHXyMti5cDw0vx3PQvBtenTi0bLpSDYW98pfF0PaIvD
H+xaSkFfclmQ76Me3GPzuHK+oBQM37N1eLH0IJPXbSHhYimEOVBMwy/rQ/tG
57nRkRLwuavoQ71iANp29lOx7V/A5WRjxd1oI1gtPTj0pwgDi+++Q5aEMTSF
9B3ZlYRhPE3P3N7JGN6Y+hXH+GFIvCU/ey3TGFzacuINdDBYPF2rxKt9EOL7
N0ZY3gLgP7rlzw0XE1AxyDMaDf4Mr7OHxu66mIIT249CsXsfoGlaUx4tmoFI
2Er0D4sPEHpBty90gzlUiii7+Qt9APM1idfXHTYHlW2xIn33C6BxTkRnKs0c
VuytL+Y+zAdaj5z/a1sLePCxd+u+pHew6/oyW/iPI1DpvZJ8KSMX0pdvrcF/
raB7trz6u2Mu8N9zSXgoZQ1LF6OXZSRzQcNPGv+wsgZFL6ZVdWQOSB5uumVU
bQ1if+5JmQxlg8qOB0fDPttAco3iUo5fBjRuH/6Qn2UHr97a5XlnPAWRgdVb
ZR4O0JY7zi8n+RRe/5fM9TXCAXhyAjx+RibDM4s/b+ZziXWrwwamQ4lQFnnr
6OKCA5w4MCjz1i8BCt67GV29ewJObxVt9cmIhiIBdaukvJNQvQnF1EZGgVr7
tkdLLSfhmHFljMVQBPwNnH8XSXKEv3tOeub7hcDDZfIph0OOMC4do3A94ya4
Cez0zBh1BCe1T1vth27AO+/DG6uEnGCQacGN/XzhfnxpykZtJ5jhDCy5nXEe
rr05MxQWSeCpnTq1fu7QphWk/KDACVYbTrHuZ5yAPcufdrZ1OcHaC9ucP2Qc
hhC1EGRHdwZ24K7u2X6+SNr18R2R7c7wP9vIwM8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.518739313937161*^9, {3.5187393898063803`*^9, 3.518739395089223*^9}, 
   3.518742770238413*^9, {3.518743535728662*^9, 3.5187435630502377`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p", "\[Rule]", "0.20725703260476271204338952753454360454`17."}], 
    ",", 
    RowBox[{"q", "\[Rule]", "0.78336492936768917888514202919205682628`17."}], 
    ",", 
    RowBox[{
    "r", "\[Rule]", "0.00943089051495776713116181210338500862`17."}]}], "}"}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.518739313937161*^9, {3.5187393898063803`*^9, 3.518739395089223*^9}, 
   3.518742770238413*^9, {3.518743535728662*^9, 3.518743563077744*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "+", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "+", " ", 
            
            RowBox[{"r", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}], "  ", "+", " ", 
            RowBox[{"s", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "6"}]}]}], "/.", " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"terasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"q", " ", 
             RowBox[{"qpprox", "[", "x", "]"}]}], " ", "-", " ", 
            RowBox[{"p", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "-", " ", 
            
            RowBox[{"r", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "4"}]}], "  ", "-", " ", 
            RowBox[{"s", " ", 
             RowBox[{
              RowBox[{"qpprox", "[", "x", "]"}], "^", "6"}]}]}], "/.", " ", 
           RowBox[{
            RowBox[{"x", "^", "2"}], " ", "\[Rule]", " ", 
            RowBox[{"x", " ", 
             RowBox[{"Abs", "[", "x", "]"}]}]}]}], ")"}], "/.", " ", 
         RowBox[{"megasol", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
        RowBox[{"terasol", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ")"}], " ", "-", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], ")"}], " ", "/", " ", 
    RowBox[{"Sin", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", "0"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"terasol", " ", "//", " ", 
  RowBox[{
   RowBox[{"N", "[", 
    RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}]}], "Input",
 CellChangeTimes->{{3.5187390421257467`*^9, 3.5187390718714457`*^9}, {
  3.5187392997065277`*^9, 3.518739311382125*^9}, {3.518739385798242*^9, 
  3.518739394636228*^9}, {3.518739536516655*^9, 3.51873954377006*^9}, {
  3.51873962752905*^9, 3.51873963549345*^9}, {3.518739739951066*^9, 
  3.51873974027568*^9}, {3.5187427767397833`*^9, 3.518742780586299*^9}, {
  3.51874418939226*^9, 3.518744218402794*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVW3k41N8bHYYZZB2pFJEWS6JFtPm8N19lSdakQkpFSUJlT5sQhVRIC8lS
irIv5Y5kp7IL2fd9EGaM+M3vr3nOM5977/ue857Pc8/zzGywvWp6gZtEIvHz
kEj//yTTBX727nYhNh5NParea0bfPIz3r39iBOx2+jmRdDP6wmfV8y3hNjC4
wWgr3DGj96+8yMwOvwqfNj+ReCNrRm897FeUEH4LpApsT9meM6U32oTLvwoP
Ba+8eLY305ietktlT29JGLQeuq3xqNqY7q7x5I970WOYcM9xmIg1pvOA9eY3
X55A+LYoiRh9Y/p6w6nsmZRIsJAxMLD6z4hu6ijZGhUeAw/zXpqbfTWgC+4B
eoROLLz69sZipZMBnZHnItZdEguf9+mFXpQ1oGcXNGXdKHoDW7UNg8r8j9D/
K4ldev3lLZSNuGrpn9KnWzeohU2lJMFN3cK3eet06Y+nrTIiwj/B/Flm/zqy
Nv2RRPSBQqHP0Bfe4Pu58D96Xdp9md2mn0GrMfplk+9/dMsRq/71bZ+heWlg
uH5Ri+5kucJleiwNHu368cRr+SD9qebFwOeimSBxrcg2bz2it7SYXRY2zwTt
lHGh5Qqgr3cDw3vPMwEJFek/sQB6UuqqlVfksuBrrOi6HzcIer5MSQxSywa7
9pzKE/gAvZNLLmfQIhf4Hd6WXfbdS9/0Wija6mUu2Op77MhZu5d+cR/Lp7Yr
F65qTsBUzh76tGuN1pdLeZChsmnX1lkNOk+f788Q73ygPbuu/NBLna5U2ta/
O+YrJCb8/Jr1aRd9f4m+gNa1QpiJ6fTfcW0bXbQh8ZfGk0LgzxxxOjOqTO/r
4X62LaMQMhdr5brOK9NDSF9kJGcKoVitwrzCciu9Z//W3QzXb1AfxqVFPalI
D0xfcea1axFkch3KtgzdTLf+Zr/5aXgRxPH9OR29bjN9Z833kQfpRSDf+OEO
3/tN9D/j3jduTBdBremtnZfLNtJVFceCDFy/A/YYS6LR5OhNMdVZCy7FYNUj
sXAxX5r+IVXBm/G4GATjbq9dmpOi3y7wQwNpnO87dkln7paiK7YdqKqdKgbP
RK6ua3lr6T6rUrreuZQAsyR8rLVlNX3jo0crLFxKQXxvVo2kN43OfDFcY/C4
FE5aH/pA+S1Gr04+FKGVVgoOabZZrepidLfyf7IqU6WQ9aV++dhfEXol2Umd
16UMPqzq/C2msoLu7GV4NsO5HHiHVHa8OspN13c68I4vrBzunzVpcjjMRd9o
qzRp/akcSqcbCS8tEr1Jj3KTb6IcrDdVn3wYuIg1JXGU9eUK6Ei0yWls+4sF
crfVUO0qofBx90laXCvu+7ButfX9SiioSXVUnanHOIb/dHp8JVxyXOHRkV2J
XQL6R616K2Gd6vB9LkUf/Pv4K2r6mSoY2ZhZPHf8N5EwKwhWltVwVi1YbuWN
KcJ3eOF+mlc1iMg4LZ2rmCZOtA9VU6Kr4Yl34nTkmr+EYEnxqbTf1dCavc2r
MWmOcH3q40Y5/gO6fq92LwliEwaBDgWWN36AxdF1/cdyFoktPid40p7+ABZP
H5bs/Ee0nFMLt6z/AV/Hf6TvFiUB2jWW8tn4J+yQXP4Su5sb1sq3/uV1/gke
8mLVOnncMLO2fL9l6E948bTi+ed9ZEjkjq/g/fkT+Nr/82hV5wGhOsv+U0d+
wUNX+mZxCQpcyb0Qwr2xBmIth1rlrvCDip6JLJdaDeS3upP0m/mB0XIgfVm7
Blb5vti4CQTgOlu8adGuBjZqDKZR+VaAF1EkPZ9cA4H3AnW33BKEA79SPs1+
qYGb2y5P3moWhH82zw/+ra6BV5FXLHO3CcHtO84XpiZqIFdhprK1Xgj8i9en
jO6shaPlppqeVBHQNReAkf9qYd/lh95WRiLAPzBbM3SsFjw+HiN0n4nAQ+qP
v/1utWBoufJHopAoGEbl+vcF1ILMJcab3G2iIKoYv6Y3qhauLZZV/DYQhSf6
3ge68mshRWgP82igKBxrs/vZUVULHSeEh5LiRWGVo+mZ9j+1sO6u7T/JQlGI
fqTo17pUC1mDZcj4ryjE1jRXNWjVgad+yKSOqRjYnv1uXW9WB+Oi2qMJ9mKw
cTp1svZ8Hfi7xiyo+IhBori/+C//OsiLVfOrihODi/EuCT8i68A1WuFRb6YY
KO221qh+Vwcd14ky1VIxSDmuZllRWQevr01+vzIgBk6DMuNlbXVgdJ7MPDcr
Bts9VtwqHasDJ9IOFEmmwTTfvGjJvzq4M6JczS9Gg8znPXHfhethykOivECa
Bm5KP9WKZOpB8K6bVZYiDTS+5JUWbq+HW3pHU6fVaJD/J2ykwLQetAciBXX0
aOBzxcfn67l62MBvaWJrSgPNJXvhL9fr4ZD8nuKqUzRYCjGLzbtfD8lvIjzu
29KgUAZ25kbUw5kd530fX6LB3c9KxdlJ9cDKWdMzdZUG2gdXHc/KrQeToNyP
727QgFLHNZRRUQ+ula29OV40KLMd90xvrQdP8fcPNtyiQeDM7xVpo/XA7u5/
OXiXBvp+xa8+LdbDuZ+TawT9aSAo8Vk1VagB6ny/z4YF0uBnwotvH9c3QIcK
ScEjiAZh6gFmH1QbwHpsNPZ7MA1Mylz736MGKAu8YXjjIQ1oJ067vzNpAKfb
e9aFcnDDkB5/km0DvCPdmaBx8ORzhUP3XBtg7dwtB0nOeoEj1Ds2dxvglUWr
a+wDGmxe7P+6P7wBBLaOBb8PoAFKKWaujmsAb5/nGur3aWB5+q3a37QG2LLV
cFaHU7+byF3nmm8NsE+JV6vLl1Nf4ZmPH2sbwKhTO4rkTYMPLjAU2N0AKvmb
nJPdaFAqt37ThakGUB0zgU4XGnTVL9oc5GoEp3ZBz1hHGrD92l5IizVCtLpK
yKQdDVap5zezZBvh6oDi+I8zNNgxGCXetL0RnENFuTU5ehlEuRulo0ZIk3ms
Tphx9FlQK3M40wgbXuo/X/yPBq8+iJN1nBsBuYiHft1Pg1yraWLj7UYw8Hu5
a+UuGozjT9ltMY0Q2HhqKVSWBnzOIdM5nxpBcrtnS/YqGshtuKLylN4InXaq
P7wEaXDinlKiQWcjfCQGDDvnxOCaGn+PwmQjxAdfv3V3VAxC+geleZcb4Ypi
vlB5pxgU6yQ8K1jfBMXnX16FMjFQFZS9r3K6CUKrPpPI4WKgX7BUKODUBG/q
Swb+3BOD807tiwM3m+DV63+6526IQXRN9PWYV03wlHejvZeFGFCeSZwXbW+C
LULzjTOrxeCP9Ir/pi2bwUk4tXFtsCjM/xz2/Xm5GeRr1Ub1PUSBdrs8P9m7
GbRlPdfuuyAKuj33d5570Qyj7NBNpwhRyEgkyTW0NkOQsau4b5sIBKnOkbJP
/gY/tZR9Qn7C4OWut3XA4Td4xT9ZCDIThkv0l+arfH7D7d91FyLlhEHX6L9k
t9e/wTscSdrRhYB6NcxMo/c3OP+Zq1r/VxD8UpUScx1bQP1Z3uEVBivAd5vN
kS+3WoHVJ760t4QKLlvLnxUm/AGtA5GNDbok6LvQdzs2+w/UeoYuXhUiwfFY
kuPtsj9w03bf0U3xy8Q+ib1aaPgPiI6oqXZnLxHcy+8n6MrtMCb/y86lfZEI
rwvWoWe0Q3pCbDDXDhaR7mnEKvjWAZqmt/aocU0TmzIv972q64CjOv9kI8Om
iIiJgF83ezvgTZxcgoHsFOF1rjBBk7cTvl6pdM5GDELr6A7TAt1OyEu6XHJx
xThRLyv+4euvTvgVXl51978BYuHc5dR2py5AzPfCs5/riDNiMx5f3bqAeLfu
MkHUEiXY678Xvl0QjHd6B0T/IsIkg36fCOmCO3Hi52S7Kwj5X++4G1K6QOpg
cey+nQXEsX0DxyvHukBSQ0e9Zk0KThU9u5zt0A2W5lLGH4R+45V4qOKZazfY
VCJ3pf9asOdl56fXvbrhi8QPFOXWirVLbynuDOqGu7u/n9vT/Ae3eb82S3nf
DbkW6wRT6F2Yb7At6e1QN3j2IfVutX5sW3DcOMyuB9Z6BxvtMBrHO7PX0CSv
9oBwYY1CZO045v7UWv/GvQc+jVyP/mQ6geNiT1tkBPbATF/x0pzxJO65Z3e6
KbkHtoSlS4+9ZmBbfTdHqckemHMUNTrtOI13/rdHJWG+BwKoPEaSb6cx94GF
yW2kXkgNlruh3DKN47b5XgOxXvjK32Rq+d8M7hH197Ld1Qv7/zOu/CPyF9s2
Pwt8594L7nY3Te89mMU7ayz0d9zuBavuy3yVWbOYu0JSMD+wFyxq4144dM/i
uPxXoVXPeyEiSUsuX30O97xKiJj40gvXdhekR7XM4fQI+xPuxb2QVtH5XyZp
Ht8NVVxL+tELfEYOd7bKz2O5OymvxDp6Qbb/s4SK6zy2PZ8Vr0bqg/nrUR+D
SUy809rdroCvD/yzTaMfyjEx9/G9CofF+kA0e03E6H9MHKdT8MFCrg+ubXok
VuLHxD1KJele2n1AMo4kMZaYOH1jwHXy0T5wurphz+g6Fr4rpaf+0LwP+o84
2unsYWE54R95r+z6YHW6+cFNV1n43FRDYWFgH1DV1j72bmThM15hFrlhfbCt
MjltdpSFrcgGE5+i+mAHXX7LENcCPi7xfV3Muz5QqSgI0FBewLp709xulvfB
Go/d3UFeC/hQkaPQjZo+ULvrfKTu4QLWOqIQ7/i7j3P/Vd787PUC3m8dU2s5
1AdB68arQwoXsMqdR8r7+PrBy7Mxz3ppASsJ6H3fIdoPYbR75x4KsrH8E55T
imv6ITHlv8G9a9lYNsE7YI0CB3ts1RVXY2NpFY31otv74b1nuhBCbLw2ZzqT
uqcfri8u3xw/wsbiFZd65nT6QYgneH/1WTYWNd3sOWHUD+m/8j2XLrOxYFuX
yIBFP5yreaCdcYONKeMWmo32/ZD6Zd+VxAA25nYTb6i+2g99vjuK+0PZeHnp
p0Oxez9s/jD1/H0kGzNFD0dlBPSD5I9cXJjAxn+fc6l+CO2HDVJPhCU+svGU
XEFJXGQ/1Nm3dEymsfHEBw+r6Jh+uLCkn26Sw8Yjamozj5P6Yc1Lf8H9X9l4
sGDywYNP/UARWOv6sZCN+w5/kL2T0w81Fy5fTCxm465fdjke9H6IIxfeUCxn
4/YTcobOZf3AWIU2qFexcWt3e5/9r36w9O+Zrv7Bxk0Oz71tmvuhJdrj2sQv
Nq6fOUaz6OyH9r3xyi9q2bjGR/S94WA/iE/VvauvY+Nq3mo4PNkPKxTQtah6
Nq4ICWjSnOf0v+Xv6hEOLl3935Xdy/1wNz9rYwUHF8UukbdRB+CKg+gmdQ7G
ivnRm0QGoHrMPGkHZ78v6Td2SK0eAJeDAQe+1rBx7v4d5eIyAxDHe+Va0082
ziweO71CfgBa0nz+3K5m47Sj72a5VQdgC6Of72sFG6c2nXu4oD4ANQp3gwJL
2TjZRmbjNDEAs697ZgaK2DhpqDVv+PAA1FP3/m7GbBzvEmHcbTgAtaccqizz
2Th2wWTw93EOVpw9ey2LjV/dE/KtOT0AG6W5d8h8ZuNowYqV5XYDMDp58qdN
MhtHPPP7QHcaAPc665rd8Wz8ZD3SynEbAGmPFT/fvGLjh9tzrib6D3DuU0fX
EZx5qNzZPHAjhINXlY1FcuaFb/e89aGIAfjwylwu5BYb++3VMOhLGAD1g0P/
TJw4fO23+J6RMgDdiZplshfYmES477uXxcG3dPeHWLKxt1aOglzJAJy4YHNV
R4fDl3ZzzFT1ALQ99Tn+9AAbzx2eX/WtYQBC/jqq393Bxq5HNHjP9A3Al9r8
Xf9x/OFwLKf7FXkQ9rck3XIYXMDvjjefuLJiEMZ0/t7/1bKAB07M/zogPghh
Xpd2t1Yt4LPWGrhNbhBeSMtM9qQu4BN2OdGSWoNwj7bZp855Aet45Jg9uz0I
dXo67p/7WNjPq7nyfOAg2O99059Ty8JFPvMH1cIGgZK567UTZmHijsb2+phB
mGr0shmLYGH1oBxBMfogeFmf0N2nzcKbXuaUPPw3CIYKO7zehzGx7evmA1a8
Q+D31HT/pAcTx8bOZ2wVGoI9+dwbJs4wsVSCRlyl1BAoHjvTKLmdicVTc3z5
DgzB5+88h/dVzWPuwhwNP68hiB+feq40O4eThWiJ/+4OAfv5Ef6xpjlsaum4
0j14CF5WvGm8kDuH387JTl16OQRmRR8y7nvNYe1tQclGeAgydBTKH7JnsX+0
lfQ67mGoyw9UcZji5N0bXOT0B8OwWjiJayRtGospHfnZGTUCn0t2GY/bjmLd
GK23jPAxUBr7ffLFrh84oLym/e6LMZA+EHC4obUKl06dXiMRPwbeSp9lw+9W
4kPa3o/2Zo2BWtAt1U/1ZVhrOMP9bvMYHIiw3z/pU4QP7NpssFJqHLgObB2u
L/iEt5dRZzUSxqHjttu3srV5xFXGM9XKlHGYaHbMkon+QqRKbnKwyh6HKxsU
WadXY2KbI+q8XTYOFR1+Cfn3vxFKYp4VFcPjEMEojotyLCU2WY68slSZgH8b
Hv3bzFVDrJ6sPnwrZwK0jrGNxta2EFGP6WeH6RNwnuXtKhLfQqxRS/cxK5+A
zaE7Zm8qtxJrPCPT5VsmwKaoM09jfxuxlmy7vmZhAhQOuJxkGbUT61fPz8oS
k8AkuT2rTu4iXucNiwYfnoQjcsXCjsNdhIzVn62zhpOQnXgbkuS7Cdk3385W
2ExCzwDVfyKum5Db+vCHy51J2PzNCaU97SG2wIaEouJJSO9oGnx8vo9I7BYv
VP4xCd0jkT8+vuwjtvhR2iIaJ+GRz2NVy4Y+Qr5iVPTywCSoXpt/5qzVTzxV
tMT8PAwo7px75CI5QERkbFZK38yAPteEFqf0QSK6LJ+LfIkBUYNn50oejRCM
rs+ek44M2LioV/Mtc4TQWUicanNmwMmEyevmbSPEX+Un3ZkeDBhWe2H2n/wo
YRh++ZtdIAPOGa2QVcsfJbitpe5UJjFAUQga/6seI0640VjZHxhw1HaVfNLY
GPEplM/l7ScG2F3qTIoRHCesiv6e8clhAHO7ab7RkXEiW/4HUiljQG/wFu73
38eJy9M3SeEDnPOmCYGtsRNE0YrrHr4jDFCyn4PGvAlizWYHhsMEA4LzIkG8
foIotTje9d8cA0TQS0d9nklCtkClcJZ3CoLvs67Gn50k3Jo27enhn4K9P9I7
Rt0niR+Taz//FJqCIw9yG0sfTRJectTYJIkpcNGpNtHInSQaAjpvndw8BY+G
o/Zx8TAIpTeN84cUp8BMtoLvmhCDuJNfdXXntilodZ9+nbqKQaiM59is2D0F
7Z5Y9Z4Cgwg0DYMC7Sko8HE7FafHIDou++e8152C/R/ettmaMIjd931UIwym
IFHKwmD8BIPoybkoc/XYFPyMu7n2jD2DOCB9cFn2/BRYxV20xHcYhK5Vg6vt
xSl4aqWywziQQRx7YT/w1nEKZpBMaVwIg7gsGfJjy40peChv5BAUzSDcTmw4
eNFzCjTTy57LxDKIu5GZme9vToF5SEv5jQQGES3R9kLZfwrK3Xc5XfjEIBKP
OYk4BU3B55ceAssZDCL9Cde9TyFTIOJmMn0yl0HguqdzjPApyD58f5/bVwZR
IabgsDNyCmhzYUyzQgbRYPyl/dqLKUjuidGa+c4gukINTbJipkB/f6TqsTIG
wRS6sWfPuylYVtQxsfzBIHiO8n30/DgF5GuQw1XDIEQfvpD58nkKZORfyznU
MQipKpUni5lToB2Vl/K0gUHICxRRiDzO92bR1+40MYideuZetwqmAPdOh27/
zSCIwKHxwm9TcOg/eZm4FgahX+Z9lrt0CvT+ahFNrQziOEWk8b/KKUh1Ia34
0cYgbA/F6d7/OQVXXUve+v9hEE5+u7+W1k3B47mX8uR2BuH1vVyVr3kKRush
W4uD73NbvdVrmwLWGiHnQxwcdnByVXAnR5+N/G4rOPjl7btB1b1TsOZV//BT
zn7v6BJLQkNTEPZherybc17m0jsXo7EpOKuomDDNqadQ80B/GGMKqAFyu8o4
9Vb7/DpR93cKRE9s+GrD6ef3F9tqcdYUSLhQLnzl9Nu7MAvm/zj6PTU3a+fw
MbH3QUYE1zT0a+5IKeLwteAhJf+bdxoUJK2fO3L4pOR+ipYUmIYsz/3QxuGb
Nq8lbCk8DV5etaXCVQxivXrTnZe0adAQ+3KCWs6Z7xuXZttXTcOptu3rS4oZ
xMGZ0D9nZKZhYlvBaFgBgzDYudE4buM0aM0Y6cXkMYgTLtnfe+WnwcfO/v61
LAbhPPkn2W77NGTvTNF3+sggfFSc179Tm4azRqtVniVx/HCFHD68ZxpuXb4d
fzeOQcSMKno6HpyGStVtvOmRDCJZqWAs5dA0bDlhZvj3MYPIvmR8ZlJvGmqZ
6kP/ghnEz0E3HVfTaRB8crDO/haDaN0i8CXj+DRY29XeL/dgEP0XXqnMnpqG
6B8zxlMuDGKx97uEx7lpsDD4vfDiHIPY2iXad/P6NHyR233cUptBGA7KFrl5
TIN0Y+GD8AOc+ie2x1714fRn98QtWo2j16Kx1Vm/aWA+sN8uvYnjR8nHDdpP
pyHkraPiDIlBnJZ9k64ZNQ3OLf0mDpOTxG35tDD1l9PAc1LrffifSaJ4d62B
Qvw0GM2Z9tRmTRIGpmIlKzKngSvQZ4fE+UnC6eSGtzy502B+/9ibUsNJIuzM
jjv/vnD4Mbx/S2Yv5/3jZKI5+X0a2j9nyVQIThJWwY+z6uqn4ajHVm3q5wnC
sVgs8fnMNNwdlyY/HBgnQqo2+IXPTwNxXj2lv2qc+Fy3wzaYPQ2dHe3u45/H
ib9dJutvkmdAV8ZgJ7/XOOHz73HEGfEZeHBHPfsm3zjxUJ0WIL9rBkpK75QW
rhojUt7RLma5zgCfRLk8mz1M+DXSD5LdZ+Ak0+I5q2GYsOK+ss7Eewbc1CnV
71OGCQGrsp9j92ZAMWhAQO70MGEn4rN707MZGFNgbfX7MkTIuvVzP8mZgZZg
tV9xFweJp//lvnJenAG5azEqPI/7CJ8O6/qt/n/h7muJLuV7fwiXA3uOvH46
C0GFyaX2m54RJKent0KjZmHeVesYuveICIlhZNx+OQv7pi09jxbeJpK530ud
i+dgAVVdFy8X3FMuOSGfOQsf6Y+sble8wsfM2WFp9bOQe8f6rItYJlZ3wk3F
tDloG9xw2MCxFBfHrF2RvWoOPFfM0o1Vy7BprRskrZ0Dy5AG96GpMuykpvru
gdwcWK8we1VxowInLcR4Gu6cAw3/mPm1HtV4TcAdqd8mc5CoZ+QRu7MWL8Ro
246GzUFQDneixEgTJuY1w3c8mwOrId/zZ/Wb8R1DjSL353Pg12xlppfcjPn+
KcrxxM2BsMOoxvDF31jilEiPVMYcFD5seKPX3YK3r2w9a9g4B/a/zBufFfzB
FwKvnk2TnIfxmyRbD+Fu/K7z4uN56XnQoPU/NNfoxmPqtt805eZBp7VWlGHT
jV37j22oVJqHf4pDyPJzN76tta+7Z/88XDLYrfnvaA+OXuQ5u/L0PIRrMo0E
fHpxjXP0Gfe4edBMfGVnENuPlcJE2dcT50E8qvB9b0E/vvfJ/5lr8jzQHj7e
srutH6tPuFZeSZ+HL1dD3/BKDOBXl4+onS+aB6w0/+TY/QHsYLdINemZh6Z3
EsGOJwZx8X3XOMOBeTDxW/x532UQSycMHTAYmYfBk5tmjgUN4preBhed6XmI
7OfvEv8yiDXOprRpcjMhgGsqTEhyCPNYnf6kJMeEI2PizK+lQ/i0d4OewhYm
NPe+PbSmbQjnROv3bVbiPJ9h1LZ5cgg7tKhLbtjJhLxfkistVg3j2uMi91Zr
MaEqu+uU4NlhrOR2X1riMBMkVS7c++s6jP2esXNo+kzooL92feQ3jPc0DI4J
mTIh8UbATE3iMH5tUnicx5YJq04W/3o+OIyZzupTXHZMiOiV9STPD2PTsI/B
y5eYMOf2IFqKMoJ5f0UVLrgwYfCybYrVxhHsaOCiNHWHCeTj5qtFT43g0suD
xRP3mbC3JPHWlN0Ilgm2thl7wITqtnztO9dGcF2F3tPBx0y4urnN7kPwCN6r
I7fU/oYJP8SfFG/JHcFqbysDyxKYwB+8N0u7aASrLLuKp71nQuWEh4l49QiW
y/mu4JfGBDtXVZWijhEsJe6YcSWLCfkeRw7GDY7gVVdXEhZ5TMgUIhJ2Mkbw
CvkLZkrfmFBaQQidJ41iyj2hDvESJowH/Bvm4RvFpM6si//KmaDcySo3FxnF
fyMovjU1TFC4fkKHKj2KJ6ZT+fIbmJCVd7vEfuMoHjK0ePL2NxPmAy+RPRRH
cTvl3Tu3Libwirn7JamN4t+2xrvO9DHB6tTVj6V7R3EdZhboDTHhmvqA9TNi
FFevfaO7a4wJ9W9UH4n/N4pL3fTqpRgcvn6cVz2oM4oL66asKX+Z4C9ut2/9
kVGcrxI9NDnPBGBUxScbjuLMIK1rLWwmXJrntxswGcWfBkb+FS0z4W/1Prfa
Y6M4WetJ4EcyC2TWG/+8bDGK41/vF4+gsuBDNMs+6+Qofr3Q++rWChYoTH7Q
TLUcxVHHHypcEmFBGf2l/nHrURyerpZhKs4CkfiyoJTTo/ihcLvmgdUsWLNx
ZCHDZhT7O9wv37yOBa8+h0ZdOjOK75RuMxORYUFS8uLZnxzsI9fUzpRjwZKF
+vEeDnbz9b3Ys4UFhwZpNxI42Ll1y0yVEgsanWToqznYQf3XzSwVFsB44e69
nP3Ph7vzxexkgZ/+cis/5/zTEzJPAtVZIH7qV9oDq1F8Qr9c2nUfC461fy/I
PTWKzRKd31kSLJALMCJHnhjFhtySuw5psSB7OTJg03FOvjv9rUDlMAuuDT8w
Pms2irXyL+mu0WeB10D3+aPGo/jAKlo9lyELgl+LVA8ZjGJ113zrURMWbCo1
CtmlN4q3/7QdajBnAXVLQua2Q6N4s3/GvyRrFqzVPWS+/cAolu2xDHx8lgWx
hnb9ezRG8VqCR9z7AgueKu7kndoxioXnjikYXmFBcXCbvPOWUcxn+i9dw4UF
PLeiD2vIjmLu1ATNDTdY8GZvn3Kq5CievzBn+teHBfFvZMM+rBjF099et7ff
ZsG3m+tUd/KM4jFpnYtlfhz9Xoa3XFwcwV2NkTejH7Lg+WmHVwOjI7ji0N53
6CULgoojNmwpG8EeZb4qt2JZ4DSpd9Ds6whW0CvOLIhnwfm70ys3po1gfwOj
b/tSOPz1SZz88HwEa5tdaFXDHP2P862y5fj3b0PymWtFLDjTdCz03YkR/PY4
YyCtlAV8q5JbwvVHMPcp7xmVXxy9MpPumW0bwYVnHgsqdrGALPeh6cHEMHbu
aQq372PB+3tvvGbah7HMeSnJxCGOfu/Yhtw/hrGvfdLmjVMsuHdbzEA0eRgf
cCogpLkXIJ/pKz9jM4xzvIedxTYtwPeCdHWeL0PY7p/KvJHCAgh1hP1piR/C
q25dvxmivAAZRx13nwgZwtfvLj9YsXsBboiOk43PDOGdDyTe8h5eAHbnFrtd
pCGcGnGwkWW/AOnxZoLU7YP49JoAyz2OC/BZa+h04MpBLBRd3e3mvACye3P7
s5kD2PGVxcSMxwJQnuvWSRUOYKX4K9SJBwuQ+FZbWeLIAE5Ie76358MCHCnf
vpls2o8d2JZKvz9x9pOwH0vZ1Y+3H1q/7mfGAhhvNzGXkOjHX3/HLeZ9WQDJ
jpNa65r7cP3yB/rjKs5+Q8ZKgif6MJchPnRwdAE+WG24UXG0F1uP9JjEKrEB
39ZlCq/oxnJqCVoRKmwwG97QwujrwkM37Xc93MmGE94dxtG4C18XG1vpsY8N
exJtQw65dOHgPbPNRvqc59dt0Rd914nz/Kmnly+xwXulwZttMu1YYqOyw+n3
bGjW0su/870Zh4UHH3+fwobrt1LG9c41YwHuUa2/aWxo/BAun8LdjEnd79cF
5bPh7pNLRnqoCY+9lv+RVcWGOp8KGVZ2Ay5eu3G70AQbSlTe5KAntfg6be3c
l52LcE1X2JRXthTXcfHdlfy6CDzr1gfVjcQTWXzXEmsq/gE5vcC+OLmdGPC5
M45//INF/yAqQ6CDWDMVqpZS+w8qLRX3dzh0ED4tH4setPwD03F6/z/FTkI7
eaBDa/gffJdNvv/MtIuoO3JqdRbfEnh2pn7fUNZNMEIOBj7XWYLKGZv8Vs79
TI5s/CvgyBKsCvU7Ty3oI465n17lZrQExivGi8lDfUSujXe8qcUSPAk75HdJ
s5+4tT2rcIX9EuT+aBZu7e8nhOsUWDf9lyDCaWPzb+VBQllC1MG2ZAn6m+yP
JocOE+KfvnxMqFiC+jYDkYbsYWJB135y6McSPHebepTWPkyU++DrV5s455fz
o/tKI8T5PsdbPoNLsHdCSsS3cIR4lVHxNIJ/GeRqnbcpt48SfkdvNLcILYOq
5vs/OsujhOOg7Fpp2jLotAk8EtowRuxb5xHzdu0yuBzXin56boxoursl+fPW
ZXji80DlTt8YIWx6j155dBmK11KXjjWOE7OjKtzCpsugcF5MunpqnPhzv1Xb
5PgyiHrP7u0TmiCS83ZUNp9ehv6EBN1Z7Qni8Iauhr6ry/B+yHQ4OHWC2PYl
eLXC9WWofDclu1g2Qaw01zh12WMZIh0zNvJ3TxA9gSGdU7eXQTdH6u682CTh
yzgwsvR4GTSO+UavvjpJXAgaUtaKWIZTVX+kztzn5IlNT6/ej16Gw0x3l4Mv
Jom1J0b/rni7DG/9GInVJZNENv358prMZcg2MuJbFGAQr04e0rLKXYaVL8Zn
fVYyCL8Zhl/M12Vg9PFdLZdmEKbyugJbSpaha/DeeqzKICZD5lbualqGEdsS
/fUmDGKMsb5oW+sylAoJyzucYBAjpjpXFTqW4UOc1MR9GwbRtyqqQnpgGSpW
JIcqX2EQPR6FbmtGlmFNXf7KnGsMorN1aKP4BKfePdktol6c/PZ6ry/f3DKk
v9h7c4c/J++SbLeSF5ZhS2MqP5OT9xptg37/+7cMBzWndzzi5MGLT648Z3GT
0EMpp2y5lwzCrpiLMcdDQq2BAsVybxjEhdlnh/9SSEijSr2GkcDJ9xZ4ZkKA
hMqSKo/MpTKIs4Gm+mOCJFQTKuG8LYNBnMkbiB0WJiHdb98Wd+QwCOt1IoZ9
NBKaut1eEIcZhJXB2/julSSk0P8rWbiIQZy6qcHuWEVCxxRkXHRKOPm30+Zd
y1oS+hPcsbyek6ePi/5dapIiIa6jHn4FnLxtfjDQvGE9Ca1OKT+lwMnjx1yl
PtbKktDyrtW2Npy8bvr2M/cvORLiebvGy5aT500atE9WbyKhgm7eezs4ed+Y
t+VTxRYSGrJ5YF3dzMmr6lcoZQqc/qNrR3a2MIij9lzWxUok5MV3S/BCKyef
Rz3L+KZMQplGGfG2bQxCv0JRgK5CQkIq/BFb/zAIvYWCM1+3k9BiXcx3Ogfr
bjXNydtJQk3BFDGZdgZx2GpAKEeNhNJHT9rqcfChR17nM9VJaNhS5SXBwdpY
+EvaHhIKCg9/u8RZrzUZJ/ZpHwklmW48/YCDD8pqXPx4gITmvcfSOjjnI5Mq
/J4gISWVoPtLnPqIuzYSSYiERt+KFQ5x6tfMmLkcr0VCocrSeq9+c/J1X0DR
G20SWqlRySfF6XefhJRkzGESGj/0ZfB8I4PYe/jz1Ze6JBRdL/LLvZ5B7HHX
Ln2uT0KRQu7vjtUyCI13v6UiDUho00Op0+yfDEK9xfHaU0MSWsWX3Xq5mkGo
CXBVPjYmod4JH/7ECgaxa/8z2VBTDv+Ku5relzKInY6K7g+PkZCNrtw29+8M
Yvurgh8PjpMQ931ptlAhg1BZ7vfyO0VCcZIb0yNzGYTydq/aO1ac88duugdl
MoitZ4UVbp0moQC7O46HPzMIhe/qjZ62JPRRbn28ZBKDkP9budX9PAnR+KzK
tscxiC2bbe5et+Po0R3aJvqKQWwMCFC96kBCnqv3vd4aziBcm9R8bR1JSH5y
pO7eQwZRuLmn2tyJhMS18kYSOX45XXzA4YArCfk6vow4yvFTNNd0PL8XCVkP
SH9bx/HjsHHMzKI3CV0n08cqLDh8xRpoMW6S0EDASKqWMYNoIpI6m+6Q0JPh
F61PEIOg+VitjX9AQo2q2vKZ6zl+qeK/FBlMQi65TpbZEgzi89qcnKBHJLRN
3J99V5Azj3li5i6PSUi/MmtobnqSCJorDSWec+a3j6JW92aS4HbZwdvyjlOf
yxHZq6MThElhh1l1Mgk9t9XIKaybIGJFHsbRP3L0PCxkmJQ3QRCpA5D4mYR8
lGM+7vKfILxGX3hdyyUhK7GDZfprJ4jpCxSGUDkJTe5l8N1TGScOZmUQXJUk
tHWDQIWyyDgRxnP20d8qEvosf6fBcXKMUHn7RantFwlJ8FzX+5w6Rjh0OV94
10xCyafTjXUVxoieU22tWoMc/zxJHW+njhKCmhZJZ4ZJaN31M470jhFit0z9
Nd9REsr7L+q8fNYIEdhbKZg/SULPdDZ+Dz4zQqg65hM7mBy+DjW8TUkbJnxu
Po+T4edCJ9eo9EdoDhGJNhJXNVdwIbcd5tlcQkPEr4OP91sKcSHXj4I/59sG
CTnKg4YIMS50WbAFBXgMEuUhHhThtVxo4RHvW82PA4RErIXDohIX2mZ1PvTs
Uh/HP/Xqa7dxoVHZTTc/lfYRF88bkfeocqHBZMH9oSF9xFcFnZfXdnGh/ffM
qBTpPsI2Tf3nyH4uNJE9dr5DrZdILZLY2WLAheJXmsh+NO4mdPvrWVlOXGiN
6+VuY89W4ubWEO9PzlxI3YAdmMBqIdJddP+9c+VCcXvV9U95thDrlr6SXrpx
sO6riCG338TEqkTqXV8uJPn2nkWuQxPxVNdDwjCEC7XA9RPb1OuIrg9SOwZS
uFA9d0HS3coiwsP1wsVV41yI/NUtdrfkd2yY/UJ/lRs3Is9w//C9M4Ivztgu
S3hwo99fLap4a0fwve1KmRJe3Kjz5K9fFzj3/dzkXGkJX25kdzmA9hGPYrmY
Roa4PzcKmje6oMoaw3MBIpFiEdxo78Cx2n/nJ/Hrk/d6BbO50U5Nz6/e1Gmc
G6EfJZjLjUrunJt4sXUa19eLHRXM50ZhhfkPnxpNYz7D2OwVmBtt31PiJhg5
jV21Ch4IlHIj23WMSp5NM/jw1nlVviZudHd2G9/93X/xxKKDD3mOG81bOftt
2TmHT544osia50a3H2dqehrN4eKMrU0TLG60388g4bHjHH7uMKba+o8bPT54
mC2aOIe1f1/p/cxLRr9+Hdm4Z9U8fpHhrH9agozSNvifeTEyjykiJvNmq8mo
6tkHj39kJnZ22BGvJ0lGIs2R29ZJM/HhDdP/1KTJaPCr24i/IRNPh1xLW7GZ
jD7fCJMWTmViXQe3NXlqZORUtU3JyIaFM0qOl6Sqk5G5+d5OmessvH6Dhmv8
HjJqHbDbHhfIwjPN81WhB8jo9Nhm5bzPLPz6kOctO20y0nyst0fmHwvzvzmp
bHWYjLZqTXhfFlnA1xf3tpjoktHSwQuXz29YwHoZCzs1DcgoIHlt60ntBfxX
1mdA/BgZvUmcbzvov4BtfKye8B8no7efas72PFvAlc0H0LIFGb2vuZKhlLCA
Y0L+PR+xJCOpJx+MPhctYP1F36PfzpFR5AuDSF/WAs6ysFnIvkBG9ESVeAMK
G8tmQNJHezKKpl1KK6Cx8dwlElfUZTI65nzUyV+Jjd8038l0usZZn1kw/cac
jQdKtneG3CCjuPi+g7pn2Fg5s5P/kzsZvaSdCvN2YOPsME2bSW8yKlL31PC/
ycaLvmMPRHzJaGNg42orfzY+eOVFpuptMvpxWIj6NYSNq/VY/M5+ZDQ0tl9x
9Ws2pu15pxbmT0b11BfDoglsbLHFwuZzIBklfn9f//gDG79cSQmqCSIjNlNg
+/M0Nu7hzspkPCSjbok1ulty2Fhh6lynaCgZXQznttvzlY2vdNIEdjwmo0qR
0oafhWyc/uObmskTMvrto941VMzGzC/ONi7PyCj7HLnxfjkbE8kyQY8jyWjT
9XekhCo2vhf1MzPtORktzEamHfrJxuX+NztrX5DRidg1GvY1bCx8Q1lg+hUZ
2S+d6uarY2Ozc21qtFgOf/Z3uZTq2TjKJMhmZxwZHRWNGf7/7x06YG+QaTwZ
jd3MGhvk4I0qQ5muiWTk/qfo9D0OvigV2Rn+jowUbb89fcHZL1XgsEBGMhnh
zR/6VGvZeIb5V63+IxkJl91MgF9svGfwrc1MKhm5emmrVlazsW+jaZB4GhmN
U1e3/axg4+/fubJ2ZZDRleAN5KOlbMyX/rnTLIuMQh5GcmsXsbFhrI3A9Rwy
GvivfXdGARs/DRHe/TSPjPT0zi48z2XjFp8Cm8wvZLRj8VvqfDobr7/sGNRQ
QEZqm7+nV31k4/Mn12X9pZNRLt3QXiKRjd/rVHauLCKjaqd7Kg0cPSd2ewrs
LiYj39Npl6mRbOxJa7a5Uc7Rr8Cxrfw+G2OSf9CzSjLaQlS0mvuwMc+kWlZW
NccPf2qGj7mycUhVuMBcDRkV4zcdiVZs3JB3cPeqejLiUYp6wTRmY8l3DBv1
RjLivfZ4Vb42G8f7GWa5tZDRyIVxchBnfkdc/3VGtHHm9dnJE5FSbKx69qNA
TjsZ3XwppkoTZuN8TYEz890cf1tIaxhOLuDlrXlBq/vIaE3cyuPCnQtYe+3F
LI0BMuL28Kvb+3MB/5orEfAY4fiH+/mvmuQFvLL/+u6oMTKyuTKmtz9qAZ+q
33gmd4KMVnurSIjcX8B9n+5kMaf/zw/xlmG1gBcuap7xZHP0kF+QDOHl+POL
Errxj4xeffGdLp9k4RdCa2Rdljnvo5hVWjdbWPhA+nTnRTIPyn8k2mj8gYV9
2Uk2J1bwoO/VfP+e67Lwz6PP4JgQD/paZ5sTocLCMrF3ZYxFeFDi6jJFgZUs
XKht3akjzoMM7HqmzNqZmBxCs9FYx4MkD5ncdrjExMe6lold0jyopKn57Moj
TBy/c3y9qgwPirl6O2qnMuf92FzWsWUjD1pyTWBUjs3jQNmbp1dt5UF5D+VW
nbefx4IZg9az+3hQrLpQD1lrDlvxNmpOHeBB59Z3CjatncMpFkXS4wQPeu9D
XlgzM4sNF1+292nxoJvNm68x3szisEOm1g36POh19ZpP3cy/eOXvr1YZp3hQ
QKDzXFrwDD6vlHzgkxUPahEqdb9tOYOzfCKlPpzmQY66jfMFSjP4+AbXP3G2
PCg8d7j8ftk0jnKQtwp34EFdItR5nYUpLP3vsaWLFw+6u/d5R6Q2A+v2HM2L
9OFB3rVlhX4UBr5exr8a+/Kgrcp110NDJ3Hl4zt1Avd40JP2xaHYsAnstsVF
Lz6Ys7+Cw62eu2O4xshYo/klD7KruuS8T2EI340TFtek86Ben2sbBGb/4JSA
Sudz33hQqPr3gYr3bfi3o//PB9950PnjLkeFrFqxisbSg6YyHkTtSHVXyGvG
bVXjJOcaDl/OlVpz5nVYbbZ6Iq6bBy1vD3p0zuUrHtAJruTj4UVFPlzHvgnW
ErZHzshupvCi7qHwGBRdR7Qb7nY7yMeLoj50svIVG4gG884NXoK86JetxWyI
YTNRdG6X5+hKXpRU0HJt56d24tWtNvmfm3lRrtZHd8Hz/cSxnK33n+jwIumT
misvPZwivm+phvXBvEg0YmaTqyAJ9EM69Vc94kWpB54E9PxHgprZaXPhUF5U
LnNq2cKbBB3Fko5L4bxI00xh+ugICZi29lEd0bzo4muNJJ1yLlCO4Z56ncyL
DHZRzNzvkSFi9d44mUpeZNcQe/TUBAWkbhmkrK7m1BvWv2XrJiq8HbDJFfnJ
i5J5/itrOUmFz1n+P5dredGGi5nJlcVUqDJrWOhs4UUrOwcu1kXxASnsqlns
MC+62rwQrrRHABz4Enk28FPQ7A1PkSZdIajiDnz03woK0jx8YUzHWwiU/11a
ZSdEQWmNc6eOpQjB5NQ2hQ9iFNRfqeOzS1QYrrdlHdm9loJsHgi9LqsRhpup
JeF6WynoZVbG9RBpUeh4l7TOcRsFpZAP8fDvEgX09kF8iCoFqZqd/nVAVxS4
o45m1++iIN+VtNxKF1Hwv9PYYn2AgrDa9POT30Qh7Fi/rOtRClr7OTGXz0QM
pgzL3j81oqCrfDa8zmfFwFTv/c4cEwpalxFd6ekiBhLEFe1Fcwp6cn1DslOY
GLjtMfqx/gQFnQltTD8eIwa/d+44fvAUBQnVdIu2pYhBtPysvf9pCmrKMHmQ
XiEG7A3NjHdnKEgyxdmLu1kMrKTyPKtsKajjm77TUK8YyIjdDBa1p6A+RvjI
1UUxuL3CZuWuSxRU//XZDmE+GvTwHnxlfpmCnnHdYu4Xp0H8As+n6KsUFHfg
9llQoAHv7IBGgQsFRWomvBfbSQO7yfLCzmsU1JaWV+C4nwblw8l63G4UJF1G
GjbUpoFi38O6TR4UFNb59Fq2AQ2COpwsdbwo6M/fi3FvjtFg7Ldx3yUfCnou
bZAjbEWD1B8r51JvUxBUBATZX6KBSPmcb+1dCgpsfPTV6CoNnIt+U//6URCp
Y+JL+nUa1H7ND1sVQEHHGNfyQzxpsDPnpeTeBxTU2/J+oPsmDZ6k+cZZBlPQ
A+vWy8l3aPD3w5mtvo8oaAVZwHXAjwbHE7UyY0MpSP7ItPTTABrkxG7S/P6Y
gsb6eB+nPaDBpmVt729PKChVrGavfDANwqwv5NGfUZBUYNzyuoc0WPxyf74g
koLi3+83D+Hgi2sTd399TkGU/VXJPv//v4NH6bX8Fxx9Sqeu9HPWH2weSMt9
RUHukYX8ZUGcfndTGdkxFGS+/uuADOe8tU/lVbLeUNDWt2UOE/408J/Wccx4
S0F1XbtZ2zn1ThtfTE5LoKCuxPzp/ts0OP0pcOhTEgXN7b+RtYLTb5XQ+y2p
7ynoBLP5ZawHDfY4Vpz/+IGCJk5/4Xp7jaNn5XBccgoFjf4x3ifmRANRRYHu
d58o6LX9xuhhexr4BCjJJKVRkLiCiKvSWRoM9etbJ2Rw/BBlLFp3kgbm2pdf
vM2ioNzTZwo7TGhQFBfc8iaHgs5lSVYZ6tFAhevj6tg8Ctq/EOkmi2gQbVNt
/voLBe1UQxRTdRpQ8NiTlwUUpLj/W373Vhp0em0Tff6Ngo6cPB6wUoIGBi1H
DSO/c+Z3rYh4JmceczWcHj4roSCuv73JyWwxCPubyhdeQUFfvfLLnnWKwaLp
r8NhVRSkIK2Y7F8jBpfSJv1CflBQok6oWVmhGGg5becKruXsd3J/5HaOf1Kr
jeFBPQXpPr3kYf5IDNZtdbkZ0EhBnnanUou8xODvYBrrXgsFGT9Z9HcyE4Mz
h+s07rZx/NCbffI9IQbV8dM3brdTUKWYdvcmRTFIOLtr2qebgt4/UDZqYosC
rdBsu3cvBf2wszTk6xMF3/XXnTz7OfXvoqldqxKF422ZIzeGOe8nO8/i0UhR
4DNX73WaoiDlDLsfqvKicD3j+IYrMxw+jC8NM/hEoVvM3ebyLOd5Z+bdrHoR
yP+Z02bPoiAZFt8nZCoCl3X3NpzhoqJD6UefO+8Tht+JJ2k2ZCr6FHNVhp8h
BNq8XsbWvFQ0evrOodq3QiBVlF99kp+KRCsVRDt5heDn/gMlpmJUdOHzUMSN
jBUQlHuDfVicii4V9sw0Wa4And2fduyXoKIncm4SJ7hXQKGK3OuNklQkZm4e
+E5PADI28Ln/laUi3pu1wvzf+MD59cGUITkqkgtRejF5kg+U13n3/tlERaHB
ayTqGVRIXDlhVKJARR1JNTO+a6gQRW1QiNhORf0rC2ZHDXnB3E/IJmgnFa0m
r0rf38wDNC6dZ75qVDTBWiadt+aB4IU8Lvs9VNR17UHG1nNk8B2PadVAVEQ/
phMlfowLztVffthiREU8elOUTSEsQtY4oeiHCRXxh1b4WpsziT/VHcxvZpz6
dlscSlk9TxwvNbmQbEFF2klRh+wf/SV08zQIbxsqqhLUKz7qMUGoxJAZUlep
6ONjvpr88WpiZJ3mFjEXKrq6Nyi6K7iQSIpys+K9RkXRuTxbq0ZjCNnw4fJx
NyqS3nA+81RiCRa//+sN9qWiztCrW6eLezDT4YXZmRAqGnmQffJp6zwO9XpL
vRVGRbvbdbplOPfBLUEfvrwKp6IvbpXhoisWsfn7LxvbIqho379tS6nKJHr6
YNuMeQwVFTfSApLf8dAdz0s9PfKZitTKmUtbTwvTydc36TqkU5Hvjl7agSQR
evQ95cXATCpSOHlwN+ElSq+IO3C+NJeKzl7Us27+IUbf0m2ldvAbFVlnHePp
DllJ77J+1aBeR0Xfv8m2kn3W0t2vJASaN1BR1sbSx7za6+jCN1MOXG+iosNf
Xtw7JyxF13xZEJ/WSkUl8+taDyVL06Nb268r91JRiL3fTNgtWfoxi/UScn+p
6Pig/sEXopvoo3ZbKtAcFf3W7VYPCdxEv+umctOGSUWtsrarG7g209OeEf0v
F6lo0HnvdlvmZrpww+ms1bx8iOL06n7VrDy93DjGXGgVH/pqRr21sEuZ7lDc
j6lr+NBDCyXb9FxlutAeZQXutXzoRBG1IoPYRjeVyVuYk+ZD/jxX7r8wVKG3
jdfFdG3mQykLfCwp2E6fCKKMZOzmQz8UHZf1QnfSw5YMzFI1+ND8egVd1z87
6btcn3x9t5cPfZo9E2ustIvucVI29JUmH5Ls6GLvKt9F51bYpxZwiA+5SykK
ZAnupkuUXPE9Zc6H6mpNat/kadBz92QOHrPgQ4nx+xQzaXvopz4uGBud5EMT
OygioY576K+fBGzUtuZDQla5hm/l9tIVbN+Ub7vAh9weTTjaR+2jH1huoHHd
4EMW4XsznT9o0m33HkhKesqHeJZPGKge0KJfGv8x+yeCDyV5UJUP3dSiO7+x
0aY950PbD625OYW16Lf473X7vOJDcp0R+8W0/6O/bKlYZ5rIhy6/8m4PMNem
N3lahC3m8KFxIhorRRymt28b7tiRz4fOfT9htq77ML2v22ub/Vc+dMg4ZSZN
WYc+o/e6sraQD93tK7JtLNGhi67t50mq4EPags6BYiQ9un6+q6dJGx/SP109
cfjZEbqJE0+5fzsfCi781yw+eoR+Qi5i1ddOTj3Pj3hGHjSg2wflZWzp40OB
zmW7yxgGdL9TpAn2GB/60/ZNZNDCkI4XHtkmLvGhyebRLpEEY3pJqkxaG4kf
Kbp3UiYajenVtmnLomR+VDm048p2qgm9rbLhpTeVH9VkDOj0OZjQmdHrmo1F
+VHAiwjnNRqm9GXDlM3+NH4k/dKnRuGyKZ1ChutfVvKj2+s/SsbFmNJXXrYV
2yLJj66THctq+c3o62T+2liu40e9FerWD8CMLld/PzVMmh9tF08lPt4woysF
rP5XIsOPWjaO8+7/aEbfsf/9EfYGfnS3nxy8q9eM/j8wbPgD
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5187395453030243`*^9, {3.51873962822692*^9, 3.518739636333613*^9}, 
   3.518739741115718*^9, 3.5187427813467407`*^9, {3.5187441805689983`*^9, 
   3.518744219327479*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk01N8bHoaxZB1SVEJlL1spqs+HkCVkSfYWRMUXpZBkKSR7WhSVpSja
EJF07y2y7/uefV/GEDNG/Ob315znzH23533fe+5zzkfSycviEiuBQOBiIxD+
/6tyNPsUQ5IL3R0jRquNWEL5axekWCW4kKnRV2f+fEso9XYbnVOcC4FbuAIe
agnJQhFZImJciM04fmu6hCVcnnZiUSVzoWkpFzsnZwtYnLyz6DIrF9q+N4tx
m2YGc5taY70IXMi4NvhwbJ0ZzCZFu/hucCJFzq9X59PMYPJ1umDYGidqCH22
NdXIDAYadXikUjmRjJ6xsYPOaYivxUt1DHOiyMwUK8tSY3hEWZ/eN8iJDn5N
sxb2NIbKrhuNIwOc6K+6QfxlCWMo0eJxZ7GHE4nNmURVRpyCrDmGXTytnEhb
+PoJIzsjWGFLjNMp40S8wvD1tx0G0OSbLz33NSf6Jkwb20HUhVcdzlvEpnMi
h9utQblIB0Zu6r+/ksqJ3O1SXnQE6cByPVFHqRROxC80PtW6fgIea/mOHiVy
oiTN+kcBm9pQfoYQ6RvKiY4+/+X0TVwLGsRNDVoEc6LphVnezWocuqq0aCjd
4US1DT+NHlnjMMPv9cyEPycSp/HtqL+JQVG2k6dtvTnRWFJRjQ04Bjl3RYsc
O8+J9IxeV7oHaUBp5OO13ZEThY77qxSJaUBdZ4eqZTtOdD18Hl8sOgJDsvcH
fDzLiVi496gp/D0MVw819YubcqJRpZuKMQHqcNx0aybLcU7UatNYWvhZDZaF
pKpVinEitYE/ESo++2EHNOys3M6JpIKmPC/MKMLJjaWAKhFOZJDTJDXoogj5
7hj8qiZzotLuKqtqewVoc2vRrI6bE8lnEk5w2MrB+Ws6ns1rHIiuo/PVPn4f
ZMmbE2yhcaD+2d5zyTv2QWFKUmHLCgeazf0Qypm9F2p4zq63UjkQW+cdVffK
PTDs6pPojmkO1Kgz+5ZMloKizhPvens40B1hkbXLJbugYsZD474upv2WELGN
lZ0QGzpK6evgQHach3YVHNoJXc4nHB5o4UCFW/798fkmBj/Za1QM1nAgTD1+
tqd7G9Q9Ez0yVsI87/mlSfQ2GVo/OnR/vJgD/YnSe0/qEoRXW/7IT3zlQLWu
zoU96oIw3uzg9cl8DlR/sXXzzDI/7DHuJ8zkcKCuzd4uwQNboJeekjglmQPl
mcqpvDRhhaquqHrtGQequGTWcfUkC1yOML/JnsSB/itsxgJOEKB/lU+d2CMO
dKu7xjYmch3cPVUcoBfNgaK67Yvae5fBU3PtzuTbHGj7s1pbckYPsLnecjfz
FtPe6YOH0lIr2PHI+UCuHwcSF6T5DXytAWlt4eG/fTgQ+7fT4SxygSDbukaN
4s6BONPLy1fOdmGljpYJeg4cSKjxnpTwzUUsKGj0qJkdBxJ7e33DuZqKaafe
nLCzYcabyaQmbV/GKgaTMO8zHEg1XSWg/e0K1ujcN5tszIE2rov7/Y5iYIlh
/z3LNOJA6gS5sTNF69iZzA2dXAMOtP52DIj++Yd1jUuk/NblQPbv6vMPCRDw
4SuXDCnHONDmNmJp2iFW/E3UyvKaJgd6bi9Qp/+NFXd7fz+NXYM5Ly6Nz3M1
ifjsbPaq2CEOdMDohH+POhv+12s+U28/B7JNKd0ntJWEc/r6sabs4kD/ds70
SP3HhVOImsq3d3CgcZvbBKNOLrzr4bqjvSgH8g18sWcvzo2//Rj6bcdWDuS0
bzaPg3MLfnIs2vsFDwe6cSPKQDqYBz/gY/oqkJsDBe/8byG4kwcXYRGsc+Dk
QFVkT/vi/bz4+M6nMrvYONDRT9SanlZePPxM2sBLBgnt7jQ/fouDH/cYduIJ
opNQeVTUbYfT/PgZ732a51ZJaGaPFWbwhB/fG5PzRHyJhPp3C9dn8QrgPGL/
lW1QSOhF0UJ68X4BfPmt0uLAPAk5r1dWdxkL4OVlBcap0yQkYXCEZhIpgH8w
9wsIniShesQz+faNAP74j8a78+MkdOON8z9RJIA7MwBRYpiEqBzVWmbLAjir
WnVJWjcJXTGKW9C3EMSnUfRkSCcJXVvSncl0E8RbTE1FLraTkP/11LUDgYJ4
+tXWa5LNJPQ27WBYbYYgHkl7ksrSSEJvXkvHjhQI4t4RNvVDdSRUdQOrVKoQ
xLUy+mUzqkhI+NJi2X/jgrisctrZuxUkdI+Ljeb8VxAXAE5hTuUkdLNaWSuJ
SMZpp/bln/hFQiVfFOu4BMn4n+6JP1KIhCIfiFT92EXGK9xyeImAhMTc/R0K
5cj4p78eR0e+M897G3+iHiTjQYLUp6+LSGh9xzMefUMy7ppaUH6vkIQe/rE3
d7Ig46b7/ajOX0hIVeZIea0dGVf/riGhm0dC5h5P/cOdyPguw3WTvZ9JKGnE
NejhFTLO1glus30kIcrd7cOLXmR81iU0ezSHhHJNij68u0nG26g6neXvSMim
pmekKICMl4aQ2DOzSIhjLPuBZDAZf8NXrRr+hunv9MSLibtkPOZF9IVLGSR0
gZWynSeCjN+QN43TSyMhEFT2NyGSjDsUC5Tue0VCvIxNGf8oMq57snWK/QUJ
zUXOpZVFk3HFtifbxp+TkInVTdObMWRc2MlGryKJhEa/aOyIZ2LGgphP1hMS
OnwwZJ7MxF2iqTM5j5h8yIZcFWXaF+jscfn8kITEf/RcT3tAxh/+97bvSzwJ
xf6djc6+T8Y9kxSsimNJyGPb88Pq4WTc6Ofn+tJoEkqRMvurz8xfZkbt5M8H
JAR/s50YDGLys7UY/L5PQkofdZ8RbpPxQezY4Zpw5nzt2ued40vGf1xGnxvu
kVB8pDn+5xoZT07UlW0NZcZr572V5kHGfUur0jqDSSjae3/cgisZtxw3Fu27
Q0KshXJz9RfIuLJA88PB20x/igKsx5n94tG04h67RUJsWxPVMUvmPMQ6MuZu
khDuZ/h8XYeMZxQN+VB9SKiLXyi+9CgZDx66NLtyjYSOh71QE1Yj40cOefZv
/kdCVjIOG/ESZHzreaoVmwcJdZsFdH8VIePUSN8Gzqsk1PpUqT6Ah4y/7wuC
gq4k9AobN/2zwpx3EvGIiAsJeYrdDL47I4i7KN/PFXMioSH6N96qP4K4eFh8
+p5zzP01e+mFVwriCQpp9w6dZfZLO59ATBTEPaz2rmucISF51orxvnuCuGHw
uxuYBQmNj2wYON8UxFlbcy/pm5KQk99etwBrQfxmwE9925MktJ13tX1pmyBu
Vz285Y46CcUMfWwXixbA1Zdcw0IPklC1uvqMkb8ALrRrZj1clbn///mLaV4S
wOu8l+biDpCQpmzCXjtMAMe3szWlSTPzeXddKKiXed+47XtcLkJCrgc/avKG
8eHSGz1xr4RJaN/647UoSz5c9knCA38yM15366UkKT5csYwRpMhHQucStURd
IS9+cHfLlcfszPvtz99a8WUeXK8zCHdZZkdO4d9PbjHegrvqd00TW9iR0Qp5
Q+M3B/5WJlpbJ5YdHTqW1N5mQMBt0mR0ZaLZUV9awroXLwHnFi0/ueUBO3r1
V9Nk75tNzJP736nWMHYkqaqmNPR1Azs453nWOZAdUXqbXK/1r2O/8i3c77mz
o0cH06NZVOjYwHGxJ2WG7Ch4MeTIQRYqlvD1a9JbfXZU+o4hkZSwiJ1QskyO
1mNHI2ySmcYSi1imREyqpTY72q/U4P1Vi4J5EDeyR46wo+g179+Xt8xha1VD
gCjLjnpvVdTe1RnHRM5kT+qQ2JEpywe+v7ktWOllDnVjNnbEFyzojmHNmPOd
S/fOsLIjb6B6+35yI5abJSl+aYMNHUvid5YYqsaM6M8tI1bY0DW7vjRN1R9Y
8KsoUDXOhm6JTB5q2v4RTE66PzapZEN+/tvN3vN2gbh/1UNWv9lQvZCGn7xO
NzhEllU6V8aGlo9Waz3z7QF3j45We0I21HwOOh/p7AO74hw244vY0HUvUZ6P
cBBYqJlcbXnLhtZ3H1cfOjgGvt85oGUdyYY8ZeNPq5yeAxGbP/gPRbChLVit
bFLzHLAINflDDmNDtMf+yZ8t5sF0mEdQQzAbunT858aK2QIQi8kp1fNjQzf8
v+yafUUBAcnSGgdd2dB5C8HT5zyo4OTOr5xkFzbU/ZV0WvQ1FZBf6XUtXGRD
Tt57bip2U0FOuovfe0c29H2uw8JeZwn0vMsolLJiQ1eLjWv6+JeBZpG4qqAu
G/LJum1x78FfQNL4xLKgzbQ/cYWzpvAvaCk53lyHs6F35PSUq0N/wVXg4B15
lA2tKOJSJeorIPl38qdNVTb0NgflP+teAa768kH9ymzo2YVhnQLCKlCt/mby
/QAbmi52C1WQWQU1dV2zvvJsiPwzb+uB66tgrVVEYV6SDYknJ32IJtBAhVXW
Wu1uNmTpfiY5RooGEjsP1WTvYmIf4aczOjQg33vmyiVRNmS3N1bwdxgN2A0n
vu0TYEMXUp8QKBs0IO0i5VfCx+QnSeLIzA46oI7lnXzGw4bubr3sqn+EDqKm
msYsOdkQteeM9l4vOiih8O2t3SSiY5HbH95up4PbfBew+n9E9C71fd7fGTo4
pphn08ggorwrctKTLGvgh5tlbOsqEbW9BPcPK64BNJC00rtAROt+h4aiAtZA
6PqkwMAcEVn3ep5qiVkDJ8Q0FQZniEh6i+K+J6/WQLlV3/nRCSIaNJiti0Nr
oLJOonr2DxENvG375rixBiKnr43M9xPR15F7zjE8DGDAWfaP0ktEsX0nJjTE
GKBG55Lq304i8hXdbyB0kAGiL341Xm0nIofsPF4tLQYwDuZwo7cSkXEdIWju
FAM0lGSn/GskoqPXY4/WXWSA+K61ws16InrRWHJrw50BzFZONbHUMc83PdD9
cpMBmlXm2UhVRHRgTuO/rPsMkHga381ZQURvcpXLx+IZwOK/BA3uciKy0V54
np3EAG3vVD35EBE93ywCKJMBnlTcixQARDRkmsi39QMDnB1tyyCXElFrctfA
Qh4DbGOV/iFcQkTnnhnkmxcxQNduv06RYiK6dPk+z9FSBnh+vGpx+1ciqjou
ev0DYgA7e1GeHQVENFN/5XJWOQOI3boqvSufiP4chjflqhig9+l3rd25ROR+
CpdUr2WAFwU89pKfiAjsHaTW1TOAQ4vjzT0fiChJOcBnvpEBdlE+xe/LIaJr
bJmKKc0MMMBLyJF5R0SZD5vetbYwQKqCeblcFrNfVC2fZ60McMEwY0DhDREh
yvK2aSaWdFui7c8gIpp0wZ5qJh4O0xVSTiOi6gryXnUmfp3xZL/qKyL6m2D5
VoXpzwWN6x98way3NfJYaRMD7B047KSezOS74T+fjgYGGGNEBh55RkQwL7Av
pI4BskR7nmo+JSKf86OcpdUM4HpYIe/YYyL6TbkbFVnBADJWgbVYIhG9LxpY
Gv/FAJPX68e0EohIXOtIVydggOwEcYJOHLPfx91q7UsY4OonLzG9GCJ67LR8
0aeQARTq0EH9KCKSOsuisjuXAWanBE8bRhKRjJxtw/kcBvjI4XzlVAQRsQfb
Nx16wwCe+wrumYQR0dMZrob0lwywcOFssXkIEUm8N9+BMefhwoW4HscgIjoU
/Xs2iTkvTecr1q8EEpGGrLVUXDAD5J9T177rT0SS2pP/zD0ZQOqcp3OcLxHV
ZB2vlLjEAI8cs8KTbxCR3Xf9o3H2DHDDQaQm35uI9OUueOnrM8Coveks8CSi
sseBZx8fYwAr+wi+Wg8iGlH2UL+rwgDqdisWI5eJiPt3kZoOcz9o1h29QheZ
/k69Dr46sQYuW/Nt7D7P3I82Wnhj9xroPntSQtGRiHYg90M9tWugxOqri64t
Ee3r3rkw/GkNBFo+nbthTkSGpyUDW7zXAOH02c12bSIqrjTwyx2lA2/TOMlh
nIjuBaSNFTXTwZBJhc78cSIqXDj0yhPQwS9j9UiSJhFlbws4P/uUDsKMRAQP
qzLvBwt7A01dOuA82SH1TIqIeEZVArITaMBfj0/vjQQRNWeePrrgTwNTuifd
csWZ/d1gkZy/QGPu+9f3VWJENN1/rl1UmQZitJ8epJOJKIFKOqlZuwoEj589
aUdk7k8W9bn83xWQlQ2nj7IQ0UtZI67ZjhVwTEQuftcmKwqvTm+/VLwCLi8w
OgfXWBH92tsv4QErAKWnX3GjsqLt3dJVMYy/wJs0F3NjiBWR2CMPXF1cBo2N
91rjICvi4nvLMp1HBbFOeRfKbrOis1GaZnNOMwAP91HA/7Eg4plJ2xS1ekBZ
a3whxmBBQ4XXT7b11II0b0W+FRoLyn6XIpF4twYQHMYoH5ZZ0Jh7gNLn1kqA
VK2/is2yoN4R36MLgb/AiUFN7ZUeFjRzVGGq9cdnoHeU1fpjMQtSDIv6WSn2
DVvJPVcV+ZUFBXZrFu5O/o5lSX/XcClgQZ/27Kaf2wYwEvnGzh25LEhj8mZm
SfhPrGJybCjyLQtym6rOeOZRgRk8rfZwecqC5NmS/u1jacJOLSbc3XGDBeG/
/52eFevGcgzaGITrLCi8J+Q6/5tujDtt281xL6a/TbW/dxR7sBrTV2557iyI
w7L/2+GjvZjRh/fG+s4sSGCbry39dD9m6FYh4mPBguYIvk/qcgaxd4ArwcaM
BbVHV/B5TA1inCImXJgpCwo+HsR8mw1hVeWtDE4jFuRoxBYxnzGEGUgNDb7S
ZkER6LJW3uNhTL+fkVOjzIJOZvZOPHQZxbIO4ntzD7CgbybJ9R9ejGKkmLsv
nyiyoB8fE5Xs20axCk2uhAuyLKipjf7E+8QYdvKZyM2V3Syo2Wst9proOKZn
qYJL8bOgC7pvuj3zJzCdatfWW3MENEd2XvkdO409K3VPujdDQEYyp5p+Fkxj
s5+97WOnCMiZsXjDqncae/o0YCRtjIBWC15Z6sjMYJPOcUuV/QR0sZ5P4mDJ
DBa3USgk0kBApd+PtevUzWIjiyWdu+sISIdth8zb2VnsyBhMkashIIfh4bep
PHPYUG31nuMVBNSRYFJy+tQcdvB5v5oLIKDrLvtYs8vmsB419jP5nwiorO44
t0LaPKYkw7299AMBKWr/xdu/zWNhYvx9v3MISOPPM1yodR7bzyLq0p1FQDFi
KR5GbAtYSIPiDUIqAWVfoHm9ubiAtf9UOcL9khnvXu7AjN8CJl+ovi6UQkAl
H7+1V8QuYK0pWmEySUz/e2rNDxcvYNJXzjw2jScgyu8kTRY2CnbbwdbGJpaA
CPnVnD68FKzp9LmdTtHMeGcWX30SoWC31C+/uXmfgMy2QKV7shSsjhhY8CKY
gIRT/ewyDCmYxGqIf9YdAnKvf9PrZE7Bbk6HH8u9TUAvd1obz9lQMPHm+PIy
PwIqz7gjdsGNgl179bpt2ouAZlSv2INQCja70S1W8x8BcdTtVzGLpGCu5wUu
ZrsT0K1c8YqMOApmJ3Fnzs2NgDSTTK9GJVOwtpAvavqXCOj8td/Pd6dRMNOh
qVvSzgQkv9FVdTOTgp3IOEsaO0dALZUqnpc+U7BS1ljjcgcCQjz+3JtfKJi6
c1niazsCYvc1p9oWU7DcMnrXXRsCUpIJ0/QtpWDye5V3O51l9tM1gWaJKNib
MNdL2meY+VmmnlgqY9Yz9uK9hAUB4UeTlM5UUjChLK4jf0wIiL/LwNy+noLF
kbSCwCkC6pHQLmJpomCcbr7lLw0JKFwvVepqCwW7W/mB+44+AV2QKfn4uI2C
rcuMmDnoMfMpf+4T2kHBfCNFk47qENCX60vxyl0UjDJ5ul9Mm4Au7ZPendFN
wa4aRuxZwwho+z0drKOHgo1ml17pPkZAf3exbqnvpWDnuJc+F2syz1///Tqi
j4J1XZVbSTpCQJNuL2SI/RTMovb8MT91AvJy0vp6gonrFJ7ePXuQgG5E8Xjr
MfHJmLqqQ6rM+cnj8t3CxGiWlX+rMgEJGExMPWb60zTRsFreT0A1GktzQ8x4
hR+9UloVCEg6RTaTysxHmS9rKF+OgIZokmqVzHxzPPtkEmUIiFEtUXqeWc/e
RrLntX0EJDTCfqmUWe8rJcMCsz3M/jRYWPYz+dieELymJElAoSSlj7+YfCVS
CrX4dxNQk5f9cw8mnzzmsxHzOwmIPqOJ9zL5jsiTqq8XI6DY5sYKvloKRiDb
Cn3cTkC6qkU2HFUULOB6vG2MCAF1qyqJ/y6nYJ5q62NGZAIa3f9jJuEHBZt8
pKooL0BAC5dOG6Z+o2BOy5evc/ERUAO4FO5TSMGsC9s3KrkI6Cf8aOT5gYK1
bOXRe8tBQC73RA88eUvBjH1PREewE9AVWsibuxkUTOvw5216LASUULqfPT+J
gt1Qqv1usLEJ0zEL0+WHFOwy5bABx9om3OGhPvkvmoKZXRe8GLa4CUU/nGhx
C6ZgumpBcyfmNmEDtTm8yp+CaSxP32KZ2oRrtstmi9comJRveWLQ4Cbsd+le
S3GmYEu3/Mr9Gzfhp6cHz9rrMvf3utt4cO0mlP8BHyQeo2Cf3K0571duQg3X
R77JB5nz43jY+AnchNyNLsq79lKwYa3V1rzPm1BA6T+5JQKz3xoTf4vfb0Jr
yrj51YUF7JVq5zb0dhPee6mXndi3gNntLbJvSN2EJWbWw82FC1gLh9/IdPwm
fDQYorLVZQHLJbixU6M3oZKtRXqF6QIWRz8rQ7/PtD8SFrxbYwEzmlF35whh
1pdbuLuaZwH71bBC3eO9CY/7K+hy5M5j+U98WR3NNmGcvCQxZnwOS4hz3eti
zPTnov5xrHYO87x/9qS7wSakUQf85nLnMPlb6lG3tJj1qpmocgXMYRkOK4JP
lZl8/Xfo6x3OOSxxj69ko8Am5C0IqUAis9i1vJta2s0bkCFcJcNgTGHJYVWu
S3UbEOeyfU5vm8J+We+IzazagGNEYl32xylMeAN1c6ENKB41zi11bgorNuLx
afm0AW9wriqEfZ/ENkYyMp1jNuDl6iONGZcnsCiRJu4I/Q2oc+nVAbaHo1jG
bfn2mh//oF+k0KDivT7s4y4zR5vP6/CXw2yF294nmPjskqzb+3VYqg0tte7F
YgklScs3367Dk2pJ/iYoBLth/Sf6Ueo6FGqV1b8WcA0ce+hZ0hC/DjNhrENI
9UtQwxa7Tc97HX4Jdbx4TbAATM5UN6uorMOmn6InjT0qgF3Jfy+19q9DXXE6
NFOqBHWRgldOy63D5bQuv8nFSpC7z5bwn+Q6vPDrxMvqm9XA7/zkgXeC67Dw
RsqqmH8dILWSYsSpDJiqbeKfptoM9pbonNzyhQGVAFvW1ukOMOhkJPL7EwOm
t/m7XDTqBC+3mI8H5TAgW7OdpWFOJxBxPBdBTWdAO++5w1OXuwAX4VZFdwID
fo9pSzcc6gbzep9OvvNkQOdGq/YnP/rAt+bt+nryDNh5e/OiP98Q8A3YvW1z
HwPKCozGWB0eAqp7pCeKJRlQo6VegHJ+CHy4oXZfUZQBdSRGtOxzh8CrbaaV
QpwM6GZ86Pg/k2EQ5nhPf3hsDW4eXT3NHTgCTKfm9IPT16BY5gtX47QxsFzt
9zH05Rr8+fhH9siPMZCSwyIU9nwNtkXGSR/qHQOT7lsHIh+uwW9e8ensW8dB
6PyxG4mhazBNkf7oTPg4KFiKTsu8uAYV32+P9rCZAHZtW0nvHNdg1d21hvBr
E4ClMNU9x3YNjtvuXToTNQFMfb+ofzZfg/kTPINC3yfABK2nrlh7Df7bmE3g
FZ0EYhty9FpJpv20AK20YpKpx7+ca9i1Bm1HMvS2904CN3i8vEl0DT7JN+nd
tzAJCkLM49sF16Brg4iwtcgUMCHe2veHZQ3GFg3b8VycAssjrNFD/+jw236X
e8vXp0ByeQxlhE6Hb36+vh4bNgXGw9O+Ty4y8c37S01ZUyCEs8qcOkSHdTZl
jc8npoD0lHnRcj8dio9K3SKuToG66t6dq910qO4XlbyTNA1EoxcmGM10mOJx
6aPDnmmQz7stiP0XHWpYmW8TsJsGNvNpIxyADjl/ZwYvuk6DzQZ5Q+4SOqT1
ftcN9ZkGxgmYMH8+HR6RHnR9Hz0NxsiuOdsz6PCjUGK5dPE0mP76Y7fSKzoM
iT5eqPtrGlDstj7RS6bD8flb5kJ102A9ozz4eiIdGl8/cODXwDRg1d/5NzKO
Dpv9jbUzJqYB54zP1dQoOjTk1chUpUwDIbU9VnV36TCt+hivC2EGbO8MqBkO
okOLSOI0G+cMEL/dgtMD6PDUH0aVFf8MkC8LlZf2ocMdN6z1OXbNAGW37tRj
XnT481vob7c9M0B9i8pWS3cmHw+8iP5yM0DbcnAz2JkOpwVuhL09OANOrh6+
+fQ8HbrbXftQoTEDjFPipz/Y06Gr+qjjE2wGWOAT58us6bA1XSlWSGcG2Ixg
7d2WdKha76ykrT8Dzt1/akQ5TYcRQq6a4qdmgIvCPCQZM/OjNL7JMZ0BVxv1
Du0yoMOLqyTXcfMZ4OXzMkdNlw6pdRq+zWdmwI1tf3cbadHhHnGLBnfrGRDw
3fjJhWN0+C551a3QdgaEnH/D7XeEDuUWPhz/ZD8DIojrwbEH6bACphiddZwB
MW8t/75WpkPeNxVRH8/NgMRT76+WKNKh2J7FtS/nZ8CzBdbBJlk6fJmb8OzK
hRnw8pGd1cReOnybw7jYwMQZh/Nr/knQ4Yb1wbPDTPyul0tLeBcd6k3w38xk
4k/BFwvlRemww1MSbmPigj3f5LW30qHWXOkhDab/kkqBNGtBZv1GxF4uZnzk
fnmrJy8dCtk15j1wmAEV/CgqjIsOLft//Si2mwG1X7YRUtjpUOK+KTHJZgY0
WXvdzGOhw4LNp/f3np0BHYyK6cp/NHh3Kt7souUM6EsVvzBAp0Hf8UEXE7MZ
MKzj2778lwajX/HXTRrPgMmJeqMtVBpUqDCLUzOcAfPR+5DkPA2u7sso2K83
A+itbTmm4zQoZKBrpXxsBmz4KUpcGqbBKFPnsSOHZwDbzrAntwdo8KmcKvui
ygwQcFELeddBg9+ie2S8pWeACGf0X9BCg4LBKScPS8yAnR+Gr7Y30KCjxh/F
T6IzQGb5oRVrJQ1GpIsnvN8yAxSfTdVsL6PBuDvblVTZZoDqMW0tJUiDR188
6r68Pg2wMIq8QxENepy7/HJ8ZhpYCZ8mfH1Lg/+VP5GUrpwGWYlcAX6vabB+
wVjbsnQarAiULx1JpcHwu0vCe/KmwTNejYnvT2nQaFTE9v3zadBD2tPwM5wG
vc9yizgx91c+vF//XigN2nfaxr+zmQa3ic9+6t6hwesiH7oTjabBTgJvYeUN
GhQoyLxnuX8anKOvpNQ706CfZHbHg/kp8Mkvb2v8eRrcdi81YKl/Cmz+dY83
s6dBrndrpqz1UyCNOni31YIGlUMEjAVypsDwTM2Vbm0m36uBMkvnp4DbwKvD
Y7uZ9X7/qM72fRIUO9jmZe1gxhtI6Ot+Mwk4e4UULm+jwbOnvQ7ZxE2CnM5I
8Rk+GizlmyaaXZgEs03X2Rf/rUKrP/tc1QiTwLvsZOt67yq0zLLi4VCeAEib
xQR0rkJVvZlzkcITQBB9rwhuXYV7NIrHvtLGQX6pcglrLRM/02/ZicbBcqFY
OmfJKszJ0FHcemoc3Ho37yn8bBX216rtI1qMgYJzikHij1dhoLDr7Ee1MTAv
fDVWNmEV1qlaWm3dOgacQsfeH4tchVojjid2dI6CU3Z9ky7+q5Bn2lyex2YU
7OKpcSq0WYUj5/fcrDYZAT+9Ms+eFV2F7XcNaXxbhsD6vpFLF7auwrNTkt2U
0UGg3idx86rgKgy988csGQyCHIMXj4K4VqH3O+c4vWuD4JHko6Ys+gq03SFt
JPDuD7jUGmK02r0CWbgN0vfv7gdchx2wZ8krkFVOuyS0rBPEVa6bmzxdgewR
n+cMnTuBsM3LS6yJK/BSRbLMR9ZOIH5rIMbjwQosiHE7bajVAVS/X+jV8l+B
gZ6/d9O/tgE7/JL/lNUKrDqQXqT1qBnk6HvmawquwJJQMQt2iQpgbBMi3X//
LySHH4hqmX6DXTHfyiodsAz/Dfx0K8/px470k74f9l2GugVxHBTuAYx0heZj
eH0Z8unJHB24OoBlhPSOeVxdhj5sv8b+yf3Bej6nV3+xW4bq/7LCn1gMYsZ8
Bx5qH12GhNaPZZKVQ9iB2pMSjutL8HeabUkP8322fvZItydtCe6KD3Ph+DGK
1QzLJYYsL0GbLXPlxMlRzHWNh+3N7BLsstYOu3J8DEuVa52Y7luCsL6Tr2ds
DBOIPP/Z/8cSFDOT7OxSnMCouv7Y46AlKHnPySQnfgrb8r6OYRawBK88M+Bv
+zqF7RWU/MbruwRT7lNj8/qnsLP91Wr3/1uCd6a3aIXLT2MlN3fIBTgswZPz
O/mD0DQWmgWELmguQY0PnvsV+2ewZB6h5p3qS/DY8ew+/c0ZLP+6W1y3yhJM
reKK5ZWcxUYxAS5LuSX4Rlkr+bHzLGbQeXFDb/sSTAt8cCB0dBYT4GSfUlih
wrl+4saZ9jlMztM2a3KRCtP8ybvqFuewE20fnTPnqBCvp2uM8s5jN9LODoiP
UaH26DuDv7rzWNeRd62CbVTo32o+Ff1pHlt8tZ7Q0EiF6oAqsV45j3Gzm5tG
11Kh5N2CPVxD89ixZnoVWxkVkut33V0VXMDSrpwCq3lUyIvdSd7mtYB9a0y9
XfCRCkte9ey8EM7UE4eWj1zLpsJbr3yuaacsYGysL79Mp1GhrvV8Vt3vBexy
8vy7/ngqlCo35VznpmChBB3X5GgqLL83+zdQmIIluybtsb5Phfsjub2qdjH1
rarWq6YgKnTYFiEOlCiYUu3DR2X/UeGS028jcXMKpnrlynjVFSrUucIjc9WG
gh3k0NZouESFXzJ2zoefZ+pdHcpAlyMViiy9i1f8j4IdG6pUGbClQo+0YuEi
HwqGB6eGjVhRYVdiQbdAAFO/fTeVnzehQnF+jTsqERRM31b6zpIhFbZ//8hF
Y+o9o9V/jTQ9Kmzas6gSy9SDp9U+3iRiVGii7vVV6gVTnzeHVXFqUmFpxpZy
qXQKdsbLYQefOjM/TL2JkknB7N5v+bn9ABU+ia0+tfKJgjkYjgiJy1Oh0+Ft
3vu/ULDzEyWue6Sp0CYGrqsUUTCXPVd5DohT4XHXvh8ZgIK5/dQ+ryZGhSpj
jTl8v5h68Lxo/hERKnQ8J3lN/zcF80qpstbho8LR6IFNcaaevq6RlmPATYXL
r33DfjD19o1Ov38mJCq8fLbGTpapx/1unjazZKXCC9tFnM4z9XqAkMxrm41F
SFUWDXBi6vnAvI2/jmuLMO8f6Z4KU+8Hn+4wcF5ZhP9uRznWdVKwu3MfUy5T
F+GT5OZp1W4KFhYdPv/f/CK8xxnMc6mHqe/lHLV9phdh+M/8N069FOxB5cHH
/uOLUOQA11OFPgoWc4ln4s7wIvwT+KIMMnEccVTj3gATR5MEd/dTsIfp32Mi
exahZoCdkyETP8Yf/YntWITO9ftfYEz8tP+q6qOWRVhi/+T1BtP++e0T4c8a
FuFGmdS5B0z8QlSs62XNIiznnssbYMZ/VbQo/7piEZ5LfRC+wcwv3ar6zrtf
i1A6QgBNMvN/s5TW9BEswueKuwxfdlGwrIf+e76ULMJdh2s4dzLrzVYy8y3+
uggjuL5NuLRTsA/1MtU/8hfhTV3+Rr/W/+v1zR1lnxbhxSDfd2eaKVguV6dn
Vc4ijPpvxzlGAwX78vbTz/qsRRhX86XHvY6CfdWLEG7NYP6vdZsrq5qCFY84
unW9WoRJxWod2RUU7HvooZL+5EV4eHXPfr8yCgZ28/KOPF2ExcLiDF5Ewcrs
S/Pn4hZh7wOp/KRiClZBf8S+FLUIV48F+kUVULCqJHcbWsQivL8S6nEyl4I1
tIptsAYvwiIp8TeibylY0zWqGeftRbiD06FSOYOCtfLXvOb1W4S/Ex/2Cryk
YF2nbhlu92LGWznySiGRuU8fxT+ouC/CEw1TLfdimPzylfOdcluEIQlF01nM
fbnQzNd25/wifODx4qkJc58mz745N3J6EV4e3/VzB3MfjYoNf66fWoSxj+Fs
tTWTP9GFPSIGi1A1Z+bTCTMK5t2nMWWgtQhHA170PNKiYLSLjT6flJl8TGnL
FIgz96fsRkel4iKs7PWy/7qVgpXuFdMYkl2EY+/uMu7yULCQCZcNIclFuPd8
/uQKdQHj/G8t8pbgIozZz3WwJX0BE/Xf90qXSoFVBAMJr5l5LLC7hnBungI/
Oh0uQi3z2ICmt7PfNAUaHmc3ffttHsv4VyKbM0yBOwdffFCLmMfk75l94W+l
QLMjJyqNxOYxzbjbVT1fKNA2isp578Ac9mJBQmH5MwUmGm6pVuSfwzbMKmJ5
P1Agqg5v81iYxX4JCVpqvaHA0PxrhrmfZjGj51n9mY8pEJzLNzOQncXs3jRT
vW9SoNZU7lw/xwzGMdhte+gaBZ6RuOQBB6axgh3DiO5BgZNPH7nIFE5jfI+o
cXddKJB3RaYs+sI09jNUSOGxJQXeetz4+mPeFCZ73sq5SIUCTU8qjT09Pom1
JzvW3N7P9Ndu8ZWFdxK723FJRUuOAudPczes9k5gvSa+m1USFCh/tEfrvv8E
FncsKaWHn+lvJ9fr4x/GsWm1/LeM3gV43MEl/uLGKKb7/tfNsNYFyJDYe+dz
xSj2UqpVh7d2Aa7m8ByNjxvFzASX/4iXLEDxCSsO0q5RrGj+0PYTzxbg0dMU
l4GDI1hY9rfIyDMLsOm9qcQHsyFs9+6fV7bWz0OF6+5DZrd6MGNSl5PS73mY
5b4SmUnvxgLm5u0Nf8zD6zlHjOxudWNt33ea3vk4D8U7k59O+nZhkTb+qmOx
8/DHg0jr4qsdGOWhEqPAdB6OuVy12a/egv1kexVzpmkO3lureHu35hfmPB3w
+VHrLNTcEpF2SLQM8PWmSz/+PA3J4xt1QaHT4M14mOWTt9NwxNuulr15GmhS
3UKepk7D7adqGy8x3/uuXAd6nsVPw0D3++QPYAaAwyWxL72mYZWl+SUl+izw
etyynKU0DU/UmDX/c1kATSbEsm+fp6CM5e3S2xxU4Go7vlDydgrG73KaT1Gg
gnWX6p2lqVPwa3ZxzOPTVCAbGO8L4qfg/ZcVvjxJVBCSs0O+zGsKXt9BqWHb
uwSUOQ4+rFOagn1a+znDDy2Dh8jl/J/Pk5DD0TtMWnUFjFuMvOd8NwnZpL4c
v3V6BWiOXaSppE1C67pTmQ89VsAo1/mHYQmTcFbKkCGQtQKOWNqWyV2bhMON
p/YcEVkFA2MmMjdUJ6F5X8SFlOlVoOZf5/NSfhKmmH3w/0ekgUjuU6hCahKS
E5/t37GLBlSVDGxFhSbhsZxb0xGmNBDufyIaLE3ATpWHu/g+0YDilsMLnIUT
cKhNXv70eToIfVl4VPXjBNQS0vyz+wYddCgdjLTPnIDT467KGZF0EHJGRfLT
kwmY/0ZO8VsuHbS+VLC09J2AdWSDI7v/0YGsck5qoOcELGRZuO3OvwYCf8nO
ZrpOQLefru4ukmtAemJfOO3sBIycFu2x1V0DAcoSRS8PT8BN57+92hFroPHX
K2Kl0gRUKGi9OPxkDey12mVGkZmABcLeX+Qz10D9LbGpE9sn4KpJ9uncX2tA
okx4xyRtHIaKnEoKoq+Bm1aP3AQXx6HWgvIbYxID1EwIFmhOjcNf4h55P8gM
cIOH3yS2exz2qpl6RsgzQKUVV7BqyThc+I2o6VYMkP/CpC0vbxy+3DGibXCB
AV6MPJRTyR6H/fscE25fZQDva2JtSs/GYY/6rcMRdxjArvic3Of4cXjyVdc2
hwgG0NvMCDpwfxxOOQpwlMYxgFisgtx+33HIMndUbtsrBmBr8wr68N849NRO
nhLIZIAFsYJWhUvjUMX8fevD9wzQc5Em+95hHIqpcis/z2OA8nfHguTPjENo
us1AuogBPi2EtGafGofxRBbXI///HkL9t6yczjiUNfjd1oAYIOwOV9A7TWZ+
PEcGJ8sZwLPcpFVGdRwunSC0h1cxgM2WRNm3cuPww7FsQmYtA+hYdNyRlhyH
NvuT8vQaGODAc7HWzO3jMFJP5LBbEwNsHzwnu09gHOocshvibGEAVpnXd95w
jMPLbndZ5FsZYO6/iZY9m2Ow43Xa1P+/d+gqUJB9vTIG/woWzU4w8S+G1x2p
+TFYnVV27h4TfzhR0JI+NgZxp5+PU5j+kh7QZCT7x6BZQvaoUjMD3G06diet
bQxKVN7JxBsZwGNbaMvuujEoLHhSqaaOAc6e+y2TWjYGpdTFehuqGUA7k+uO
+PcxWAQliCYVDKA4a9LyMn8MNlKes+r+YgARtUSZXTlj0Pp976EvPxiAENAR
+CJ9DFK3Oq09L2aAGSTWsuP5GFx9UvZpNZ8BOjjOy6QkjEEFm1/5tR8YAJm+
DhSLHINXqCZuW7MYIOfJRPPz4DE45HnvQBuzn0/6FGRE/cZgsGK+O0cSA1y9
WtC8zXUM7pV0760KZ4AzeTTpJEemf56aHqtABsBpxwJFrMYg+UPz1JnrDCAc
8Vt6q+4Y7AHpA1kODLBRxxX4+OgYrJl+nEIzY4BJIdNmIbUxGP7lsUiJLgP8
SO+4TZYagyyuc8Qo5vy+mxRrfig6Bq1un7NJ2skAiUrnpQUFx2DiC0ElMh8D
uP6YaOInjMHeut2HTRfWgBmbonT86ig8kCF8lu/PGjh6yvs238IolF6IaNFo
WAMC3bR9vAOjsJP1eWNTzhpY2338dkz7KPyoNWd49NkaGHMNbdpSz8SmSlv5
w9dAyTLXbe7SUTj6CH9NcVgDLgI7mjiSRyH7HZpoHPsakKq8ZLY9cRTqHwul
Vi3QweCd3CbZqFHosix84k43HTjM6DUbBozCIQGhdrP3dGBZ4d0SbTcKz//l
+PfcgA4E7ny3eGExCpNznIueHqCDBjVS6wejUQi3VcpxC9OBUXpKa73mKOyr
Glu07KeBE4EVbfw7RuGdFsuQq1dogKAmaCUhxKyno/Oi8CkaAFP27cpbRuGc
QuAzVUUa0LBebDdnjECCaRalZnYVKKvu7HzUOwIftEmIuLitgt2T17q3vRiB
eeq8w8QTK6DvVamt7OMR6C/+h6dDbAUkW3H0HIkZgaP2bGvbl/4CkbIXPbaB
I7Bqda8PJf0v4HtV2ZviMAKbzHZ+HqItg3XLXQO7d41Aj5+eK3nRS6CE+/I5
5a0j8P23Kr8Q+yXg/zN/QIt3BAYZtK/+kF8CywcM/lz8NwxB62RVeCUVzHD5
DL7uH4YKKxyr+muLoAdWDcu8GoZ3pJIHknQp4IBCt3vck2FI3fiNwkgUEPp0
ank5ZhimbLbeiI9fALL/cXP8uj0MP/SvT6YlzANfMWMFB9thWG12OXj47iwQ
vNnokyA8DJOz3b01ZSeBgXwHGz1qCF629JPk/tsHXjwZjz1/dwhmqZeNV2f3
ggXCqkjFrSFopHzThNehBzzt3Cb36PIQtPme7yf7rROMhtma7D85BNGRlhMr
Vi0g5E/fk4ssQ1BUJSrW+VopKHo8Il3jNwjbAlnO/ORpxmoi4httvAYhgfo4
VSu5BevzP+o/4ToIc97/oZfItWEEx0fVbGcH4Q7c/G+caSdmuE/HAz84CH/9
6PZR/dyPfXXXc74y9Acmjbz243EZwzY+lvljrQMwTvmo8JWYRSxWFb2e/NoH
JZ4u7b3OQ8BtVvaekn3bx3yvJt4f1iHge0seUN2S+mBhtO2m9W0CXqJtqT3h
1wfnOGWpJtMEfNxsfGDsSB+03qrxVr+KBdfy4hEbKemF91jZLf3uEfHl9zYJ
/cyu/DiXYWI3T8Kh14/Duz73wHHtMWmFvRx4lJrUH4fUHvhfj1Zlty0HLvl9
Zn9fcA88drkgp6acAzetCart0eqBC3Hjl1ueceLvJt+Qun51w6oEeqL8EW7c
Yd9iYEtFF/O978ffYcCLW1gMHQKFXfCknuus/m1e3DC4eT77TResDKbZnfnI
i6t3510IvdsFr904GagmwIcLxF7XVca6IE8sczKb+PDy5aUtcYWdMKfwy424
XQJ4ieRo+a03nfBfgR4bl5oAnmfadufSo05YK32u8ZiBAP7qXcHCsWudcHBC
sLjmmgDu73CzdUaxEzYdpD63/SmAK5SvJBu+6YCCKZnFnOaCuNTiuOWhRx3w
FdWR3fuiIL5dvJNH8m4HFBZIqbl1TRBn8y8Kop3vgLXfJHI8EwTxtTdvD4+a
dkDGjo78s6mC+GJzEqXxeAcUaxoS6P0oiA8o+Du93dEB3WMsH+RXC+JtNpd3
POLugBvi3gGsnYJ4bbhNWxC9HW5KnPKcHBHEi/8cOXm2sx1SKYnTXuuC+Cce
uU3tinb4IfCpCh8nGc/UEC3eX9gOHzQH0Y4KkfHER3Q59kft0PNlyEVcloxH
oqlhSmg7FPnwJltQlYwHz3Wn9Hm3w+OZJT88jpJxX7GaM1Xn2+FjW5YpU10y
7qFfwltg2g6zPj32+WpMxp1u5FSkHm+HktZXMtLPkHHb9OTgaMV2mLbLuIjP
gYyfZAQsOnG3w1KrB1FuV8j4MVn3HFN6G3zSHlt62ouMq1nZO2tOtsFbBvPf
82+Qcfm7p3ZKd7ZBJ4pPSdwtMi7x+Wi7YEUbFOfJGR+6Q8ZF+hTi/hW0wZMK
Pe45oWScl2un/tTrNviFxHV9PIyMs6nzENoT22DCduqux/fJ+JrTejEKbYOM
cbaHeQ/IeJIXvbLhWhv8PdCoIRNNxg8GrnT0XWyDNyRfb+6IIeMtkUtj0+Zt
0Mf3qFUcE3s9oSzTtNugXmt1TiAT82TMETlU26CfPOW/MaZ9zqdp8lapNkjZ
QFyVUWRc//uE5B4ys75TJeO7mfFGK0eVVVjbIKnx99X5CDIe2jaE49RWmO5z
kK7MzFd8aMDUZLgVGvl/p46FkPHSuV5H+5ZWSH7mU7iFWa/tWpfHlV+tsOl+
x4s0fzK+Quq47ZfP/F+qhOW1Dxl/LNQaFZ7BxG2nNQU9ybiKRNPzR4mtcNVR
KnnKjYw3KNa/S7/bCqc4BK/LXyTj7ho1RZ+vt8LJWVOBFlsyznmysuKHUyu0
PnQRDZiT8SyL8vZai1aYFixaa2pIxnXO/xztPtEKvb8+9ZXQIuOD7szXtWor
jNyHkyzUyXiQ/3fWFalWaPAMlQwpkPHih4USZGIr/FRx9r7wVjJu9SpfSWKp
Ba6Z8QsVMOeRmvMZOzDSAnc0jebkMATx/eXZDkZlLfDVgW+VT/4I4jVNWe42
X1qgIC6bE9EkiF/ufx3g+roFRqXFWVYiQTxj5eWzu/daIP7waJIyc39wYsrb
BJ8WmFp3xd8qVhDv43/29ZVzC2wOsf/0K0AQ3yaX2Fai0wLtMUaEp6UgXnAo
fqRKrQUGxxbaZmOCuMWJGGrHnhYY+EN3aK+cIB5jHyGwRGyBc6XypzsYArjc
5Xu7WZabYVqavSnnqABecSPkAP9oM9zdKXDQp1YAZ4kLMFYob4a5abfKZ5IE
cF/kGekc1gxJ/q71SjICuFC9e9K1G80wpvvyFIVTAM/tvpwV7NIMm/b/vVvY
yo/PUJ3KU3SboSAX52ctC378wj5rQhtbM2S5YfHcW5MP/6dyhn94uQnuVPHc
zUXhxZMxc3HKaBPkWgjWa37Ni7dZnzrG87sJLo/uE/jDzrwfo3B/3fAmCAon
nt78sgV3eeNTkXGzCcqrjC912G/Bg8BbYRbXJvhU7sZWG9YteAGVP+/HySZ4
0cYy8p0hNy5hPzilztkEN71q+bh+cuK+07Le8ouNUJ4ok7Jgy4m/F3/IM9Hc
CI3R1q2tFA5c5P5FvQuPGiHJtG4paDsHPmvNWmQh0gj3g5K/M6bsuFTMVUv+
1Qa41Xxb/tFONtwatSzUdjZA/hACi4sjG/5L9rWs3vMGGFz04IuCMxF/TtdJ
PryzAV7m1nkmdIYFP5kSfmenVD3UbF0h7Y2jY4GNc6LdrPWwa6QyyNGKhuUR
z359MlIHD9PP6H3ctort9JBe4Musgx7dr/TcYpexpWOVF1hk6+Bt61PlJv7z
WNoAp+74/lqoKbzZWDJXh3WQrw1m8NVC9jqr5MFohG3R7w48v1AD1dvIcrUz
qZjv5+zCrtwauEk/VWCX9RuYhBjJ1KrVwMNi/ylQy4fBmmQMd65GNfy47Zvt
455VECG7paZ8WzVsfW0ytJv5HiQrRT3o/lsFP1k1JApsWQfyxyI5iflV0GBW
eeOTIgHanQ0jnZWvgkIhwvdz3rHB71GBrOtilXC4dHVD4RwfNHjI+ClAr4AO
2yfJx97yw7akgNB9nRVQdRg7hAUIwNk3/oTTjyqgKc3YsbNeEO6ENzbSt1RA
vTRrtqE4YRi45LGmv14Ov9ft7iEGikHOtZlvDj3l8GpExUN23R3wMcH91rXi
crg5m3LPmW8n/MB7hZZ8g3neelePXs4u2C9zaWVutgweeH5vKSFYAmIOjtRH
/b9gaJqhdorAXljj1Jf37vsviPBh9bjIvfDsFftrP57/ghGiztvaWPZBT19b
yrjVL7gUo6HsRNsHXyVYzWs0/IQlyi/Ca//KwM1yk+k/ADH1BCl4TU0RdkWN
W2mkIvhdSs4pv1gR5psF/0wMRpBwiaP6C7YfuvblPtPTQvDjmld4iukB+GxC
Ju7sPQj/NXPSd+LKUEWvQH8u8gd87+qxaRivCkebxsTTDH/AB7yyBtf7VOEz
h20rFtw/4DGBi2lm8mpwwyfgTXF0KdQJG2SoVanBmgwtlrC47zCGKsddyHMI
uhDqS8Qef4M5Oy2b078dhttiNh7Wn/kG169pyhWQj8CabcpXQrZ+g7NTJP54
jyNQRenRtvGnxdC8sMj0tZQG3HC0vZH3vAiePrrg4fZMEyZ9H9tvkFoIP/3U
KPB+fxzW+G6k3czJg9wJtsZKx07A4b+VDbXOeXDfUw5FvTsnIOPGw3XJXXmQ
5cf2O4vgBFT02WvTEJ8L548mHRXU1YFifx6Lm05/gtEegf33rXRhWpMiIzc4
B9ocSgHyT0/C5gZ41pGaDX/+srbcMXQSstZb5HNdyoapER+W8hT1oXO1/xUn
o3cw17HMqf23PpT+Vd4ptDULind6RwoSDOH7Lw4FvjnpcNezuvmTT07BvrwF
/j270iF3zr9OoZlTkCf3rntjfBrs6DK8laRtDPtszPXMpl/BU2EVhyopxvCi
0ZTkl+Bk6FKG+CesTaHHftFe/5yH0DJodpA/0ww2yOGJzfEJ0NbsD2m+3Qye
M65JPDMdB4tEVf5T5jCHo8edvIqCo6BY2oT+6FVzuCCRKHsnJxQKiCR7bz9s
AV3USvc7TgfB1vTAJll3Czi19ww3Cg6AKavvRTNSLeAyR1hZeM41qLfTs7KZ
yxIuUw9rNQdfheD2IccHuCXcbHejP825CN1Uv2AfblpC4etKl77lmMOMJhr7
0Q+WkAi5G0YOXQN7TD6ZqI9Ywv8BvMEWfw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5187395453030243`*^9, {3.51873962822692*^9, 3.518739636333613*^9}, 
   3.518739741115718*^9, 3.5187427813467407`*^9, {3.5187441805689983`*^9, 
   3.518744219562896*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p", "\[Rule]", "0.20363937680730309369740250648529601186`17."}], 
    ",", 
    RowBox[{"q", "\[Rule]", "0.78444488374548933473433859549337949314`17."}], 
    ",", 
    RowBox[{"r", "\[Rule]", "0.01512494080218423304141967886589165118`17."}], 
    ",", 
    RowBox[{"s", "\[Rule]", 
     RowBox[{
     "-", "0.0032225901625579573024012607634612062169040208435916172527`17."}]\
}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5187395453030243`*^9, {3.51873962822692*^9, 3.518739636333613*^9}, 
   3.518739741115718*^9, 3.5187427813467407`*^9, {3.5187441805689983`*^9, 
   3.5187442195887337`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"qpprox", "[", "x", "]"}], " ", "/.", " ", 
  RowBox[{"megasol", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.518744244615067*^9, 3.51874425025218*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", "x"}], "\[Pi]"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"]}], 
   SuperscriptBox["\[Pi]", "2"]]}]], "Output",
 CellChangeTimes->{{3.518744246209734*^9, 3.51874425063562*^9}}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cosine", "Subsection",
 CellChangeTimes->{{3.518791165080474*^9, 3.5187911661358433`*^9}, {
   3.51880060378986*^9, 3.518800605080063*^9}, {3.518800807005014*^9, 
   3.518800808721179*^9}, 3.518984229615027*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "qpprox", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"qpprox", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"a", " ", 
     RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"b", " ", "x"}], " ", "+", " ", "c"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megaeq", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"megaeq", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"qpprox", "[", "x", "]"}], " ", "\[Equal]", " ", 
   RowBox[{"Cos", "[", "x", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "megasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"megasol", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"megaeq", "[", "0", "]"}], ",", " ", 
         RowBox[{"megaeq", "[", 
          RowBox[{"Pi", " ", "/", " ", "2"}], "]"}], ",", " ", 
         RowBox[{"megaeq", "[", "Pi", "]"}]}], " ", "}"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"a", ",", " ", "b", ",", " ", "c"}], " ", "}"}]}], "]"}], " ",
      "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultraerr", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ultraerr", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", "x", "]"}], " ", "-", " ", 
             RowBox[{"q", " ", 
              RowBox[{"qpprox", "[", "x", "]"}]}], "-", " ", 
             RowBox[{"p", " ", 
              RowBox[{"qpprox", "[", "x", "]"}], 
              RowBox[{"(", 
               RowBox[{"1", " ", "-", " ", 
                RowBox[{
                 RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], ")"}]}]}], 
            ")"}], "^", "2"}], " ", "/.", " ", 
          RowBox[{"megasol", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "FullSimplify"}],
         " ", "//", " ", "Evaluate"}], ",", " ", 
       RowBox[{"{", " ", 
        RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "  ", "}"}]}], "]"}], 
     " ", "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "ultrasol", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ultrasol", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"ultraerr", ",", " ", "p"}], "]"}], " ", "\[Equal]", " ", 
          "0"}], ",", " ", 
         RowBox[{"q", " ", "\[Equal]", " ", "1"}]}], " ", "}"}], "]"}], "  ", 
      "//", " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"ultraerr", ",", " ", "p"}], "]"}], " ", "\[Equal]", " ", 
          "0"}], ",", " ", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{"ultraerr", ",", " ", "q"}], "]"}], " ", "\[Equal]", " ", 
          "0"}]}], " ", "}"}], "]"}], "  ", "//", " ", "FullSimplify"}], " ", 
     "//", " ", "Evaluate"}], ";"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5187384617176733`*^9, 3.51873847499699*^9}, {
   3.518738658646213*^9, 3.51873869908646*^9}, {3.51873896982164*^9, 
   3.518739029136842*^9}, {3.51873908336957*^9, 3.5187390837671947`*^9}, {
   3.518739177653307*^9, 3.5187392866018543`*^9}, {3.518739473312148*^9, 
   3.518739498871552*^9}, {3.518739713680276*^9, 3.518739714173778*^9}, {
   3.518800813903126*^9, 3.5188008141774263`*^9}, 3.5188008581116753`*^9, {
   3.5188008890660753`*^9, 3.5188008916083403`*^9}, {3.518801119591176*^9, 
   3.518801123404662*^9}, {3.518801560167856*^9, 3.5188015619574423`*^9}, {
   3.5188023538012133`*^9, 3.518802381727819*^9}, {3.518802549446805*^9, 
   3.518802593241386*^9}, {3.5188026324113693`*^9, 3.518802673432024*^9}, {
   3.5188029003272257`*^9, 3.5188029705765133`*^9}, {3.518803031189797*^9, 
   3.518803116345992*^9}, {3.518803176096686*^9, 3.5188031833820763`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{"megasol", "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"%", ",", " ", "17"}], 
  "]"}], "\[IndentingNewLine]", "ultrasol", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{"%", ",", " ", "17"}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.518800893759077*^9, 3.518800894593831*^9}, {
  3.518802594838058*^9, 3.5188025967815247`*^9}, {3.518803048611704*^9, 
  3.518803053511733*^9}, {3.518869898349309*^9, 3.5188699098919897`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", "0"}], ",", 
    RowBox[{"b", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["2", "\[Pi]"]}]}], ",", 
    RowBox[{"c", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.518800894922132*^9, 3.518801563793376*^9, 3.518802597106105*^9, 
   3.5188026414389153`*^9, 3.518802677213027*^9, 3.518802977352646*^9, {
   3.518803038113155*^9, 3.5188030538009977`*^9}, {3.5188030937457542`*^9, 
   3.518803119103751*^9}, 3.5188031870782433`*^9, 3.518869755011999*^9, {
   3.51886989918078*^9, 3.518869910282226*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", "0"}], ",", 
    RowBox[{"b", "\[Rule]", 
     RowBox[{"-", "0.63661977236758134307553505349005744814`17."}]}], ",", 
    RowBox[{"c", "\[Rule]", "1.`17."}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.518800894922132*^9, 3.518801563793376*^9, 3.518802597106105*^9, 
   3.5188026414389153`*^9, 3.518802677213027*^9, 3.518802977352646*^9, {
   3.518803038113155*^9, 3.5188030538009977`*^9}, {3.5188030937457542`*^9, 
   3.518803119103751*^9}, 3.5188031870782433`*^9, 3.518869755011999*^9, {
   3.51886989918078*^9, 3.5188699103409843`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"7", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "720"}], "+", 
          RowBox[{"60", " ", 
           SuperscriptBox["\[Pi]", "2"]}], "+", 
          SuperscriptBox["\[Pi]", "4"]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Pi]", "4"]}]]}]}], ",", 
    RowBox[{"q", "\[Rule]", "1"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.518800894922132*^9, 3.518801563793376*^9, 3.518802597106105*^9, 
   3.5188026414389153`*^9, 3.518802677213027*^9, 3.518802977352646*^9, {
   3.518803038113155*^9, 3.5188030538009977`*^9}, {3.5188030937457542`*^9, 
   3.518803119103751*^9}, 3.5188031870782433`*^9, 3.518869755011999*^9, {
   3.51886989918078*^9, 3.518869910365882*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"p", "\[Rule]", "0.54641335845679633672516327954815253374`17."}], 
    ",", 
    RowBox[{"q", "\[Rule]", "1.`17."}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.518800894922132*^9, 3.518801563793376*^9, 3.518802597106105*^9, 
   3.5188026414389153`*^9, 3.518802677213027*^9, 3.518802977352646*^9, {
   3.518803038113155*^9, 3.5188030538009977`*^9}, {3.5188030937457542`*^9, 
   3.518803119103751*^9}, 3.5188031870782433`*^9, 3.518869755011999*^9, {
   3.51886989918078*^9, 3.518869910381343*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"1", " ", "-", " ", 
   RowBox[{"qpprox", "[", "x", "]"}]}], " ", "/.", " ", 
  RowBox[{"megasol", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"1", " ", "-", " ", 
    RowBox[{
     RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], " ", "/.", " ", 
   RowBox[{"megasol", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], " ", "//", " ", "Expand"}]}], "Input",
 CellChangeTimes->{{3.518870117565763*^9, 3.518870118503339*^9}, {
  3.5188703440934772`*^9, 3.5188703490204763`*^9}, {3.5188704292318277`*^9, 
  3.518870437043235*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "x"}], "\[Pi]"]], "Output",
 CellChangeTimes->{
  3.5188701188723307`*^9, {3.5188703447210712`*^9, 3.518870349515987*^9}, {
   3.5188704333414183`*^9, 3.518870437274516*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", "x"}], "\[Pi]"], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"]}], 
   SuperscriptBox["\[Pi]", "2"]]}]], "Output",
 CellChangeTimes->{
  3.5188701188723307`*^9, {3.5188703447210712`*^9, 3.518870349515987*^9}, {
   3.5188704333414183`*^9, 3.518870437315456*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"qpprox", "[", "x", "]"}]}], " ", "/.", " ", 
      RowBox[{"megasol", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"qpprox", "[", "x", "]"}], 
       RowBox[{"(", 
        RowBox[{"1", " ", "-", " ", 
         RowBox[{
          RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], ")"}]}], "/.", " ", 
      RowBox[{"megasol", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], " ", "}"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], " ", "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.518802451727002*^9, 3.518802454448848*^9}, {
  3.518802879291369*^9, 3.5188029099003572`*^9}, {3.5188038404793577`*^9, 
  3.518803846353519*^9}, {3.518804321345839*^9, 3.518804328497068*^9}, {
  3.518804849705946*^9, 3.518804894831028*^9}, {3.518805626334693*^9, 
  3.518805639807654*^9}, {3.5188057383616*^9, 3.518805744403389*^9}, {
  3.518805780336259*^9, 3.518805810852454*^9}, {3.5188058654587517`*^9, 
  3.518805865602315*^9}, {3.518805930179558*^9, 3.518805942234017*^9}, {
  3.518869733634761*^9, 3.518869734430921*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlmXk81N/3x8fMWNPHXlpEaREKUSg6NyFR0oZKkTZJkpQlO0WbEEIqhLSQ
LJFwFWNm3inKTvYxiJAUkfre3+P318zzce99neWec+b9fsxSx3N7TtBpNFqV
AI32f58MLPaxd/35zeQrLh88sXnFYNmmJXd2AW3xFp9pOWOYztE43hJtDzT1
mc+DUvugT9Zp6lX0OaC9v2IkJnYcWk1D36VHBwDtUIeQy/QFaLCPXnU/+jaU
m3/XRm0hsMdlQWt89ENIPmLiOp50B6LG7fLiol8ALdHXyEnpEWximYsZXSiH
rhrd2UsNueDmY3k0z40D5SWr+5BnMZwtOhFBV66F2saphS8DymHt9t1KAjq1
sBw12zbcLIexFoPcf8a1YPa2t2UsoRw8ZmQa/5ysBa/Y/sdz88vBZ/M7hcmn
tdBMJYd29JfD1colWUPrPsE+u1qqfedbSK5tel9v9Bnify2YtpZ5B/UD20Uf
O9bDc/n/Th4IrYDRBBWTEPd6yJljYR4fUQFiFsJB9sH1YPb7d2FNfAWgrMqp
+an1YJW1dJ1KVgU8Ow8D4d31IB7QnhvQUAHB0zpsZ4cGCN3/4jx3eSVoiCtd
WXukEWq3/T5QXVoJ5qV/y8VcGyGzwyBdgV0Jx13b//D9GkEz2i3iVG0lJNYm
ejy83wi0SGvDvp5KEIqVOy7ZTs6LTSuGC7Pgi8KcreOHmiDfjBnlsosF1zV+
0V4daAaVtYKz+S0s8PHcrsZ3bobFkXMlanpYcBon7Z/n2wy+PpG3u4ZYYLZr
69NLD5ph3+LXnYOzLBA+F7lXt7cZuqIfNMYurYLQbNWMIpcWcDIU+b73VBX4
r7G3eBPQCi55EjfODVeB68Xci0ORrZC/vNnIe6IKDpcKJi9KbYWY7q4wnz9V
YLDz+cTlylbQm84vPSbOhhmX3/cNRNtAsjd2olaNDV7P74yVRrfBmMQz9/mn
2XBejRNbnv4FaKFeQ4fa2cA7wQtMfvUFciaSivR4bLBOprkEsr9AddHqoLlD
bNgop2+EBr/AFD1S5OEUG+j/noxg9Xbw2qo/11GGA9Gfb2zDee1Qm7CkwWkb
B3K9d/0ufdsB6qcsCwKfcGB5/hne/c8dULI64seRFxyIGwmr8evtgMipHsv1
BRzwOVaebijYCZlo5VGqnANGO7X2lJp1Aq/6mXRcEwfqlGSeldR0QvJjlJzP
4ML0sTPZ7a5dsKM+ccM8ay44SP3wKrnUBbSPy60zDnKBVeaz9Z5/FwTOrC7S
sOdC5ILrzbYRXTBQenLbWicurKrJpNdndYG4sVBWqzcX9m3kW1PDXeAxIXf6
+z0uZEse/ffKuRuUzIMPKbRxQbZsgBvr3g2+2oGPmjq44H3GLcbDpxumzrF2
3OjhgnFVwOp117shx3Ehu2OQC22XH+zNetINx+XzL22Y4oJIf9vjRwPdYHty
RcoTGQocS62tIk/2QPnJRu0MEwrWvZKXXnCuB1w+2M77YEYB/UVrXYpnD0z1
2FgPW1CQmnzEJi+8B3Sk5Sdk9lDQE3LySOPTHoh59Pm98BGiZ37JZfEo4bXh
80M8iN5WvbXpkz1gfKHtvKYn0TOYHl1D64VA+kJo9CZ6a/wvgFQvjIWwdecE
ED3Jqz6O2r2QkyvMWXiN6DXFhmd69sJyw5m4T/eIXq2NuVZgLyjtlq4UekD0
uAvEi8N7wYEj7qOTTPSK799+n9ALEzcNrnqnEb376XEjb3ohvCHB9OlzCnLj
Ttl6VvaCW25r96NsCoJvr15I+9ALSGqtVFwOBcuCsu5LdfSC72iW1vF8Yv94
QZoOjQd6o4kpj98Q+4c9T5aK8MBjcIJ5spTYt9ZXMZXiQf6OXGEFTOxvK31m
s4zsLxP97vGO2Fdl5foY82Asb/Xlag4Fx77Xl5eH8+DLqubsRfUUOPhE2hRF
Ep6JltrVQIEdY8fIi3ge5GjvXujbSIG1XMWih5k86DoUu6yimQIz/ZeX/DhE
/2yQhmA7BSbvXOZerOVBtW9Cr2AHBUYWKmkuzTwoQhu30Top2HT44adDAzzI
pHUt7emiYG3QLfWNIn1gK3DA9CCPAlWx7RVakn2gE2cVr9JHwao7zIOr5fsg
3+DcozHCSumXw+RV+qB239Tg2X4KFNbqLpHU7IMdYjWrlAcoWFg4ni+s1wcT
tunKnwnLcE/3/NrWB24Raw4qfKVAcs8K75FdfRBZZ3n3NWHxti4Jvg0572p5
d9cQBULfbAwbTvVBeep7ntMwyeclmfrqc33AyX2jM0z439+PzpWefcBjnttx
+hsFU5Km8XlhfaCZKNJsNULBRIKAxrPbfWB8+rjlG8Lfl5WyUu/2gWS0a5Ti
KAUjz7zsEh/2QU6tY6of4a86Oj+iHvdB6Fa/4AbC/aWj16696AODM9PrVo1R
wDN9phRU2AfxqvML3Al31Zws9MJ9cLNKUqyIcLvtMks3dh9M9S3XniTc2t3O
O1VD/I+K0tL8TkGjc8Jl+yayXydW6Bjhuh/7pG06+6A50TXvNuFaX8knlv0k
n+N2+q8IVwtWg+loH+yrfpjQSJgbEdZoOEn8lfdsGCNcNX/r2fX/iL6q8ghz
nIJ3yX8Za4T5kP+Kx5MmXLa6OHG5BB8Wf/5TvJDwm9yLWovn86Hkx/PziwkX
bdLiyCjyIfzHBjF5wvmVw0fmrOKDr1j7lbmEX+7M/EnX4EPa5+6+P8ReduOx
m9Mb+DBsGq7GJ/zUXlF5fDMfVCpkbLmEHw+0vh405cMXBsclg3Da+Tirbks+
2K4cdPYjnDy9u7/Zmg8umW/2WhK+HzLXv/YIHwKdQlUWEE4U58pyTvLBKz38
azvJX1xs6DPsyoebf+feSyJ8ZwkyKrzEB4MLBzftJ3xTs/BcxlXiX4SjVT65
L2pdE/9iBFlPCUiwIyyyfvKwSRzRmy6T+UfuP1RfdwcvnQ+Vzl7J6wi/22RT
kZfFh7G9hwsqSP3QNntuDCkg/q/aSNtF+LJRocoyFh+q/+Ub7CP1VmTc9PB7
NR9QfLnmR1Kfv0wn572t54O68UN7I8LuFrqCDjw+PGfnuy8g9ey8r7D7PqMf
iixdIoNJf2RaN9mendMPoUP6fh/5FPBtJ2sMZAg7pWTLEj56WLesbVk/WA2u
4t0m/Wd7sjBxgVE/aJ6+UbKlm+TDqUlqcHs/yAs9GLMn/VrvPBletLsfbqqu
uuBF+tnqnK6nzdF+yPwc5RRP+n+bV+He2MB+WCx1SzemhcTv00QdDyf+zMjR
r5B58c53cotOZD8cp4RXuDVRsDlIV7PuYT+EP1vhvZ7Mmw3XC8WlcD9Eeh30
862lwONmU0hXFeFlemtRDZmXEZPTLz4S/5Kubvn7gYI1d3QHLTv6wWxPYMzp
9xQsTypk3Zzth0DuFolZFpmXD5oM7AQHYOru3193Kkk9JE/mqc0dgPDr2y1W
VFCwOF03lVo8AJItDzbrlpN5kV3oL2JA1uOHL8gXk/4vL9QN9RkAl63Wup/I
vH46VzpjNngAEL9OcPApBXsOuch63hiAcgUFu+lMCh79Uvp+OmkAVOBZhmg6
BcZrrj/dVTYAetZ/u1uTKLiaaKewiD4ITjs3ndh+g8y/gVc3YsQGwWqbped0
OOnX9VLTc2UG4fl0pVr6VTL/PrEaacsHodb8TnB/EAUcYY1IvskgxGdXzlPy
okDsogAj99ogJJ332ut4jOTn3aHzatGDIJ7zd3+2AwUHJV91piUOgpvcD7mJ
wxQ8e+ZccvfZIBg7TtW72FKwo6fuot8HojdgESCzk4KIXRkDZlJfQS/cQFB3
PQVSqhYfO+O/Ai9Wd6SHRupH+KEUJ/krDINeSvosF4r7xvflZH6F46XSUsem
uXA8JbEtsOgr2FqLr/n4gwtF8l8HljZ/BfHRFf4n+Fw4InyNcXz+EOjce1CV
QHHhOa9KbyB2CNTrs/9Tvs2FoHcLfWvvD8HNZY9WoRtc8rzliovSh0B8N0vN
NowLNLt5ptcKhsCg0X3GK4ALe+tO7FVtGALNiORuv3Pk+ect09VFdhieaxXL
xFlyweyh0aOxaMIb49zFRLkQxqltD743DPKj1x6tZHKh6vsRebm0YbALkpc1
/McBE+PLt/QLhsFBNO+N7U/yvDWY5xncNAwq+tkHLbo5YKC9Yofs4m+gN5gQ
pljEAU228E/d9G/gtjJUK+ooB+aPVpsGFI6A+KrdhcJpbIiPwkcH8QhEitne
7rrPBnmdXN+9nBHIefFkf/5dwt53c1e1jMAOVk3+jhtsWMhwXFI7PQLo8PNx
5M6GJfMnfyptHgXNkz8X6AMbVsLS9HeVoyDru+vOxYYqSGQXCzBOj0Glk6vW
zR8sMFDY8k/p+HeYCGl/06dQCWpdkjw/j3HIl0YS051vIStT2qnA/Qd8edl0
3HwlBt+Ow3VqVydg+ZKOpdHs13DeQM/iQcxPWLb26ZoejXyYfmjsOBT5C9Dn
0ENH/LOg1i3RwTN1Eiw9LlhnHkgB/W3L/ranTIHSmnrNbcZhwDXRz0RJvyH6
aZXFJ52rOP1lgn7Ps2kIbstZNFabguWU1Z2PPJkBEZ2X5WypLPxZQCR4Qckf
kBY25/z0yMcFIhcyarmzoKNVc8FTsBiry0k6O7L+wvC3nHCxb2V4NOKXrHbj
P+iQGErqG3mLlcPCNM450xCv7n2LiEgl7jnY1mrUT0NdjUiqvJ2FxQ1tHjsM
0pDVtsQmzT4WXq9Yd8F/iIYq9Z/+SRpm4fBeSrx4lIaQ7KeDp2ZYWMOleLPW
FA3VdoWurZSvwr5+CamKogIoPnDQNWlPFZZLtnH+oyqAOC3K6PW7KmzWV/e7
wFUADXzzeKQTw8Z+ahGXX7gJoClX04/0RDbOPW82m+kugLxicoOrH7Lxor8l
tKRLAiht9ZzgPc/YeGRehnCwvwAy2/EwW+UdG8eYeclZRhB7Y9vs/4ywcdez
xVr8LAGk8qtUfYMJB8uNN+Z2viD2FocEuZtzsLlelE7LSwEkcnV4zdNdHJxX
KahXXSCA6uUCw+Yc5OCr7SObc0sJN12RjnPlYHWJtzv8PwggJYMWDW4cB3u5
n3Ca900A2c5TaUjq5eBwi5FTG0dJfNena9MGOPjucs9TR74LIMm5ogsff+Pg
V43hJzN+knhq1W8mTnLwj43Pj2/4K4Dcdg0UG8zhYlfGDwdrCTqSXGoV56LF
xcdiAg/EadERqns84+LNxe5nRQ8Ua9PRvkXskWI/Lg42jbbtWE9HE4uCxunB
XJw89chm5UY6+qK3c3nQdS7usGPvf2VER5WH5GbX3+Ni2xX/7WncS0duu816
A95wseWre+bzLtFRoOrY3bBJLnb64fhPzouOvOjeEs3TXByiqZov50Pst39d
qfyXi4ueFinI+dNReFuKxhMmhZc9bBiTuUpH6tELAjykKPwrTOKuVBwdVctq
fhBSpbAkq9FCKp6OnPbXRdPWUFiN/oAmlUhHVqz+rgkNCjv4qjtLPqCjAaVo
yQ/rKUy5bTeUyKCjsbNbYjdtofCDAyG94q9IPPU1oxI2FC6KM48XL6Kj5w/u
R7w8QOG6Oqmd4sV0tFi55MFOOwqLWCa/mlNGR1N7NeZePEphd6PSa2JVxJ+4
9unAMxQ2VZvUEGmkI869qZYb/sS+UxlPuJmORJqCeuoCKXw5/UqCcCsdxavE
mMwLoXCOoixDuIOOal2y5a6HUXihrFajIJ/o1Zu8WhNJ4ZE/zr6MX3SkFHOz
7FgyhQ/YWqz+PUnsL+xR3ZZK4co8tcaR33Skt9NadkUahROchzVaZ4n9z4cP
1D6msHHz2d4cQQaa4uwO42VT+F6em/kROQayKli1i15CYSGJ3ZN75zMQLern
2M1SCrs5a6VtX8BADivkZqQwiWfp+KyOAgMt/rZ065x3FB6PuPByzgoGGvh7
zr+YTWEz50vyr3UYiBM5GCz2mcJ5LGtW9gYGijToldhUR+ElS3Xd0/QYaEdc
4diJegr/aJp8f9uAgeLPdmQ+bST5N/EOOGnMQOU+xTWjrRQWTTmgbmfKQF4M
hebxNgp7/NFv2W3GQEqWoDr2hcLb86bXGe5gIDPtkoyWDgpPKPnyZfYRf0q8
20/1UNje1+6OqDU5f65Y0rCX3HeTAfpnw0CB/QUh4jwKP4yYTfh6iORDp1s5
sY/CYl/bTbsOM5DKyB1LWz6xZ1L2o8Ge5EdHOF+yn8Lmf/x3vj3GQGmzeqpu
AxQusLGffnWCgWJW++nNH6SwUh48fn6KgZx0bvkWEf51miYQf4aBJMWUUga/
Uvgoqyvr1lnir4lagPcQhauV3h4MOcdAmkgmgjFM4ZSmoHzXCww0phqhL/SN
wnyWZmfERZKfCZWqcMLq+Z2iLzzJfgdlT+YIhc+nRujUeDOQrf03c2/CryIN
7UcvM1CO/ST0E/7jP3xNwp+BRCxy91mOUnjL2Xv5GoEk/rDbYdmEq7f/FnUL
ZSC9aa8tB8coLK2XqRN5lYHEzziz0gnbrLSxzwkn8aeaHf1KOElW6HrtdQYy
uBgmo/Kdwj30gvyxmwxUv/5e6xHCKt+PdUreJv7lTeVHED7bKS2mFcVASfpy
KYWEcz+81dl9h+Qr+uT9FsJTb9zsz8eS/Agey5wgvPmp4vWou6Te9geVi4xT
OCT+Y/7LBAYKZ+nx5Ahzrvp1frrHQOpyAtLk/QT/d1FdbPw+AxUF7TFbRHjv
sTYd6WQGSq5KvyJDOH73dft1qQyEFDw45P0Hd4D+9T1pDCRvqCsxSuwprx3I
d89goD+HTtt+Juy0+G5ndCaphzVXUrMJZ4uZiuU9JXp9gsMhhH9MTejUPSf+
6pzS3kNYr/+R/Y9swttXeJL3E+zfsOe6zEsSf11JQQvJV0WFQIF2HgN9+ff0
WzRhkdyczr0FDOR2+ayCCWHLZHsxj0IS3/ngrWPkPmIi/lsf85qBKm86HYkh
3OJbap//huhNPnDRIrzkjMv1+lIG0jmY7sIm93v8wKKCCcxAJR0zdtaEn2yj
OmXfkfytUTboIPUyst5bbH0lYdckEXvC3tJN9hc5pL76bxyzIPVWRrt6PZYi
8Y0Jjb4i9cgc1SkoqGYg45vtRxcRjngfLfarloEyHzyf/EjqOS3UsuBSC+nv
jbbFXaQ/vrrPdsa1kXo6vs5GhrDG0edihe2kfy7eqdlM+qnYUMxhspv0yxXR
nYGk/2p+scS8vpJ6NCnZndVJYdk+j/XxwyQ/tLcpGaR/D9YpOxSNkHo2jH9L
3k8w70VQwdQ4ue/0b86nSP9POxk6eM+QekpN2pRN5oX5G1V0cZbEdynXK6SB
zLO58krn/zHQPsVOpz1kvhjkjnc6MZjIraHmcPsncj8zj+1t5zBR+Ecn78fV
FP64Mxb2zWWi51E315q/p7BicrCilQQTWYl73uJzKVxufLhzmwwTFfn92ypO
5hsjQtpedxETRYbcvjDnLYX3df3brK3ARAaX71pfJvMxbd23JRqKTOQyu7aV
R+anaRO7Y6UyE2n6eJWlFVM4XMnvyDw1ct7Qv60pj8Lief2Hf25kIl4M30ks
ncJ2gg2G3w2Y5JHsYLXMIwpn2bxT+LaZiUq+byqbl0Lq5U9SO8+I6L/kmIne
p3CkyZ7D9eZMtHgjuyU5huSzucQu7yATDTd7jMcHU1hhNurQeR8Sr4HLjnTy
+2XWs/P1XV8mIj+IUanWZL6xReeX+TNRMvvZ4vi9ZD5GBX0WC2Eir4Hs2TM7
KXxp5fntaTeYyMztdtUrROHaXVa6TUlMlCaYZNK0gsIzOuKxsw+YKOdL/Bbb
ZRReuZAzrpzCRLXaSWc/LaGwLw+y3dKZyM7Wyer5fAqv9tZYIZbNRDpNMouZ
ohQOTv1PxhAzkZ6if/rGr1ycFUa5HXtLzucMMjbzubjZ5erHaxVMJLLzhJ9+
Dxev1f17rZHNRLbDjiXyrVzc9v4bza2WxJN9wdSLy8U6P6tHUruZqHLyqUtx
Bhfzt92gRJiCSOnLnTVGh7jY0cJBaYWQIAo1MHp/2JqL2y3XX9oiIoh8ZbZm
nN/NxfX7O5f6iAuizPkPJYK3cfG7Y9reQ7KCKOf4ndsm2lx8P6Bt1ccVhG+/
N7YW5eJ9hWpX7mwTROrffj+Ke8HBtcW0thfbBVFy/oriwiccbFHWoFltIYiW
N1QO1j7iYCNWwBemFeEewaihuxysWVenfclWEPFMdnW/DeBg8dHLPbanBZHD
1hfx33dycMXKalhyQxDR7mvO7uexsXlEp/m8W2R/2YPgkXY2rv05vv+/22S9
tU4ssImNOyoXuPyNFkTDDqZKERQbTzmeiu9IFESSGjvMrHPYWP0h/fuDp4LI
Q3NTY6wPG8fN109VpATRHzMBi2pRNnYWyWAuFRVC5etcxIakq/B7evitrXOE
kMvc+i1zxaqw+uzpeSfnCqG0kjPCqwSq8Oj3NSrPpIQQxy5Yf8soC3u0FVis
X0g4v15R8j0L+2WzorerCaEdt83U5gexcOS+PiX3nULIYPef/yr5lbgweblh
RRTR+60cczq+Ai//Z3z57R0h5GZ6s1U5ogJHHj7xGscKoeqs3tjGkArstDBj
fUmCEPJN5zmtOFeBF8asWluQQvw9OeTqZFKBfcNUFR+/FEI34zzdQ8beYSNX
TYEbn4SQpEOUmuiWd/jjJgPWHilhNCWkHa39vhxPOd/b6xAhjNz0VfWfrH6D
OVYP98+dJ4Kau36NaSzLw476Bo8fx4ggKxl3DV3TdHz624efX+JEkGaiRvHg
zzTslmJvLJ0ggpIPWB+4mJ6GA0RDun3viyClqZlP85lpOKmFu2hPBjkvKJdw
DafiRm+byD+FZP/btCFFjWRsXuzuvbtNBAUGXrRc1ROLd7syOVfbRVDXla9L
a3Rjse2yuHklnSKIlrV9RuVWDD51/XXeSp4IKt8wWTK+4Q4OPUgbmRkm6/Uv
T3dcjcRl07ccM/6S9WH3z2qaVzErW/FlG00UlctmZ7z5FIqrHV/+k2SIIvQ5
4+IL9xDcRtUnXRYWRYEn1AQqcgPxVOKiJitJwtor/bRtLuF/llkrrkoTLv2R
Ex15AQsxwOONrCiiMSU/v+a4YdkzjlIrFxDOrMzDzifxIsUJ+0OLCKvtDyit
c8DL6q5kRyoQ/i9+a5yHNVYNmz/LUiRsxnVO9TbFWpueWMwsJfz//yeW/Q8M
Sj8P
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmXk01N//x5kZa5KK0CJUFO1IQq+bZC31SUVFhCTJliVLC8qWJFsUUaFF
yK7ERZQtCTPvdyTbWFIoJUL53e85v7/mPM6c932+7r3P13Ne7zNyNi4HTzF4
eHjqeXl4/vfJxMJNfWpuO8+FXCqt+OK5c82Xck2ZmP3AMP4TvEriEEw/32T3
MdoKDIWC3LXE7KBf3GGqKNoFeKf8gnL5PaBd72pVevRlWPnnrlfVzyBgW0Ur
JkffhMEn1vEiTTFw0Em6PSE6BdI7bbYJBj2EW+MW+fHROfAq9qLaldE80Kwx
EtY5XwG3jqXcpNyqwNXX5GS+ay0In9hdlPSsDoyctR4LRtVCZHhE2Ps3dbDK
RmnMMqcWktgOf3901wHHkP+i4GgtdK/wa+GTqAdt6fIEy7N1YMt2CDrjXw/C
JRuaBezrwaTF7/oqgwZInxABi+ONkBAjecOrtRHOlZyKZKxqBkZB71LNl+9h
o+F/sryqzbDx+eeWfS3v4ftHrbw53Wb44vtXzmT4PXjMLObM2jfDJiPt+nnz
m8F3Z9WKyafNYLpLSfq0VjMEV8tkfd36AV4dNKq1T2yG1GaqoU2nBbba06dv
7/0AbUOGQo9s2mCXK3VjTUILjCWu3RPk3gaCBkO2hvdbQNhYIMAqsA1MPTuS
Tj1tAZRVPSX5oA0Cu121Q161QKYbDIX2tMGeM1G2Lt0tEDit+tbRmg3R1afi
2hRaYZOI7LWNJziwJe3air9ZrWBU9q9C2JkDdiO1mpuLWsHOuXN24CIHFEU2
jRwvb4U7zXc8UpI5YNF+dkFyUyvwx0nYiXVyIGZdt9+b0Vb4tGLe7vHjFFgv
9tYr3tAG4Zt+8xQdpcFmie/mZRlt4OttqDzgSMOc3nzbuaw2OIOTDi/xp8GH
npToKGwDg/27n3rdo0Hc6grLp6YNBFyiTNX7aNhVtWzHfm4bXM1Wyihx+ghl
y2wK7WXZcGmDlXHp5XbI/XXi+P5oNjh75nl+jWqHv6/rDigmssGyjC912YN2
SJydYE6msEFr37NfftXtQA1D5sUsNsw4/UnWEuqA6sAjKmtr2XDhWcz3sugO
SO3woH7OsMFNuTauIv0T9Ag//uxuyQHuKe6V1KJPoOOXvErZlgNHUnmcrrz9
BLmbB7M6HDiwQ0JDB335BLNSpYlrPDjAmHsyitd3wpcHO3ktwzkQ3XJdH+d3
gsGLwIzjhRzI89n/p6zyM4R8dOFJ56NgdcFZbnLLZ1j0X5HHGWEK4kdD3l/s
+wxRl50dFBZQ4Gtbka7N1wV3c7zZYVIU6OzbcrDMoAuSV76d+q1EQavs4sxX
77vgksXambMmFEzbns3udO4GUZVT6e9ukntZ+PPCK69uAPP4DNsYCmrKfXff
vdQNF3mVTH/GUxAlHU6bR3aDjeaJgrlkChTfP2a0ZXVDaANUNGZScGjHwJH6
b92w3nSxgcYbCl4OnpN78qsbnjjue+5YR8HKuImvIbPdsPH85Y64RgqGx1gB
e0R64G7e8ysfWygISF+VWaHcA+Vnbmxa0kVBttjJuSLHHpjJPn7G/jcF4uVD
dXHuPZAaOpGr+ocCn7OusR6+PXCgYjl7doYC3TeX120N7wGB9Knnvrw0dPjd
M8160gNPq5SH1ovQIDjY8ejhUA9E6Gbec5KlwTnW1j3wew9oPp9BH+VpaN31
VevkVA/8GnBmwxoa7iVNf5AR7IVSsYft0+toUDsoPZuo2AvWbSGX16oQ35Yd
ORBl3wujC10u2urSsLVIapG0Sy/cSV/59a4eDYyc9tb73r0w7mdy5J0BDQ9S
T5jlh/ZCu0Pm+mX7aOgNsj/BedoLUjd4RW0P05Dnv1bWKr8X0i7vTrI1oyHQ
c7hnsLQXTNJF1C1Jn8ifdj71p7EXNjBeJGpaEn0jL6flY73wwFjaIN2O6O/e
vjF9kujLqro42xN9remxDTx9sFy6K3ezA9HfcOk8LOwDnpEzt1LPEn2xYF8b
lT6oPzM+ssGdrEfFhT727oMaZl0lzyWyXrOZ0ZYrfSC/1inI4jJZr05a5GVo
H3w7kHsp9wpZ72XyzYbEPmCuzVinH0TWS06PHy3tg0a1j9fkQsl+4k+be1f3
wZq3yob6YWQ/N9ct5XnXB5b71h22Dyf7CchKXvi5D9KfPzGJiiD6doVpqjxc
kFhuNRsTRfQtve3LBLnwK/mxxtVbRP+Ixlq9hVyQ48toOhdN9PXLMs3kufBo
BglsiKXBHV0+163EBem3qdmMOBp0NHZtOqNC1vu+vfAD4V6lmjxfXS50tsQP
Hr9N6lsV4sHcx4U3tTKSkgmkvuWG2yIOc8Et1jargbC86LsXyfZc2LXmsYTc
HRrG+W/6KbhwIUDB8Wsl4aq5A9o53lwo8zy3yeIuDbY/2ioqQrlw1OuV0MUk
Gqx9o8xKooj+zdUD04QtmHtHcxK4IPh7/4LzyTQckXi9LOUxF+Q9RU0Oklw7
eO9SXvxzLtx2fW7/gvB+xR2GkSVc6Lii0rI0hQYDjVyvi7VcsMuYftRIeE+V
03zPZi7M3NsnsSKV7Nd4bZoTzYVJ95SO04R3tvXtsOvmAjPWe/YZYU3LlA/H
h7hQfd7S5xvh7QPHHEy/c4kPaVOF+zSouiyZM5riAmOb641jhLdMfYjT4emH
xplMxTDCGwNurN8h2A9cvcWr8wgrCRu+3iLWD79CN1xlE1aMYR1bJ9UPqSqB
hj8Jr15e8V1Wth8iSxI85z2gQTbdL0RqbT84hE0JyRBesVFdRmxzP3yQXCeo
THhp8XiBwPZ+cGPnum0lvARlG89BP4ypLDVQJby47kzvb/1++JH2JWIzYbGD
a3xG9/fDijuPdikSFunoXjBg1g9Lr3WcliIsZJeU0WnVDzcpEV4WYf4RM232
6X5YxXwtOkzqY3gtbmt06Qc/n2vR9YTn/jU5Vnv3g/azjhvphGdDwnlfXe6H
RfP3MfwIT4npJeSHkP3NP/nDiPCvRN5NmTf74cbKFAsJwj/ky2oe3O6HSwWR
e9rJ+Y5mXrC4k0Lq21mclUh4WFX1561H/TB/Y2q8KeHBsrGwsJx+mJxo5hUk
zNXLlA0o7ocAgQ/fi8j9dprLm7i+7QeRJgtrFuH2nk7u6ff9YGk/2feA+IPj
mOhnRfXDgOjlH5qEm/3FnpgM9sMus/PPLYm/GvkaQW+sH6zaR+0GiP/qIkM4
2pP9cFDV88kZwlWp/5gbBAZgn0rFkBXxb/m6l3dWLxiAtNKYgRbi79I8zy3L
JQfgdM9NX0S4oPrbiXmKA8BuWHl2XiINj4baX3zRGwD/cOdE63ga0tziD/SY
DICfk9n5x6TfUqf/G6SPDICMT9rYMOnPOyJ14rX2A9BLh7KtYmiI2FzskhE8
ADmyxgFCpN/rt1IDnpEDEH2YsUL5JslrtUnLPfEDwC9xPEk/koarGup7uekD
oG9dYOxG8sJPp3itfM0AJFtbxIWQvCnRpVJ+NA5AgLyX15UQGn7rTS6pbBsA
7dpiPY9gkg/G6nzW3AH4/NXz5d6rNDgeKu5JZg6CSqOKZCXJt8dHKPNz8wZB
t7838RbJvwHzyfdaiwfhvCaStLxIw0lL9fIO+UF421Ar0O9Lg7l98R1pnUGo
LTg9VOJJg/6FYtO4K4OQfzZy2I3MMVd9qXq70EFIvcVTM07yt8p/cpdq1CCo
PtqQ63ya9GeA+ubWlEGYeOdXbUbye1t4schCPAjGOjvnRkm+r04qron4Owhf
wuYLqhwgfq0oVr/qOwSRubb+y7bQ8HT+ooy/gUNAH/11snUjyY/jTuLe14fA
xfhHzrX1NDz8LfvjTNIQHDGOiPioSIPuhvCn+8uHYCao0W+nDA3BdyxWLGN8
gU8CaU3/hGgQ9uRl5oV9gY+tsor2nRTkVR13U47+Ahqiw0+d2yk4JlbUlXbn
C6Ql8La4URRkZjq+up35BTw/ey90+EDB3t5Wz4vvvsDQT/4w8RoKIvdnDBks
HIZ9np2/ncl8sFDJuKkrYRh49nZmb/OgYEAgZWFt6jCk3H1oz3Yl80L/+KHn
j4ch5p1rhss5Cuzu3+m4UjIMI/FLq+PtKSiRGh6So4fB9Vfw/RxzCk4IhDHt
JL9CXWCSynwtCp5x32wfivsKHRtClQPnOGCQovPwe/Q3qK9pkH3kw4GQ2ubO
wLvfgJ59XdVK5q83P05ISaR9A6dEhbgZFw7s0fW7oVH4DYbu1bZo2XNA50u+
dyD1DZ6teD9w7SAHtFTW7BVfPgJ//lotV1XiwOa3AhPq6SOwZ+DkQlEOGyTH
GvUuF49C3I6zlfJk/ky4hU9+waNQdNLqgt5SNkip5vmb1o7CVqqG116csM/t
PMWPo7BaXyYmQZANS5k2Ms3To6Dpeq634XsbyEhOTsjuHIN/t/jfOlW0gQLI
pVdVj8GDM1t00yza4M7bl7zMM9+hRbJt1CSsFbRW7JqTtfsB9bwKvwaoD6Dc
Lca96DEO9AkRj1d330PW40UOhe4/gWPK7+h9oQH8P1u2Kgf/guVGl+yys9+A
m9Z243uxE1B58u4q9stKmE7Rtfka9RsqVo8vnPn8Appd71h7P5gEP8qHR/FM
Nmjoy//rvD8FHkUvuupOxkLdHo3HKOkPyI/Pwu/zMTg9N1GjN3MaRD672Z/b
kYMlVq13PPFkBuo077z1vvwCt/AKBkq/moVt+ptfU5OVuFDwfEZz3V/Ime1a
/6z/DV4vIeZoU/MPXA0ra7btacBjkb/FVThzwGNWL11c9B6vCgnZ5OLIgyyk
L3b0vP6Ae491tOsM8iBDfg1KwLMVG/S3/il05kVn+c6FL1zIxheVI/1yXHmR
1P4qyYQlbJznZvD3sTsvuvsuc3LpcjZe9u8VT5IXL+ou3fNEQpGNR5dkCARe
4kWnUzuffNZi41iDCxImkbzo1v2ulrLTbNyduXzLQBYvytqjfSTjJRtLjHPy
unJ40XZNadMCzMZG22+pfszlReYzHe7l1WycX823vbGQFwlvlJV428TGwZ2j
O/PKeJFB6teXT3rZeP2Cyr2X3vGiw83N2vlCHHzB/ZTDkhFSr2x/XuMhDg41
Hj29Y4wXyX+9vbz8KAffXu19+sQPXtQni18/PcHBRZxQ+4wJXiSwprXK04GD
f+54ZrftHy9SmvlKXlk52Jn50/rIAgY6plEw8fA+B9vGXjkav4WBbnzQUE36
wsHu54SOvlRhoKNNrJQfIxwcqBdt/lmNgR7/CRbWGefg1KmHZgo7GEhXVfpT
6zQHf7Z4e7hIh4Ga0varls6jsPka0YMcUwZ69I5acHs9hU2K7hot8WKgu4u+
r/NypLDDT5s5iQsMlFHBe/XLOQoHbVYqkPBloJXH3uwzd6NwydOSFRKXGOjs
ew2ltRcoLJ/C/r44mIFGd1/tiLpG4d8hC24vjGegp+Z+NVdTKHzvaFCfSBED
7fovuv/re/J8vFGCSAkDDXj6qde3ULi1deE+kZcMdDP44duHbAoLmqQWzStn
oJ9fA5IMOijsrlMWJvyGgaL0t46YD1BYT3lykyCHgTboqTVHz1B4dNbRn/mb
gXYG2DVYy9P4qLnxuj+TDGT9IyshYTWNq/OVOaN/GMgifuZhgwKNEx2/bWr/
y0CnoNl5lTKNdelzfc/5mCj0v4RniSo0vpvvanRCgonWxJ4LTNlNY/4F/02a
SjLRaM/2gPA9NHZ13JJmKM1ERfalGa76NNaTG/+ruoKJGtmLrDca03g88nzu
vDVMVH9D19blII0NHL2kXqgy0bqgi6f4rWmcX3OkJnsbE/1qnpZ9eJLGMnLq
7mnbmajPrPfrDlsa/6QmG25qMVHxh+VPj9vT+N4en8v2ukw0VXIh5aQTjYXu
H11vocdEjxYHZHHO0dhjVuPjfwZMdH3tPqznQmPD/Omt2nuZKHCX5ZCkO41/
yfoPLD7ERN/Oxyte8qaxlb9FjNARJhLnTig1XKBxPaWF5syY6OpNd4XFvjRO
ifybOHycid6Zf5+L8aex0eylfZW2TFQ6tU38aACN71MBBc7nmUgy4qXfWBiN
B2o2d0V6MlF8UIQjz3Uary/oEsrxZiK1kqsH50XQuChK22rMj4nUsy7wL4ik
caPhHyHXq0y0Ks6u/t0tGi/a/lg1KpiJnHVPmGRH09hMwczqeSgTpX1MeRUa
Q+NeRmHB9wgmQuHXDyjH0Xiq1NXKLY6JJlqm5RQTaLzz6crwW7eZ6PyVddUc
wkEJTQW5iUz05FXlriuJNBb1XC88nsxETwvx24o7NDa17VBdlErO79O5RrO7
NE74L9xq6wMmqrZfkj5EeNXGoQL3DMIXBusnk2jssPx2V/RjJmp3NBf3SqZx
trCecP5TJvKOPaQ0Svjn1C/V1mdMVKDEM8/6Ho23Dz60+plN9GwuFzQQvsQ+
GL44l9Tn9nv1lhQav37NW6iSz0RKEWHHogibpFoJexQzUdWL2PlaqTSOjRRV
i31B9LYdDgkl/NG/zKqglIl0Y6vKmwjLnHUKbytjoqUCvHmi92lsd3RZ4S9M
6qlWtTIg/ES/vku8iok8eAOryTyMR9V8hNWqid5Pke7HhFVXr1U7/IaJ8pv+
5Lwn7LOIsvKsJd/XOW39TricJzg8rp6JMiTDTwk/oDFrTLWwsJHoj3nqk/cB
bNjZ18VuYqLl1w5xyPsAjmyIFv7dTL4XNRJTIdz2YpfaklYm+oR9f/6PpR9/
t9rGZqI/TcKXNhI+EZ8SfoQi/naVyZYnnHbVpNDrIxNtbP8YIEZ42P1vV3wH
E11AJycnST2bTj4TLu5kohyaFvlI2GP/cTWqi4lGKLuKfMIvtYWtJ3uYyPj8
OrFQwnPKL8IluaSfuoymDxPWXepQqD5A/HxwxH8F4XBByW6zISZS4FWL/0zO
8/3vGuELw0zEktXTJfM/Fu/3UEv4xkQBXN1r+wgfa11lXTLKRC+CDpvNkPtK
qWwJp78z0ZutSSUPCHNzAgqnxpmoTEH70W7CSvc2d0tNMNGrWAu5z+T+XSK6
hDUmmagzV2aNO+FpB21rnxkm6nm3rCqY+MeoVAl5/mUisaNlwmKE786XknWb
YyK6fjwzhvhPK2+8y4HJQk5KouNhxJ8RrG5sx8dCZv6jMbPEz51H3qVYC7CQ
+EWz0DOEL808sjKfx0J6piU2W4n/m/bFwaH5LERFPN0TSfpjZWrgygMLWMhL
e6kn9zaNK3Qtu/QXs9DyRvv8y/E0ZkYuslJfxkJ3peyD3Ej/Heqe26mygoU0
r06kpJD+TNs6IrNpJYvcztfZt6R/9ai3nxVWsZDrK4a7QBSNQ2UvnliizEKG
mmEyu0j/0+6OOxdtYKFHFgzxXSQf1tWYyYhuYqG/Eo3amuEkf85s/cynwkKt
UnprZUJpLJI/aDmxg4VK6Gsb7wXR2IKPrf1Di4WuqKgluQTSOMusasXIThYq
LJLZqknyyGQ2qZOrw0KZ/2KbKy7ROGrPQcs2IxY6JFqRdc2H3Cf9yiL/GAsF
/bkb/4vkpZ3SU60cCxZaczC55TTJ00L/28szT7CQ7K9MGbYjjY/IuX96YMNC
Np/6u5NPk3xwVLSIdmShrOKLfYMkv1f8vXXczZeFtOzrIi3+l++9+17c9meh
4lfnk/QOEH++FZIsv0TOK+hx7DoTsr9bAS3CQSyU68ij3W5IYy8FN8O06yzk
8zVafQDRuHn/AXUqiYVeT0SsebSBxjOqInF/77GQXKDchAz5fVJYWju+6j4L
VT/yj7q5lsb+XMh2TWeh9XVs+eOryHn6bFojnE3qe6Z15a4UjQMfiC7WxixU
o67ognnJeYXUu9pWslDDDQfx1/8oTDsFN4W9ZqHDGc/sMfn93Kj+L4zzloW0
10UIP5igcEfDCI9rMwvFl3+QXvCFwqoTjaMPelgo26HyUXAThQf0r9cLsvjQ
ZPXVeZ9jKGxjbC27hp8PydhMj/BFUbjTRM1rlyAfsuvvv6YQQeG2w11yviJ8
6L4l1fTfVQpX2ar4fBXnQz0HtkQf8KBw8uUOxaY1fGiBnLL+yEEKHypWvhaj
z4c6LK9lxQtTuPklT0eOIR8q9lAt+cBHYeNy9uZGYz406rRyJx8vhXVqLn9i
HeBD7IqTBYcnOXhza6uKlzkf2rs1XTKpj4NFxvx6zc/wocdLb8mVveTg1wqN
IHOdDzX/Ng7ebcvBRpFdRktu8KHE5TqSI5Yc3Dwxflj0Jh86uqR6+KY5mZ+q
pZ3+RZP1RYNMK/dx8JTN6YTPd/hQZustRqs6B69PYfy495QPqT+TinguzMHx
khoPVtbzofKYmQnDTDZefnlvlmQjHzqU1jIjlc7GDwesShY08aHhDz/Ee+6x
8fPC4Ka5D3xo13xZP4toNm4wbZvu+siHnKq7R+YusDFPlItp6hc+tEVVWn5K
l40dBTNYckL8yEE83vkh1YYbGKE3ds/jR6VqGqv/vG/D6/+eWWI/nx/tzv1x
Ua+2DY/92LA2cyE/0r+9dEltSRv26Cg0VlvKj47tikmzT2zDF7Nrog2V+ZHs
yqOxC4624ahD/bLu+/hRfcRcFLOlFRenrtZ+fYsfrYmciRB+2oJXz+n6Vcbw
o7Ouq8J7UltwlOWpFziOH+k83MZ+frsFOyzNUHuVyI9yWP9Mtl9rwUtjFTcW
3udH/H/XZQxbtWD/EKWVj3L50fapiusdi1uwjvNm3usf+NFQqZZvn+cH3KSp
VXNwoQBixU4t2SbfjMNLPGf0FgsgY6UNt/dKNmN9tZwtmhICaGxjnelxkWZc
sVH+3ippAbQ/sneq6tt7nC8n6P1LVgDlL1v/Rjb2PU4QaFsbv5k8H/3k6mhX
E7ZtPRvxcb8ActTwO15+9h2ecrxrah0pgN7V9lXeMK3HtQdSDs9fIoiOMXgq
dEqrsI2G1qNHsYLo2fanuQaChfjMyLuJT/GCqHR3smbLiwLset9Kd1GiIBpf
f9Ju49kCfFkoqMc/WRCVvWG5nXiXj5M+1i07mCGIpA8dv5F0Mw9zfMyiZosF
kXyufkjYvOfY6KW7z38dgkjsgfkBujId/+fMqg3uFEQhw0cb3aXTsbl8/JJX
XYLoZMVN1+euafh0+It8Ba4gKjn3dVRc5iG+eoxndOabIDIzePj9ikcqLp++
YZPxTxAVnNrCfbYyHtdkr8zt4BFCAZWLdNRfx+JGm9w5MaYQmhH83s5nH4M7
6tuS/ASE0DHR3dtdnkThqTvLqANiQmio7vZkp0kwnjPJWhO8SAglSC2T2hQe
hPmZ4FEqLoQcRNcl8ldfweJnbRYqSAsh7ZcWdjftvfCylb+sji8TQpFtsWEn
P7hi+dZr2VErhJCm3HCBv7s9VgqR/FuzUgiV+obqxV04grdoPjGekRNC//9/
ZPn/AVq+S+g=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Pi}, {-0.3849000814179797, 0.3849001602291641}}, {{
     0, 3.141592653589793}, {-0.3849000814179797, 0.3849001602291641}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.518802454858343*^9, 3.518802645137047*^9, {3.5188028818186398`*^9, 
   3.5188029104897957`*^9}, 3.518803191352879*^9, {3.518803842044024*^9, 
   3.518803846804399*^9}, {3.518804321707108*^9, 3.518804328779896*^9}, {
   3.5188048501000357`*^9, 3.5188048952442102`*^9}, {3.5188056299333344`*^9, 
   3.518805640177656*^9}, 3.518805744931652*^9, {3.5188057807327433`*^9, 
   3.5188058123294888`*^9}, 3.518805865879992*^9, {3.51880593381909*^9, 
   3.518805942733185*^9}, {3.518869738546055*^9, 3.518869759767953*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnAlwXtV1gB+2vLAkIZANAsFJgGBCyMpSSiEJLYFOSqGZAunQUJekEIYl
DSFph4FmGAiUgSEwTGgn7GazAdsY29h4w7uNF1mWZVm2hGRZqyVblmxttszt
+c475/lJfu//RUJmyEw1I+l/57/vnHvPPfds99z7dxN+ccNPbp7wi59eN2Hc
934+4Wc3/PS628ZdfOvPBTTysCg67IYoiurGRSXyOcjH9B9+fsqfwZ/H6r9R
oa+vL6R/ent743bXxO1G67+S0NraGm655ZYwefLkcO+9945Q8OhwwQUXhLa2
tuT1m266KaxZs0Y/X5XGMCo89thjYf78+frVrbfeGlasWBE5mqamJv2O38sv
vzw8/vjjobOzU9teGaOJRoZ169bpm/Irb/J3dHj44YfD1VdfHWpqarT1Aw88
EB566CFHPHPmzHDzzTeH+++/P5x77rnav8bGxiGI9+3bF3bv3s2vIObv6LBn
z55wyimnhPb2dm399NNPw4CRxo8nnnhCwTfeeCMDLuHzqOAMv2zw0C+66KJQ
XV2tXz3yyCPh0UcfjRxRS0tLmDVr1iBE8qVj4kn/Xj4Y5a9+9auEm7fddltY
tWpV5O/OnTs3XHHFFaCLhoevRCcRPHPmzAl33nnnaHvtqquu8vm0Hg9GdUD/
Hh4G9u0PPR17QlfTzrCrtiXsfLdZ/3c2tIW9bbvDvp6+6NKY4lhDI5KWoBll
sP7+/rB///5cciqr0bHhwMCB0NnYHhrXbQ1b5qwJZS8tCKUT54WKqUtD1ax3
wta31oSahetDzYJS/Qzc2/D99nc2h93bd4QD+weiv4679akMct36dyzNws6a
plA9vzSse25u2DxzlZIGxb7uvsOt2UD//tDVvDM0ra8JVbNXh9Ln5+krHdta
w3vvvfedfEJ7TFxh4bZlFdrPrXPXhp3VjWD9uH0Nl9u3NoSqN98JZS8vVEL7
+/ZdmI+409i7p2WXMGp1KJv0tr4lvY4+bd/17t4b6pZuDOtfmB+aSquVKX+V
j7LDXmNa6Uj5q4tDW9V2Rhh91qSpf09PePftMmWWjOH8fGw7/Y3u3lC7eIN2
sG1LwzgD793RETZNX67s7N/be14+ojbrlnQjNJfV6GiYI0bzBcOm3214V78T
In+Rj22HvdErEwL9yjdWhL6unlMNzDzR09rF5cjiOfmIWg3mXdqxuT4ab1gQ
KyYDAjL+s1NYFEmztdvf26+Tt+n15TDhjBRKGNyzqys6K78HTQZDBOizMCX6
qsF21TaH9S8uYNlG38pH0Wiwlo21uoxk6UVfT6FlYMC+mY9iu0/BgQPKNVak
jOWb1hR9MeNnvwvdbZ3RN/Kx1DtH+vplEa7U1SX8P8uatstyYTgH+5eJZZvB
kFK63rBmS3SuwRA4UIh0R1/LR1FnsN7OvcrU1k3bovMMhs6DS7KujNGZKGoN
prIkzUUgo/N9ILLIgaE2z8xH8a7BhGvaaeFidIHBGku3KouEPdFX8lHU+DS2
digvRFdF3zZY9bx1qhh4OiMfRbXB0P0qCQ1t0XcMhohvnLIk7KisL4Riq8FQ
qKAQLRpdZDBZdjq47p1d0ZfzUWzxGRF2rn7iTeQy+huDobtRU+iC0/NRVKVk
YNX/vKFi9D2D1S4pV/3E0/gUCsWwOUWbrsLES1IcgLaowUEvDqFdaTBZEypQ
NP9bl5BdXcqVvq7u6LR8FJsMxuLY+NoSVmv0fYO1VtSpNPD0pXwUFalOV05f
ISujKrrMYNhN0PB0aj6KjQZjoaO1RYCiv09NZakOpGc4KLAgqHCeLjdYS3mt
Wh2eTslHUW4wtD1qk5m/wnsmVgCVK4usEIoNBttdv0PXomjo6AcG626PF5wY
3+jkfBRlPoHIhYxbBCv6R4Nh5retiOfsi/ko1qcmdcPkRSoXV6ZgoGVlFEBR
mpoRPBcm9WqDiTkKlTNiufhCcRRog63z1uqTo1B2CovpWQEU6wyGCKERxJeJ
/slguBKwmFn6fAqFYlhrjfCsfB6ucQlZVKaKjqdx+bTdfxV1mtivfzYYRgCZ
xCMqgGJ1arSsBKzotQYThup08nRScRSNa7eoCOMwOQoRJO2F2JNCKN4xmJoY
cQCxDxMMhjuAv8vT5/JRrPJxi6JBhNGT/2owlj1oEagCKFY6L0SgcIxkkUU/
NhguAnaDpxOLo9i+arM6ujz9ON2Ll2KFXwDFCoN11LWEDaIxWYv/ZjCEzHtx
QoyiUMB7eAb65c4ncxJkyUfXZ/TQ0BeMk0dqnFxXVxfOOecciTDPP/98gV14
4YXhwIE4ghqR0YNlzmYROdiMPo9t6BGho0Mc7Hd3htLSxrB40bth1szN4dVX
ysPE59aFJ59YHV54vjS8/FLZCIDSfNLLZeHFF9aHZ59ZK/9Lw5TXNkqktyWs
WL4tVFS0SkjcKYzZ/6UM9n02Pb7sKH6kfUdgPX36dGdr2LVrV2YU5wNj5WIi
QmKUjpJQfCBsr98dVr+zPcycUakDorcLF4qzu64x1FTvlJBZAs2uPokUD8Sz
eqQEjgMSt/fqQDZv3hFWrawPs9+s0tdffbU8LF5cG7ZubQ/d3f2mKmPxRdrx
n22U0ftKMnhsTYC8YMECk4BDx7vUYOpjyZJD1cSGZ6zwqCeUrW8KM2UCn59Y
qrNSVtYcmpu7GF8s+GN0bFuq2nSumchpUyt07js6ek1jxgrAXZTjk/G8j9yG
R+HkAZqbm+0pWGJjkT0ThGKJcHK+aN1DHNeuaVAR5Bf2N8lUHDjwnimS0bIy
xDFbvV1lke4jdyJznzO0qgEl7EWlHT9Y5rLSJ95XUicPPvjgwb4O4f0Sg2Ep
6pbFnsU465FQD5ukF9Nf3xRembxBR9De3n2KkUXMlojcsJaQH/nK9FFsvdHj
PB03uLdZmZkR9l1PT08oL1fnJEyaNClce+21mRKz2GCERe64nmQ42tu6tTva
LRGHpqYuc2pH6Yg2lreEyZM2qPjz3WcNF2E+igxcg7p8SPKnxMDPPPNMuPLK
K8OZZ54ZVq5cmdVRF4q0lvycdWbbtg4VazpDp6RzFszEUXp1dbuuzTdnVSEc
Nusj1R60bY4Dxs/EHc3KGXl3UOigS8PSXXzbYKpGxdXBWp1gEgAMjYKGmfFG
pXZZYN8Y0kuEY/686tDZ2Ws9GqnpJ7zsVC+zrJRTZ3G6rjs+hR6lxIqBUaK8
onPsO1k5YcOG5vDSi+tVLkUXWMJmpMbOeAA8fTqf9EKDiZXSucFxOt7YVFfX
oYNGSETV/KWBe3r2qaZlwNu373ashKMkIIoQXOCcFsVKH3Gwj0tEbG94Y3ql
2IdNjPNCAzc0dKoMLJhfjXx8wjCQ30NTiuM8HIISwCdu6acNc2/v/rB0SS1W
kCn+roEHBDNWDy0k/XCC5L081P1UPsH5BsNhVU0uyupTqdlEm6Ce31m1HUtm
AWgJ61ApYtVkZo8xNCR2SBLK/0JU5zlXLJTcVdts7UpUSU0VbcpEijG4xMAo
gnnztqoJ7e7e5wQZovvLnyxOEO+MNCpPn0hhRv1MmlQWamt3eYCJDYPVIkzR
xw3m4TApiALU5hpME1QvEVT1J9RYkKDFoMgS8FgU2wJYVkhCjTxw25aGVGdT
QcRbaRa+IsarvjU6Nj0iUaQsQ2HnFQYWtoXXRDQRIpmzjxkGFh7CPZTMkEE5
wW3LKxKjfMyQQa2MB/UDA8tHtelMpfgzThBisIanY/MJzjEYWRjc4YH+/caa
EvWOFr0dj7C1Zc9V1nTlim3h9WkVrProowYjvvb+FqA2O8VPqJHzcWoYenS+
zdkPUxJCB8Rziz5iMF0AYvQJBodBjXiZ5CFPHzNqLDtQs+zq6zs8Mty4sSU8
9eRqNTpODZfWDcsx+dTePEQe9yXUEArsFf62+JI/sqaVm1rVtxY/SHzYGCYi
loTWBajNck6KYmJxSziTUBMVrAZgfWkT4/wXa4rFQn7EKRTXNyQ6l7VG0nEY
1AhZPVj8iFHD5DBnrGxZB9dZUywUuot5U2ojwvbVVQVozDSYJkmIrHv6Ehrw
D51k+v4n1hSXHZHZu7dfopUYpv6KjIgw+eP51GakGFAxdRk54GTCUY4wSuQj
usFguJ2IofQkIUV0xXTxdHRxUhgLdpV4OiqFlqkSgxbdaDD8eIysmKIkxET+
PLQqQOoNZ4KoUPICEq3bVMd6gtXM0pVJucmarlvbqH41Eu/+Er466wsDU4Da
dOchLtL0FbpJ4dQItDAw6HyhfIs1xcIRqzA7Tg29gf4IyfIsSI0ok1QKTz4T
hD2wURZU9LNUr96Kg9WEFMkg18JpUkrpdWvkqR3ypk6ganObqgrs1M8NRsw5
dcpGJeoEMBJYeZ4+mj8WJ4XxwcXjaaxxjn6j4jEi4jn+wrsuDEUo8fbGuESt
r0kySAWoTTMY+WxGLzKfUEPHMyH8yudfOpNlCTBeAkXf1CX1g9tBJFCA2lSD
aZrRtkScGoNgXIxPxvkf1tS9WWTQqeE4so8ZElVTkBr6vX5lnBdN2NMUS4Wo
iegOgxFKookJMT0YZMfZ/dQCpKb4TIipJNeO9XFS6FaXjzsNNnfu1rBsaZ0N
PSTqunSQcssk9Zo3N79jd/2OhBRaHaXH1NxlMNxTFjEj9VHBEU+8H1WclKp2
c9pGWZ9R7YSyRLpi7X9tTckqkA7atasnGRj+DTqgCLVXDeZ7E/DBqSGKODHw
TVTG3daUSAp1SCjjoTprxLc2hkENRe0+nkepYjNUQeHNCLp7rCn6Ctctfor/
4j/4Kj0yn9orBktvmjh7du7sVmsoAW30G4OhkAliamp2JqRwHjBHRUhNNhjb
35r/FfPtpHBykfq62l3R/SnyzBiRqJOyvUZ9OqI4KfZMfVfFUUjPVerFYEYP
OK/Fp8HEiEgm6cn6lZVJ/JAmpZTiXcaxWRlW/U/yo7+/P95VjeOldFP5bDuu
JUNfcScHG63pkIGDEoSjh8eC63XC+0etO4ojyMOOLPCylxORBEDl+Q8ZvY2v
LSkwwV82sgXqp2pra8Oll14apkyZoulT6Vm8UXik1kBdf/31WobjyboZM2aE
22+/fShGywHFCcwjjzwyLFmyJCpCxo2d5rNFEVIG4HzFwLNaccnimPoo+byX
DDb5a/31DHZOl8bbaxMnTgynnnqqvkIRFs/85PQq3uI8WjGTfpo2bVpYtEhi
to6OQgywydqvOlVCLJdZwhM24Hg6vNhEZSe4XRPX19eH5557Tp/GG+zZZ58N
99zjWicfh08PeVenmYU3tg5jNfa2QEx/UOFvL6zRRJGM8jhDkJVzH1GgG157
QvZR2up3giOrJ95jssWPPvqoPo2wKc1ArZ9J86CfyL7wQ6GVKIwCasn5npFf
T/jDMrjsssuK8j0LRyG+p/GONr571ILXww/OIcaMiEUUvWdT0zn/4ZD/7W9/
m1S2ZZH3dg0NDeHiiy9OMTsbr3/Hngh2lh/81Y1TlhQyAs7tjOx/YndQgKwv
UTxJt7K4nYUji9tZeJ3bvnlMhpEf5AajQ+gk33m6Pb0jMWIY5NEqd9xxRy55
byecDMcccwziXHBYrkfBQfe2bIlLXtEtEqINQ60UKgG97777wumnnx7OOOMM
5r8Qz7PQZPE8B/VoG0fs2ehWsLry+OylpY0n2bvpTZURBSh/2dpfcsklus90
sH3uoCh3nTBhAmuh4KD8O/bH8Ezw8sz7GI4Wz9qEccvGUqQuWHqcjICtjqG8
zsLhwzj55JOH8HowXmd0yq9T343Ar7Jyx4lGIms/qBD50+y71atX+55HGD9+
PPKe2Y3TbTJs7ajaFnNZiIS71eTUiCXNkS3K89xdpK6uLrX6Z599drj77rtd
f7MneddddyEnCc0hGJzZ6FpGGcJBr38I1lE2IlIrOLctFvbWiu98kr0yZDtr
ZDbR8SkC11xzTTjvvPPCddddV3A0JeqTMJqzzjorVFRU5OD2/TY2QlAheO4S
+YzN5+1XDJbe+PLAGrvsMOfqwMBAAivJePf0jHZZ+HzVU7rMLpfEIMpPiUmS
/eb0xtuoArQQ8kK0TjNYd3f3ISby0CLxEuJl9TG2LCxjM68A9ybae6TB8G83
LK/WFdje1h09Ye0xoLNfWUtoGRVFVaI6aOHExaoxJQh70sDwgbh94WMzCIXH
5CN6zt7Az5h+/5QwZXIZIfnT1nTHjr1h4m+mh8byuqgAlmcNC/mC1x+cHqY+
tRSv8FlrunBaaZj12OwUy+MsGR+iH/LnsENxT3kqrnkZk0FvbAbs/9sdtHak
PKa/tiFMvedV9luzynk+TN3+s2h3WJ6cPjKbqP/D1+EPVbuxaZj+sPdCouyt
38+ndiWrWubPY2gfonaHymiJNlr55JzwwvPrcK6/lvHuNzJgXzes6WkTCxNv
pc6r0PTxgYEDX8l9tTiJQfvVcUfJqK5eWEkq/f11dEwCoyBJs/Ob4kJMqmvP
/KB6GZ+pY1eJ6i1qdKo2t0X/a9+RIsUVqK/vYFOShIltJNjro/V1PUIgXngc
TJQyK4/b1xRR4tiwT+KFMvt7+zOQ8EOoyq5B+YZmOPY7+5pUKUlh8Ht1eVvV
9mlpJAf5pZs9KzZpSwa0qaI1eswwsf9PKnnPnjj70LppGyno19OYDooIUQU+
pIuKje0RawYBUuC4m56Q2dfdFwckHXsGIT18kNxpzUFrnG6jpgUMbLQ8bJJD
xnvuW1t1W04+u7ljR9mr4gZhHzUIO/unwoAkq0z+gsoYnh4yCiTyoEoaXyh7
U4rxbSHYPqJROGIQBY7l2N6xPoONCWpo6PRSQTjMDtaaNQ1J6OR5UCT4jRR2
lc+4lYtA0nl2LPEp2U/21HkS6W1qTbxw8nkUIfKUxp2SLv/h0IJIu/dKPdQ3
48Mpvg/Ajhhiy96AU0iJr21VHyJ6/uPlemwg+kDgFcnFsrLm6D6fUKs0YF/A
XXI2hyxdM5hMlmcUb9l4sZrDCObRGFT93Wsw3w2jqMFJpdIUVlVQkBS1514e
kmz5bOtQtOKgRXebbA3ZDUsOn9p2MTX4s4pT09CeXVQRRZ8C9qAWLog3mH5t
1IbshnkERAEBmoCnAtR8HGyUI/xpGKuQoAON+F9Grbt70G6YU6OQ1HeM3yxO
TasU5pcazhhGnohJIwT0nVHdDZsU74a5jaSQF6XEYZfZxUklJQp9/cm8s6aQ
bna5fL+XikX0m/w/WHCwpDw5Q1OAlI+A5ecbqU6KegDUAPLxnwYj+Yi2IExM
FxxQLM5e8ZzipKgOrZgWb//5HLBx5CUTv7TWxG/UciCKokGSDRmKgaxM7a18
aj4IrC6rPw1jOUNNqEa3GzXKO1GqlHiK8HhNCuWTXgw0DGrkV3yHPikpECGH
jYjibQbDGiIcYtOS8otku7i7z+r+CpJyw43YunzFhi7eof/3lHAgm6R7fLNQ
94qt2itNSil5v1lWVA2EcNDJoybVC55uMc7BTSoOUCUiFk4DjeMlLPPyh+PU
UJt+2sWnmq1XVCzUbjJqmKvZs6v0Vz47tb6u7qSeZX5xalgzr6j3qeYMgRda
3WjU8N+AiSVknF7RxLi8mqcANecaaxHDxZNT01orkQoKDG9I9UAtl6xjr9Ni
mvCZWBkLipMiJckRMp5csDAfU6366Sc2MBbX8mXbdBtTzIpTQ3EjVBQXL8yn
llUJ5NTwVqhkhtp1Rg25ZG8A/b9v34AXVKqeL43PyA6DWroSyOedMfz3/W8r
NT/tRTEF6rCyckfklaJU2biSf7s4KS0DsgMBPumovqefWqM1Gj+ygbEDRn0s
61vWtFOjdtPLghblU0skjzKgmvgwekJtfZPqIwZ2TUoaSa5RcCO9ONqaUtGC
h8/TMKhBaXAl0Eg9g0CZF9LoJw/jgu1SVRxeSJyuMlhcnJRWAokfQImeTzrx
ATX0FNZcZQPDfuJfUf4ozqdTY58Rc8k5vCX51FzykA0XJ6fm1RtUlPnx0gob
GImSY9M8XBUfVh4GqXT5tk86YRKKVlZx9A82MASfQTE4+ezUuFvAz64sTVFT
Yi7a6aJtpwGjWLLLltUlx36p8mA4MqzIa/Y5zamnakUAl+UPx0nFhdtxw6Ot
6yhauk0hmZjf7xsYtwYwVb7Sm08aBo4YYCt5KkDQpZu8OcEiTz7bqCkvk780
1QmOJDCFmzfvSA5d2GqG/cuLU+Mkr5+B8EJzwuPnnl2rpaHi9ManEeIKFypu
IQhhlp+jduXIQZ4VxaliY7x+y+vpCTUJDvFpOjp6LzIwmW30I4wVBvs5Glap
C3QBgr6IqW5z58MPCeDDUX3NeRkZ24UpucTTwQeRJXKcYVBjI0EcWnJlcYLu
5lNP/0nDTOxI6MtwZFjnG19JsInQqqCiSFGiTtWDC4zOqnyqvqQ5+u7G19M1
oqN0LFSBCI/PNao4dXj7UMVFYTa9SoHqNUczDKqYOXxJ7LDfDkOQgeeKsBCJ
Mqhv2XfsxDBgNAImEc16guFiTv2gfvz3fR/BdYVAFb07aZ8xHEwBuQFIo23p
lleWUTaP6+ul8/j2Xkng93twGCo2D3+Ko7vec3SgVxD6qS+Y5sc4OdkF0+It
1NHJ+T1MLcJFPa14MX5GMjl6WddiZ9o/0HO53ms9UkFI0daZlNShlF3KCFiI
Ak+1XuNnIZyUyPA98yKhve8TUsXkZ6uG9DqrsmW4p2rdM8Dp9MTKidYjXBbx
jJSHycnOtu5x+vUYjVboMAOhw/jZsBoh+kJq6tx8rR3c66wKkcJnZ32B+TH/
g5cNjNEwSc/OvhqfnYXL5DOR2ljaxyqHSfmQHvSTwuQTcKZFZk429HqmH+Ut
E7ducJ//mDO0brxi3RvfVBKz6XCVZiQWdUivyEfgusF9NuEPni06QnMTjIJ0
KWoDD5p3SIISfHB4W0Z6akoMWTwc2CwdPJoP4oytjwo3AgVPmBQf/T1eSbe3
d6uVxELiCGC2OU7O2uSZWlAknZHgofOfrBJrm7nBJWI+sUyobXwMcMEZyuTE
IPsOuV4YZmHkoJH+MUdz/cwf1tI959NtfaDUMY/MEBkyogkZ6wjNRY9WsSL1
x0F8TnOx+KW7fmuUnn60A6VxnfkfdUDXO+qWlvylX+TAgtFEiGi8eIlnGjD3
OUkGuYfrZ4sIuB02DBSeIEcc/EYKVAzpBFyGDfko3DGFGuf+ePKrNfSaLOyO
RAnlxVEQFXio7yGf3l7y8kI9a7cxH4V7qwiVnwO41mB6e4kY5ca1W+yun4Io
knsuxBl0FOnbSwqgcNiOyvokEPMrV0iO+e1Wm4qjoNNoYi6F8uN9yAoogFWm
UCgGPyeNz+BJOA/4MKHkDlor6uzapkza7p2SfeZyO578ICMRvYfow0BBYk4z
h+JA+p05aFJQI1BV+SjceWTry/OcVxqMYB9fgLzpluIo/BAPV5Z4jKi+kPmk
W/NR+Ll8+ODOjF+E5PPAuZbqfBRpf9QzsH4dE0LGLKHma4qjYGtHT8Tt6UlQ
kLz0Q6sFULhrynL2s/h6NdUIzJqF8t64wGgcD4JJz7m5LTmZLG4vUSazXZuP
wt1R37PBIfCj1ERy6DyWR10+CncKiUgJo3nyG8NwXpA5LtraVhyF71ly7u9S
g7FIVTh2ddm1e5koTkpNy/p4XzG5M83li9TG9hQKxTDOGhHmup/l97Vxnx2W
AKlqyKd90MEsT471+K1x7F7OueMp/tv1hQVR+Olb7vH7rsF6LP+xs6bJLlHM
ROEOI9lZv1Dp284VR/Fus93mmInCb6RRnr+4QKfN7/Hzu7E49N+Sj8JdQPSt
X6/ltwn6FY3sJrTmozjFYJguFinKye80dIFC3+7IR+GuG3bHN4L9ZkVWnV9X
2VYMRXxRJGL9zu9nIZ9nGZiJ0vsjZd2JLW3PR+SXGSHcKE9RGha4lqhbkdwf
uX9gZz6W01J0sagE5tI1r2VAUlmrXCHZkY/Fy0QZFOsV7SN03aFCs2p9Qm1L
tDsfi1fzMiJMAgkmURJnpAZFBojkRu/uvZ0pRIrH7w3lABdRPnkzR6mX3Mn8
YtdkqF35nfD6E95AVjGkXzIsGFf0MHZJJGVvPpYz7Q3SImwo4/3KUE42MOlb
7Y7Mm/CpOx/RV1OcxculS6LGPm9gVBCeG9pNxtubj+jr9gYamYQDb8nbJzq4
vVPFkaGJyurPR/RNHwMGWtiM/ymI/MAO2WWmH0QsVtJ7+/KxxRI7WsenhkGU
FF1jK0nYfax9jfrVeRWs8BPiIiYD+YjPsTeZR5aBXlZsFySIKosTfGP0TmMy
p/AWvcKsEAOyikM+9vhq3cP1dSZTpUKYgeXGe0R8MZVIzwhoSlu4gRoHPXLM
UPXCZmnP0iOqDbE0K933m06K7zQ+Sjcu0LSMlMVIX1jWekXU0o06VPQfMwVf
+bFS3D/sNvTh3un9B9yQnhWuZ6HOP0KUe0f6cFFnZUP+1Leka5sh98sP90b0
Q98d1u3n+lrsfA/7CvP0O/rZLt+PDvs/bviNdQ==\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Cos", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"q", " ", 
        RowBox[{"qpprox", "[", "x", "]"}]}], " ", "-", " ", 
       RowBox[{"p", " ", 
        RowBox[{"qpprox", "[", "x", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "-", " ", 
          RowBox[{
           RowBox[{"qpprox", "[", "x", "]"}], "^", "2"}]}], ")"}]}]}], " ", "/.",
       " ", 
      RowBox[{"megasol", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], " ", "/.", " ", 
     RowBox[{"ultrasol", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", "0", ",", " ", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518800861938191*^9, 3.518800902765695*^9}, {
   3.518801220092291*^9, 3.5188012634905167`*^9}, {3.5188016207028837`*^9, 
   3.518801708788315*^9}, {3.518802401115308*^9, 3.5188025085071363`*^9}, {
   3.51880261188013*^9, 3.518802624894405*^9}, {3.5188026942947474`*^9, 
   3.518802786250945*^9}, {3.518803007496056*^9, 3.518803007698298*^9}, {
   3.5188031932857122`*^9, 3.51880319820225*^9}, {3.518803857615345*^9, 
   3.518803900275303*^9}, {3.5188039320928173`*^9, 3.518804033135565*^9}, {
   3.518804072586504*^9, 3.5188041294570637`*^9}, {3.5188041762413397`*^9, 
   3.518804253818017*^9}, {3.5188043583178596`*^9, 3.518804363707491*^9}, {
   3.518804410412548*^9, 3.518804493125285*^9}, {3.518804613864917*^9, 
   3.518804683628394*^9}, {3.5188047390426397`*^9, 3.518804808993059*^9}, {
   3.5188049549961863`*^9, 3.518805066532175*^9}, {3.518805103180018*^9, 
   3.518805172493133*^9}, {3.518805532300807*^9, 3.518805610579976*^9}, {
   3.518805836776884*^9, 3.518805869741126*^9}, {3.518805950355884*^9, 
   3.518806035581214*^9}, {3.5188663299456377`*^9, 3.518866405541645*^9}, 
   3.518871764496428*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl2nk4VdsbB/BjKFIKRUUhKkLD1STJkhQhGRJlzJCZc842nR06ZApllpQp
MoXMY1mIMlUylSTKkFRmKoXf2/P75977eb7vu9baa6+99/E8d4eFi641K4VC
wfCPf/9mw1yvhg7TFOE/eT6dPlCz62vNceHo84hC8fPRe86NFwv2W/VGmSGK
6NE76YXb8cgm219lUS6IwrPXtD54L35/xr/+YdR1RPlVoxN39ATuNouSSIwK
R5QpubOzcZpY13Hr+/ioZERh3n0ubGyE18khHKeagij1my1XxIzxVCWN91Mj
eFkltWjMGJc97Sl1q09FFDJNLIZqik81piwnVachSvPPAJlKc2zSdShiOi8T
UbwnxTSTLXHkjHFxXNRjRLlgvydzxRbf4k9QqOUuQJS2O4EdBna4ozBA5LAu
+F2OktFjO2w0bjwi3Af+8aw00NgeOxutpc18L0QUCSdWvccOOOaEbfBdnhJE
ke+KlD7qjHt79RzW64Mr4t9bBzhjYXekdeMu2MxYYFWnM87MF9jkJFaKKKGF
Z1wdXXCVSGOy0qEyROHg0+bVpOIBFrHyLwYViML+MTfajoZ3JnEnGN8Hi8gb
zYXSsK38b683g+DZk8fW5tPwDL1dudquEjHbVrkYT9Mw+7DPq9vXqhDlcoZE
tCsdSz3vGzmc/AQx52Sq/Z0IfLxRnUuZqEVM8ROxa6XdME9Xxuuj0eCF5zoz
ym54+DNr7N5i8HToTNJlN3ybUi2ydRacY31H/aYb/nxc+vAUvQ4xNeXspobc
cHDRWvMkej2ihN1pT7ztjk3qbHbFRIGPlgn8euCOZdufjd8sAmtabhIqd8cf
flxzc5upR8wW/q/VH93x/j3fQzTpzxCze9dbJ2kP3JPcVrpIa4D9uRtWWeWB
H+VLXpuKBI+dFypp9cDMp/5Ko4UNiKkisYv84IH39Cm0vpmGXPanod2SB/YS
yBvMojUiyu0B9l4FTyx+69ZaA9pzxJS1NxQv8sS/7n1t14wEV/6c+Yo9cVvO
6TjlwueI0uf7xOelJ3ZvWhLdNw1uMQnaOOaJW9icj6yivUDMHf7pE4IMTCW1
rhRTmxBFMnNthAcDqzsrZHFGgLPjVzb7MbC4hdSkyWOw4cZ79DAG7jm72ptz
ogkxd/2wTklh4BNba+JNHJoRM5wz9vNzBhbgzh0oCgFn+mxgb2fgKUrCbs6c
ZkSJjLf//Y6B08fcSorGwJIHTc3HGZirYm87x9UWxEw+7im+lsTDj4Q2mwS0
IIq90+ExPhLXJK8xLUqHnO8Zp58giWlBI9+MhyCnBYce3kPidxcTOYrMWxHl
taBsigqJi9RDtTiY4DqXN7waJA5VZMQaJ7ciptfriks6JFbcrS/O8RGcHPnT
0YTED+fXIWOjNsS8LnPpIUFin6+LAYVkG6IoqJm89CSxYf9Y2+oE8Lqat23e
JF7X2HC58B3Uf3jVqBtE4tGKotTVv8BMHf/eUBLj3JQxo80vYb4lLbkIEtNj
vNxXX3yJKAJsST7xJNYMtn9q5AbOe+N49T6Jd3sZshfGgCOLP+xOIXGv5aEo
o07of7R0UDYTrsdArLdgBvJzttbeOSQO0+ARXc33ClE2fWtNzSOx0sHveQXa
rxDTL6XVvZjEghLv51ZRId9hmS9RRuJZwabjRuGQd5lcKqogcdv6Mr+CfHDf
oWmBahJnsKY3r3oF3uOToP+UxMyFSB6jH9BvV8dwxiS+PH7doGDda8T841F8
pY7Ehz46Ja2SeY0of9Y57n9GYu4Oo5HLGuDj/S/eNsB+NJ6VKbAHqx39dvk5
iWsrjxKrQsCORosVL0ickLer6nI2jJd1betME4ldUzeyFDSBcbXj6hYSa8Wy
qK0ag/p9/21ZAMc0eKjmsbUjyn9DqK4V1lczMW6wsR0xG1o4bNtI7FRhfZtV
HJzeET0O3ndWR5TlENRzZ145/5LEU70KRSsq4AjP4ZvgIntJlWV9cNPo2QSw
65+NPX+vghO9MRN8JGzF5o8HWKmUfgL8c9u337+DwbIzEe0wfkVeT+ivuzAf
ClCVB5OK9dt/5oADHz0jYX0Kr/Mez1dDvcdt2ShY/5LZ3ZNzbeA3p+qYzXCe
p/w7Z/rBj17ePwPXz/SlWk9PgF0EZ4Zgv5T5jH9OrsB4A+wTho0kZktTvTnB
8wZR+C88fQj73XDwoNCPHeCA6rAWuB+BDcJ532TBf98Hv4D7pabPhcZPgTMV
P96H+7lmdL597AKY26xSHe53GMfLuRF38IaLRQfgfGjFVwQOB72B56Fa0g7O
D8+e9C1D8ZC//dNNFpA4Wv2awmAV5K66AVJw/i70XX31sRXyn5cHmjJILOCo
a97/AXIzMdGTaXB/b+3xf78Mzl1kr71H4pT2t61dyh2I+fKz6N8QEltceWbS
qQc+7O3uHEhi8Zn8yTdWHYhCn13/xBfO48bAja8DwZ7rS796kDjv4iGj5hao
H1y4GW1BYucvIj9e9EHeP5UzbEziA55rrz//DrZmucpnQOKSu58fPFvfiZiz
ERfY4fmv+hAx/lQXHKZXduY/Ens5eXk9seyE6yM0fKVIfGLZZn21K1hl9cu7
4nBeRZBsRRzU1584Yc1P4hcWPxhF78Fa/Zb2Pxm4a+zsmkyLLkTRstyqW8rA
k3clT9+ggyPTSgTy4H2mweFr5teFmDYygzidgZXyGn5tfgBWDHKsjWbgRzQ0
FvwJ6p/JLXhTGdhv8dALe/NuRGEc8+LYxcCJjzayqVLBmdhvpxADVxjPKIoz
uxGTJWenJC8D/6h5XNaXDM6mVw/99cSGN6QyNAfAppvL93d64v3rRAP2mfYg
igxL85Frnlj96XItlzNYmXK9zcUTWzn3/x31Bh8aa1O38sQJ7QmuyYk9iCl1
J4/lnCdeHctvxdMP+VuVb0bbPfGH7WtPzRi9RZTweef+Sg8csn+BUnbpHaLs
r780/tkdkx5npUft3yHmmxXd5E53bIfv6wt4gbV3nz3R4I7Vzp/KcU8CK56o
P/TQHXO4ROgdHYL+d4+W+K+6Y/98qYwKx16oj1lTD99fn71mGtXX38P5SP2O
X7timnRTbO3DD4gyLGq+nk7Hw9bDzJSyD4iZt3GUNKXjiykUR+YLyOV/Fveq
07E8/zFlpa/ggB1pzuJ0zLqSPYFl+hHTZ6PM704ajuoIVcXFYO/IuEeyNFzE
OP/7ad1HeH9xyT1+5YIXLR3y+50HEWXzBh5lW3ts8fSidsTVz4hifOugaKkZ
tpzuqq0NHkaU9jj+4eMncdiBcpeMwFH4PjxQ2/NLFbHWlh/1J8cQxYeribQz
RTncfBlLfuCdh11DS0yRrpHjJo9Q8Gj9SecVU5S2IDptdx986EdQdowZUtkb
knO+BmxR8dHT1BwFJhhvF2L9iijrZSu1/a4gLjcWtqKb4KBORma5JeKV0ng1
ED+OKPjyaGSXDRrlSOZtSgEHbjv9cNoGVY3MXCjIAmu/s0pZb4usUhP6mBXg
Y2+KzqnZooot42M73oErNIVvVNkiU46bbFabv8H5yxTTSrBDucPP5cZivyGm
rn4Aj6oD8q0X9GpPhPy/XBH2Kw7oYoozrngIVtdb7icdYJ8EztwsBfsqmqrk
OyC9Tms9qW7wxxj/9xsd0WIdu7Pjpu/w+/pqmPh7R6SWrJw2FQV2r4sb0XVG
QU3t/X73wKm6Ia4Ozuj5tOkW/nSwwtOPQzec0WmVa7eOlX6H79cjpmWJM1L+
Wuzh9xZMvxU2stEFKRzcpblp2w9Yh+3R720u6MALjvmjD38g5rdKS4toKnKZ
it3fkgd5wtzbjEQqyt+60964DPwmcfJ9JhXtdVQaYL6A+os/F3mfUJEUL6O5
+Svkodmi1UNUtNNoPNFo3wScR92mhf00tHmy7cz1cnCB7paVahqKj8RXvmJw
t0H92gYa2nKoyEuvaQIpfSC1OdvAjDtFEr0TqLaHyvumj4YE2SyE2xcnEDNh
fCZlkYaEN/+cF1WcREpla7HcYTpKqvzKE3pmElGqtn1QVqAjEeMP0vNa4Nj8
Zwqn6Eg0te5Ksxk40+XHijYdiUmHvaT5TqJao8DQZw50tBvteFjfAP6TLoCS
6Cjj08ZamZfgUUez0+mQ+6/ui+uehN/Ta62O59CRRPM3HodRcF1i0kIpHcXs
MapZwz6FmPGcbdltdBRXvEuqaNcUPG9+9aw/6aiHPfnolz1gvYH77H/pSODi
ltPb9kH99S3wpiDQnV9c5oFH/vWHX8viIlD8ianYy6pg56+VZ7cTKOFFFQub
HXhocst1RKCpwQLGpCOMx5+H5E4RSHUxY7qPCj5WoDx0hkBzMtGfSjzB7nMD
67UIpBXlUHc1GPqT+UOeGBEo/dGVY3phU6jWz+khuxmB/jQYFKIIqP+d/UDR
gkBZP0+lbokHaxw4E2xLIFaTbb4tmdDPUq5OdyWQoTvf77JH4HfKt896EOhx
OCct7THY90g1H0kg4/o5c69ysN3DbvI6gcokXirtewHj1RIyD24SaN3JZxWC
reDhvvecYQSyvFx5gOM11BPcXlduE4jn1kPRwR6wFtf9sSgCOcx4U6JGwe0l
nlr3CFS/1tXTZxz6/XyGVBIJtGWX/ZT9BFhbQ3NvMoGeG1wcPLUA7ucX7npA
oG00TcMDi+CoYyFR6QQiQpTbty3DeGdzF5UzCCT6dF/t/KppxFQSnGRkE8i9
Z6fc5zXTiHLWzZ3yiEAvJwULXnFPI6WBj5yMXAKRYhwpmfzTqFbvu77SYwK1
H1/aHLMV6m33bAovIJCE/mw4czuYljn8upBAXUED1y/tgvHPfXkmUUIgqdTu
n6f3gM2u9SiWEsi3qtVFdi/4wxyrWhmB3nXWfRH+D+a7p6VxqpxA+36Um609
DOMFhhQeqCCQ/+r8tz/lwDGFR3kqCdQnkn5+WAH6GzsHPoGDdSPQUxXof+qY
ZFRNoI8OgeXZapAn7a5ke0KgwwFe++M0ob/7ynIiOCyJnumnDb6qQ5V6SqDP
5bYiLhfAOvt5s8Fyb0zvGBlCf5DC0NYaAoWPX9igZgz5j9oxL/Aom0bQIXOY
T3ftzg6wwvaTK6JWUE/Q7mzFBFIz7qJb2EK90oi/AfjCPZvRNEfIxTYpB4DN
3y9eGqFCfmJTxwOww9bbL3e7gWVXyRWA3Q13nLRlgIV5PPLAfndKSrK9wdE2
UQng2z2qkt98wXGqtzzACfx992QCYfy4eXsVcMYF5w3OIXC/HGv3sYCLollu
PL4N9bqUD3mw3pqOmIWpKPCggLs6uJlX0l72Dni1C+UtXH+XdnU/cQ/GW+Pt
owceDNfSKU2G671eM4th/76/+tSwkAbjn66y3Ab+xe0mJ5cF9UxKhy3sP/s5
zlxGLuQxUsoPq+B8h90TqS74d/195W/gfm1r3Rf9twTGY6k5MgH3V4KrfrVi
JeTywfWLcP9lz+qT159CP/sv059wPhSDx37U1sH6aro2DMP5ubh6Q/epFvBu
0ZpbxQSyOP1ALeAVeL/GM/UiAjn7H37yvAPcZfT9J5zPAFbjtLN9YDeuKrF8
ApUsZ9HOf4f5eJNKqjIJVHtCYSRiCmxefvb3QwK1eb027Jj750vikvD8DC3O
I/0lMPfB0ospBOL7qbzeaP0MfK82tP28QyDhIz2+9/lmUO1JluWKWDjvbnbz
/QIz8P25dMc+mkAnZ8M/mItAfkWHLxmed+rkh5yrB6C/fyD7nD+BvPZRhbMO
QR6ucifKF86zE1vUVznI8TbeJh8CJX/bw3A8CeOF6z5lZxDo1Rd3VbruDFJS
Hbze6Egg6UGeYW9XyENb1tjpwPvvi2i9uyeMl/Lb4dc5mG/iQIqLF4znuZBI
qsP1/9U2vuIP3pnmZwDvU4WtkV0qMWAD6WbiEIE0dXkb15aA2Txl5TfBfl7a
kcZeAfNFcj/8tYFAEeb/+S5VQ25luz9nLZwXZ50Tk8/+rU85aZQV3oehkaUd
nWCvXLvGKTpybODNuDsL9dk75oRb6Oh26w7/qJ8zaFDBfidvIx0VdPxnEfoH
1tvtW7WA6WhuUEfYm20WDUa7yNyH743XUmSc+cZZREluLNNOoaOwI3xBEgdn
kZKV7pwVQUd5WXy2pfRZVPtQrdSMh478u/FJNo9ZlBL2zOz4GjoyZnUS0rk2
C7//nbjWsNIRl/GLV99vwPiLtd7kLA1d3eB1eGfsLDK3W5db1k1Dou4jrNHl
s0i0MvtJwh0aijlVkUj9C/VtRKcqLw05UK09aihzKCVX6jydk4aUE/l01q2a
g78X1BvCV6hoesGRPYt7DjFla6rTflCRVs4OhwFhsELriwPNVMTJGyqndXIO
1R7+kDvqTUVeH006pQOhf/NM0J9qFzSneiLROmQOKemvHo/IdEGOhdtskm9D
/+HuUxuiXZCRf98i3x3IfYTEX9i5IHmpS2KLmZBv5qLvEnBBv90u0JqaYfxt
TTce2Tsjd26NDdbc84jCPK18ic0J0RTkNJJiwOm33I7/tEMU55jr4fFgT9rE
hQE7dDt5qph5fx6+n18um76wQzms2dss08FUea2Td+zQ56atExIlYKcyk7NH
7NAF/T8RhZ3Q77t7P5Vmi4441/Q08C2gwVcWZiEfrqLFZBWLbxEL8L1fHxl1
0xK1UxPMPR78RIOtK2OfPAzQMVWx5f7UX4gyZ0Jza0Co+fSxLKX7v+F543mb
oquIHxbePfb50SJiZoqvfsBviPnFZexNs/+g2uiaU8fOWOKIqNCL2XlgGWaa
uJUl5mL9pjxX+Acx/+6aXfG1xJRP2UIhVeDYHM7bTy3x9ySJl6WtYP9v95YO
WuEGQfED3BN/EMW/ek5A2Bq78gkuVMv+RUpNhu7xo1dxBwun39YnfxGzdJ+j
qIo9nsi7a6pdC6YMK1ua2OM1l6WPBzVAvTdpEe1uj5WKtObm2v7C+9lkf3WW
Pc63iL3a3g82p33Zvc4Bhz4T0wha+ZdLSJm+dsAqASc2zSsvodrPl3Kbzjhh
8/9eT0mrLiFK27U1ESZO+Fq/+UsLDbB3wyVlVydcdNg/sF0PPHc/1CbVCYuO
tvx6ZLWEmHo2J4oWnfDfM4b9FoFgbqFTx7KdcSknkdHeDM4I1Iqed8GjXr4/
al5CP4npIuxUvGU6/FDemyWk9OvYTgduKvbqza2/2buEzJu4hYdFqFglZ/Sj
8lfodzUpMFKh4g6Ny5tLOZeReYO+h1EoFU/dPhl8V3UZKVVuKnPhpWExNu3X
QRpgTVbCbSsNX/AwFXA/v4wGPwaepu6g4Qqza+m6BpC3XuM7/R8NXz9QWrvW
Zhn+/t2XbK9Nw+s7JH97By6jFKQukxJGwzL8PPYWjZDLmFwO/UvDGx9X5z5s
XkaiTXtvlrHR8aKazeTYy3/rUWHt4qLjJq8aV5ceqFesLxvZQsdWw47Xvb7A
fNpzFpaH6DixuDkmbs0KohxsfFxnS8f+59ze9nKvoNrqYPn1LnTs+EVUcDvf
CrxfXqVousHfj0KeyWmCK0j0y4GRJF867vHbnVMgDbmHTEz8XTper3sDt5yD
8Y6mvn//nI7nv+1jXa8LTk5dp9xGxx8C3qvoXFxBzNyeooQ3dJxT+V/LW1Ow
w5ZToh/o+MyOwa5hF7C+yotrU3TsM6UwvhwJjncSdBEgsHXImIxyHLjuecW4
IIE1d8a4BCSA4147GIgQWNDw29zaNFjPYYnfbJIELsN3V7aUwPz3jmzMliPw
5O2FTQd7IPdkowsbEPj7lHD93vfQb1gz7XiZwOO6qi6SH+H6qe678k0IPCwQ
37x9FPqnKPGcVgR+n3TMh3MB+mV6D22nEvgdxUKabRH6dz4aoBAE7rYIebe0
BPn41e1v3QhsG+109zcrRYkpcOuk0TUCWxjUzE5wUZSUeBOe1gUQ+Eqwrvr3
dRQlyt7oiGPBBDavHE35uh7qH7G+TQshsInQBq1hPvAezsfnwwlsOGCW1SsI
Pu4pxh5P4Is8c8s928CX6yQ2JBBY/2SwfpcwOKTEb919AuumFbC+FgNvlJX+
mEzgczYsJg1S4EDZoQ8ZsH/xscV1MhSl2u+nZcksAqs37+HC+yA/NFK1JofA
atK65ZWy4OBjDiu5BD5jPMpdfgjqG+XCrPMJfPoWaVVyBNavYdj79DGBlScf
8D6Wh/qj78ZVigh8UvSoba4CeKQyiygmsJJOa022Iti5JiCmhMAnimcd0pXB
n3wicssIrDAcVJ+qAo6bLU8rJ7A8/7atyWfADX+nwyoILOeh8vyuOszHEhp5
uIrAR7PebbujCflryvQc+EivIxGjBXny94sZ1QQ+xMXSEqkNdjCsPfuEwAeP
x4qG64Ll9aUGwLKOezzCLkC/1J/Iq08JfCDx6cubFyF3sZsbAO9/pbMzyBDu
14XnWho1BN63MkL6X4ZcFSVlgWUOkG98jaG/m3PwJ1j6ynrJ66aQF5nyHsME
lop64ONlDi69sd8RLPnsSDfDAvZvtO5oJFhirkXawwr6r9lLZIF37zLzc70K
eX/3H/j9i3denH1Hs4U827LoEVg8KGi/iz24ilSLB9N7DvlYOEL9woMg+P2L
a3d9btN3hvnGffedBW9wCxc6SwWjSnlusGmDgr0CHeoNprOfwXrzNo5X7HeF
8S72MhzBfy3ucIi7Q72QRBYHWKNI5aKAJ+Qqd2RjYT8SWGbS15CwHwo/BPjB
X7WTZ/9eg/r9s7pBsJ9yKZrKU95gQXL4G+x/0OTviKHr4IZLzcrgHsXMgR5f
cCt1JRTu167bF/a13IDxE9P9X1QS2LWfxftpAPjGp4vzcL/5vIwF02/Cen+f
fS8B5+FK6xq7O6EwvzM1SAbOS4FgeXnILRivMZYhXkpgrUpefVok1DcI7xqD
85fIidOsomG82yXvSwvheTdwnDGIhfobeS/dCggcsvA8XPHuv/PGsGrLI3Dv
adeP/92Dftcydks475KxO/buSoR6Dqm+b/A8PD/o1bI2FVzQLd6VSWBW2n+r
erOgP+DR/HIKgXVqP+q15UB+rXeLBDxvKRvCHuBcWC/bEeuTiQRWzB9FGQWQ
b/cmNO8SmPx2jyQqoN/g84knEQRulj/bfLUKcrkZX7fbBN4SsrD58hPob54Y
Eg2D95mkTqlSLdSj2L/nggg8Y716irsJfM7HlMUbnrfSYkWWFqjXynLRIAkc
wX7l1lwr5D5nY4M84PymVUv1vQan127toRHYfpBqnfUW6tWff2u1JvDny33v
lb/A9XO5TGzVIPC6EwaZ5l/BW2cljqgS+LBIJ+HzDfrfVf84eYrAwUMt66om
Yb0rYkKSx+F5caxS/O8XuOTZ+D4pAnt5330gsoZFSamE+W3XKgJnmPG7nFjL
osR80/VQnkLg1ycjjxtxQ96kPqL4h47FVt/siuMF256e5Z+G79dtz9XrBVmU
KE0OGst9dMyfYmD/Vwp8iLqhIp+OFf06jwjuhfGCxyUas+jY1uo8m9x+cDFX
c90DOn4iqXqfOMiiVCtzN/NmHB1bFB55NX4c+q/0j+l503F+Pb9srybMZ/Pg
aKcqHauNdP4udYb6QVPpgHYa9pa+fe0xFerjvi6tb6bhIpraUhYdLFGaGFJH
w0LLTyj33cEC/hoGRTQ8IZDB4ecD89sIh5+JpuEYNU9+rduQs05q+OjS8OCj
bf+N5oHvHd965TkV88/0FA08Bq98vyz5lIrV5SIP9RbC/F/M8j8VU3Fxwyq5
tlLIS+ixUqlUHNg/oVj0FMz5sIj/GhXLbKjT9HkJ6x9iqdKToWJPurWtwA/I
q9lecq1xwcEaEzbyk//mq0rRmXbGd3Z62JhOg2uS8jx7nXFZT/DVjHlYL//d
BBv4fTQrn2t1ZBnyH+UfmlWdsTPbrPnFDaxKlJQp2WwfJ2wZw7wU9x94SWqH
WLcD1iq7py7gzqrE5DGUfClhi21nLVb4PSEfUrwfw2WLbxyQKuEn/+U0+VM/
bHBFTsV2fh8wxw6Zi0U2WCy5e2pjINR7qV69cNwGLwRtuMMbBxbQvFmjdhUn
XboxtK4M6nnN7xfoWOGJv/ZebAuQn+9/ESZijlPf+pY4E2xKFJ4dBpvnNfCi
7Qlzxh8wReGi6x2Eti9FGtFIdiWK6fcsMUMTNKoa2sLJvgrqUYPfMXv0bHcb
Eg5dpcRs4dwqYUpH6rcH1AVuQe6/dM+JSkft8zP668Mhj5fmy/Kjo48NWx2X
oyBPlSZ+ZdDRLwub+I8J4OCQk+yTdCSTzDqdlAP1/o8LC70IFLf52AORFsiT
OXfm33JF265r5m1ug3xBffvJJFeUNmpWseEVODriRUO+KyooDXy18gbqT6s/
S3ztilr1uhYHesFTbleiedwQJcJFL+UreJFm5Bbuhuw5M9h3rFmtRHmKgnSZ
7qiVNfjWqbVgNUe7pXB3JLNkJ3CVe7US81v9wahkdzQ5vVfyES/kKVETnjXu
yLWvVOOwIOS8rL+O/HFH3vmNUWelwbvXzl+geqCPWZlCjnuhvlRq7S0fD6SU
djP99n7IBVTLc8M8EGv8ubLOg5DrnZF/kOWBAn27e00UIB9pb7gy4IEiLoyI
0s+BO+Y9eNU80bTWi+yY8+DPm9YXXvBEumezZct1wAbpXYeveCJ+RSeVv/ow
nhanwQTDEyVIzNsEmoK/qI8J5Hii9EX2xwkuUP+rp1x8FQOtmh89+pQGebrY
EBsPA12dbKodIMBNnY3PBRloz3BYx05PcLg7z9x+Bsp/uWkhnwn92UPnxwwZ
qDxl54lnkZBPbhjc+JCBdq6oXKuLBu/k/uWax0ARJtaVOBb8JkivqpSBbAUz
Dj+5C97FoTXdyECCMRL7SlP/7ceVxHUjDBQ4o+pYnAZWHd0e9p2BZrRtcwof
Qr1IYMfELAO1cmfvzs+GXFz1vAkribyCpEQyC8EeH7vfbyfR2Ii6ycNi8FTh
EepOEumrONxLK4X+4WsVX6RItI8ld3NKJeTHTsV4HSXRALmX524duOXGx2Pn
SaTZe07rzjOozzBkfLhAooqjzmGxjeBNCsLml0kUMZfPGdUM9Zvv/15jTSJl
5wMsoW8gn6MKDXuSKL9NG93shFypSzrUm0RC0jTvoG7IpeAB8CPR3JfC3zd6
IQ9ptcchJDI/03HUrw9yzvcWI7dJ1JY+48bsB0sHVY9HkejhlYMzXp+gvvvC
SlQCifhq9Q5cG4L88L0Hh5NI5CPs6swYAY+1CpSnkuhiX8m421fw3shP+lkk
qj/WLen6DazaMUl/RKL98fNX6T/ANRcVnfNJxKl/ZMh5Gsb/2Me1Ukwi1+KL
O5xmIb+7QSmmjESfeD3MHObBPd/FOSpJpEW9k2j3Eyz2JdKgmkRVr8r7bH5D
f4+FdcBTEu3e+27r1T//7mcpIwKTKCr0l4HV0r/7L57jWUciB7VjXeYsHEqU
y2JtAw0kepdxic+MDTw1TZg+J5HKKlLbZBU42CS98gWJCiwTbhtxgBdM5aab
SLStvqrt0hoOJearQa5VLSQKFu3jMlwLuV3Nwhx43ueP2kVu8MCzntpWEln0
CwVd2ADmzg+wbSPRq+MKjbq84FCpj9/AIRVuf85sBMs9Onr2JYlUDz/+7zg/
jM9fbHIDzF40ZrN/M/jGD5kEcO0+sSTxreDWn763wN6PjLo2C0G/0JVjJmB5
yViuddsh98/Zvwa8kP4Kzi546czJSJiveAenx5wo1JvdU5+H9VGTTuaNiYGv
LEscBssIXRv6sBOcWlGqDdfz9U7J1je7oT+evV21mUQZmybON0pC/mC9niDs
h0WkRGCl1L/9mRNsgv0TWX/lSZ4M1Ge/YNNpJNGHkISZ1H2QPw7+WvKMRPEc
XZJxByDvks6ahfuh789tFiILro8T4q6F88WiGutzCLyYIsJSA/vlzWylHwH3
box4Dfc7dLGSxUYOxovKUfOE86DmMXvUSB7y/Xy7/sB5YZ+TcT6vAI7+SjEs
gfP5I/n9UaV/17dtVzKcN3n7Xh4ZZXCZ886bcB5/jvKpiqpAfZZwpCacV+pg
QDGnGljzq4gZnGfLToew3vPgME3ux5EkEtV+WP9SB/pZ+Ojmt+D62j7+qtMD
/7XZPh4M5/+5jnWOAVhepzjgOqyv8qjiNTMw3+vmXnsSrTpCc3W5Ar4kq3MW
nt/6opwcS0sYf1XbXLgZiY7nbt+saQP5GZvFVD14XySzTW1zARv6DnYdI9G4
0IndvDSwOpL+LUuizHh341UE9A+rW81Kw/qivjb9cAdzqK2xg/fRxoDXqTU+
UK+RMXthmYF+2d/TM78NeaZ/HXcFA4WTaRzXI8DFWiJ58L7cHfKoOjEKzItF
t6QxkH52tXhfHPSH9Khq32Kgoi99s/rJ4E9WxafMGOjsz6FM11RwOrVaXo+B
Bld/N4pOg/53GW//nGGgDbv/PmvPBLcZ3ejby0COVttiNAqg/h2P+NrfnojN
daeafRF4Xlzt3Df4XtyQ+RtcAvVPJr8b9Hui5gcKVs8rwMvLXxtrPdHuT8aH
TtaBW+qFVvw90aBJYteRDnDkK/tKVk/k4fQQ/oAGv7l0w2HaA633zlNw7YHx
m9qHPsP37MT9p+mF78FZ3Y9En3ighPf9rjJDUO+8J7mD5oEuGAjzi81B7vST
8/Mbd/Tt6u5mpQXIOxpZ25+4Iz/3fd5mv8CbG39dz3RHhbGKI/f/Qn1FLtsu
L3e0vsu0dPMqTiWmpXClt5g7atJO1ucW4FSiBH1kylvC975hpIZjCzg4vKtf
ww1xy8lIsgpC/Zah42qH3JCuSOXiwnbIb7yOprG7ob4fHcmDuyAXWrzJ+8AV
TYSsHi8+DPlAio1ZB4EiljX18o9C3rHMblZOoIP06CdZx8Ci0WNi9wnkeUk0
PPEEOHaybcGKQKyS8oeCTkO/zVbellk64m908rmsD36tHrKwio4q5Eq+XDAA
N96Q3PWFhi7nLmqfvwT20z7A30RDSdFB4iomMN5dm2dyN2lI0iK1aa/1v/rA
oWBOGlJY6eJjcQOX5dPVFlyQxTGFzMwYcGsL7x8TB2T34+X8hziwtOX6z6sd
EDXVTIXvLjhfU0P4sT26vubGJ69EsO1lp5glO3S/t1lINwN8cibBNsoW9TAM
Iv6Wg4nPKvL3rJF6FZ2h0wdOel8VpmGKdJzZmwL7wfKtnfeoJshQLE7gyQA4
96XMwRhjZBNSWbx7GDy1WXGh5zLyv0yZ+PP93/zWYo/VDVDN4i2LjGVw2+aa
r53nUWO+SGEfZY0SJUylgGPiHGqzKFzhYQPbjjfwrdJEfS1d969xgGOOWH3Z
o4Z+JQi91eYBZ6mVa2gpoRWtvF2BfODgziWJZAW0mg25Vm/611854nxPDm1y
sODdvRXctC6P2/cAEhKZMzMSAk+JrVR0SSKxzoD8iO1g7fYdyQmiSCpo81Kj
CNg81uhmJg/673i2xp8d4P///72K/wO1fIFa
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Pi}, {-0.006543734254977451, 0.006543733833354604}}, {{
     0, 3.141592653589793}, {-0.006543734254977451, 0.006543733833354604}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5188055477093077`*^9, 3.518805610862261*^9}, {
   3.518805848147688*^9, 3.518805869995208*^9}, {3.518805951625246*^9, 
   3.5188060360332747`*^9}, {3.518866330553597*^9, 3.518866405977207*^9}, 
   3.518871765222024*^9}]
}, Open  ]],

Cell["WHERE TO GO FROM HERE?  HIGHER ORDER TERM IS NOT CLEAR ...", "Text",
 CellChangeTimes->{{3.518803214238988*^9, 3.5188032235338917`*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Erf", "Section",
 CellChangeTimes->{{3.518875770250661*^9, 3.518875771171281*^9}, {
  3.518955653608429*^9, 3.5189556540202427`*^9}}],

Cell[CellGroupData[{

Cell["Erf", "Subsection",
 CellChangeTimes->{{3.51897418593013*^9, 3.518974186208284*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"Erf", "[", "z", "]"}], ",", 
     RowBox[{
      RowBox[{"2", " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"1", " ", "+", " ", 
         RowBox[{"2", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3"}], " ", "z"}], ")"}]}]}], ")"}]}], "-", " ", 
      "1"}]}], " ", "}"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"z", ",", " ", 
     RowBox[{"-", "2"}], " ", ",", " ", "2"}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518875785917411*^9, 3.518875791466632*^9}, {
  3.518878933694118*^9, 3.5188789511498747`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk4ldv3AHDdIg1CJRENpnKVilRIq6tJppBZiFukUFyVupVCRZlCrqSS
KSIqlQgrpQwpkkilMk/nvJvjHM7knN/7e57vX/v5PO9+9lp7vWvvP/YK72N2
h/6QkJCYO01C4v9HXVg0LBaL0eI5LCjqIHiMpx7F44vx0jLW21Daj0rWa41z
xGhmGW+wnbbeKivv/hExKgV7m7d/JbhJPvJbY7sYIybNTIXtBLf1jDXcLBaj
b7e6tmEbQbsrHwr0PcWYEJL47GwLwaS/vu9Z4ypGP9PIoK20WwWDA1oOYpxR
lfVb/Img4/EZGsoWYqTGV7RfpO3mYpwusUmM5VtmqoQ3Ezyokx/zYZ4YcxcM
vfznI8FTTZEBvlUi3Fvzhru4gWDMyMl29gsRck4OODXUE8yc6fdXeIkIHZG7
91/ajWClcDtPhNt+ys36UUdQ7ZFCZUuiCHt4homptQQ/JuTO3eorwmer/kyd
qiGoZVdXsFCOXt/BRzkECW4JLFfInC1C6e2KDxVp214tDFsrKcJOT5v68iqC
Z18n7DPnT+GxQdt0cSXBFj0XQVjvFK5fYHgnooLguQXD5iMvpvD5No/bIWX0
/lvnDFd7TWFJEmmaeELw4sFnVQX7p7BU6wpep63L9ki64TSFO4KYm1fTjlrw
ZIuf1RSOHtxb6/mYoImdc7yc4RQGlp/YWV1MMLcpe4On3BQexBiPgEKCoQ0m
YcIqIZpusC3wySGo6Tqwr79MiBFzZYbHsun8hhJWNT8Vos3NDVlnaa+e1fsp
64EQP3u/Dk/IIti1+6qGRYoQD1nlDD6+R9D8bVv9zQAhVs4s//HtNkHVV8cW
blIRYpuGY0X1Dbq+8w1CjBSFeO+1EsOE9plD/M8m84VYkGx5rSyZYNvsS0k7
pIXYnMpQKE4imOCQNt+OLcC1on+tkq4TnD5SIxfQKEBZ3e4miCU4pKAsk3VW
gEEazzw1IwmmHv7ln3tKgOMz/zkRF0Fw18vsxvxg+ju4DU2E0//7wNqYR4cF
KOVzZOjtRYL7C3bMqbIX4LG3D432hxFs2nZsVsdqAU7nUff8zhB8drRGUraT
j3M73wVNP05w8/LA9bntfFR9Mxpjdoxgeauiu0kLH/VG7nyOCST4yuTo06O1
fLyfEfB7fgDBBtn5f9c95uMCaYnuhUcI/i7xfHXxMh/DTj5qJX8TnC3kn2Gv
5SPLuOq7wJFg7KPs3Gt/8vHoSsNODdpyh6xb1DT5ePlw0KilA0GFj/e0bZXp
+LFolraP4PIMs68PZ9DxmkzytW0IGuxIMfDt4OFH1zNHlfcQPBCzfrQjnIfp
F68NmhjR9X6aePnDOR7+cJpkORkSvPFjXKU6lIc1p8sVgjbT+a5+vicvkIcn
PVzuZWwkqP/BKOukKw8jiW8FW4+g1Lwdjgv0eBinPG3/cR2ChfGOFZZdXMw8
e0xcvITgu9JSu20/uHhuW0tmgTLdH78WD+m3c/G9TsCuXCWCi9Z9V1jygYvr
2brXUhUJhjV7Hht6wcUCFynO8QX0fSDvp3Y5gYvKWzk3R2cT5Cb+G4XAxT7F
Kzc0eRQOqFQP7zLios5hNbmBSQrbcqWsPm7g4uyyzdvuT1BYUn5dvlObixsO
5FaosykM7L6fxl/AxYpVS2bJEAp71rcWGgxOIr/+yvSMXgo/Nq/+VJAwiY9S
G0X4kcIK12B9/WuTOIudu9jxA4UFvaU3yi9NYp5V6tvh9xRGcU1d689MYjbb
vlW2nsLty116+g9O4jPddblmbyh8cewSZ4XhJOKR5hUhpRRmzfuplNo1gQPe
e288uENhohvMNPwxgSx/e+/FtykMz8tgd7RNYJ7N+8LIWxR6m/7dtKRxArmx
D585p1KodnIw8u5zev67K6HUdQozO1kk99oE7k2JeN8USWFG4cx3zwwmcOG3
p9+9/ChMN18f/Dmag0ahfoaRayjUmGPe0BzJwZ0V/LIHOvR+3nurfQzj4IH9
MgVN2hSWWya31J3g4FndwW8LtSjssJ7Uq/LioN6KGseYpRQu2lc5nmfIwXnp
U4O6shTGu+05cX6IjbobayqNCRPD/b1Ctfew0UBwudPkARN/xnmkl29nY1bD
1o+195lo9NjtlcVWNhbbqGTszWEii+MgHajPxuwc027nDCZ6hZmnPlFlY4Dy
vErbFCZuS9R/Ycwaxzr3viffLzJRVCrJtbo1jtK2Oz/udmLiv9MfnApmsvDz
sl/qRgIGBt70kDowyMJR7Sg5Hy4DvdcuuGHVw8KQxQOd8RwGmrudfbKqg4Wx
Dx8v6iQMXFxizfxZw0J/U0aPey8Dn3qPe1uks3CzdZc0t5GBVPUWaw0LFprw
3b2vpDPQ60KTRlveGI5s8p72bQMDb1T2paYfGUU1QX7DPasRLP+1am6hGt0X
ZS+5YZrDqC63zdT+zghqBzDqXXsG8cmfUUe66TFx95p+sB3AX28fL9+4sR/b
ZZZvV4rvw77VN/TweQ/uTwlb7VLWg/Ln8zfqTuvCO2MrI9wud+HqjWR1zvgP
9PIZ15JJ/IkRO5jNZaHteP50fLOUcwcq2BcluCi24PBUh6RE92d8MvFWtk6j
Ab9QacO7F3/AnO99sUORVWg6vDZCR70a3W1Vnn7/OxvVtO+OdopysWz2v19e
n8iCv6I7FdNZOWDQPW3pRWcEm+RB20+p1aA++pJn9LoeInIe+MU9bIQ9WR0f
rJ1b4MKbzlv/abbCTqv50znP2sGRG7TeKbkD4j3bL6wr/QGuc289cHf9CbXW
qjI287tAbv3CN8PJXcBcoXC+Ja0HLqr9yqnK6oETITpe8Yv6oer2+xp+aB+0
/5Cz86kbhNy9qxR3bhuAA6e3DMy0HAFHyz0VXc8H4Y3OpqtvJCnwXd57Zcbi
YdCaVTGYbTYKbpwZfbl6I8Cq1T2SaTUK5p9SWdkbR6Dq8r2Ru3ajkIxupzKM
6HVmXKHS9o/CGffaoXjTEbgktmUnHB+F0PjyaBu7EejlDIjPpo5CVEr+Py5B
I5DZvUDRYXAUFEujWfEPR0C14uhOyagx6Alo4rxayoCFSnx+YOwY2OZwxv3V
GDD3ZNSjr4ljcP7pQcNFWgwQrs1ZUnh7DPTvtt85sIYB37J+jtmVjMGi6i2c
VmMGpFyzvZPxcwx2CKO+bXFmwDy3TZPGBizYyNFjyMczQIL/R35wNwvi895t
UuAw4EBPx3jYAAtsNQL6BicZ8Krx0dZYBgsiR4ZOlfMZcOGuR+v9CRacOHRs
r5MEE8Q7ysU/Zo/D5y5m76k5TBDFBznu1h+HPb8UYhxWMEGo+Xu6SuQ4pJRK
dkVbMGHSttLjrSYb7t6b4S+bxoTwjuLOrTpsUO++q5aSzoR5Xpn7X6xjg0Ge
RaHyXSZoHb/iWmDMBo9InolqNhPs42wdr9uywdPswXnpIiY8auizcj/HBt+d
vcmh1Uzw2z7PhNPKhjrWptl1/Uz4vsFziWYkB3YZSRof1aHAh2cgeymaA78T
5jj4rqFgtHLu9L44Dlj4e2Z7raVgxu7y4eybHLBxyxiw0adA10WhXKOYAy89
rFYoG1Nw4dx7Z41vHOh4mufjbE6B1rtNKerrJmC+Q6RDjC8Fx53k5NV+TEC5
fdl9+dsUeOetTdPsmoCjHkla0XcocOBZq2v3T0ChbZiD+C4FRrdiDdaNTkBI
j1LtQCYFkr9mu26dMQnx3hrz8/MoSPORzHJdPQmFbeNzqRIKak7wNySdnYRA
fYvHV+opeP5OqSrl4iTIRun2tTVQkK9ouDvt8iTYvBD2ajRSEFd2yuVewiRo
xryyqPxIgcsU+1xx9iS03cn+8OszBVQkefe+cRLYng2ejE4KlJJ7nWeociFo
3ZJk7TEKNkcsWxSixgV9UyuRP4sCx2DXzz0ruSCyy1YtHqcg0abZ6o0eF5Iu
d4etnaBgrkyFabgZFxLe+JPlAgpEl5JWS4Rw4YtDumftDAK9p0wlhA1cyPR5
mqitSOAP33OVR5u5YN3yIHXnYgLLHV+c+f6FC9Jeg/8cUCLgvkGXU/6bjs9V
KUpcQqBtVGn49AQXopfGWg4tI1DvN/Z5cgUP6kI40gdWEShyy7g/HsqDG4X2
K85sJrChXZ0vdZ4HPLMP67wNCby0u2+pHMED9xptxz1GBOr2FI1ti+XBLvtL
fQu3EOjZVGEcd48H5dbBOveAwOKFX5tWNfAgzdyEG7eLQHijLNd9CR8id+hn
1uwjIG2WZB60nA8SHVFtCfYE4t8suh2pyYer8VWb9jsQSC9XNS1Yy4czMgkR
o44ESvN0Yrjb+fBhl6q9rCsBRuTu5Un+fHgwXSdY6wABJ5Mws7pKPjxKmeuM
Rwn84PTLvn7Nh8aGlZxAfwLeRdbtL2v5oF7G+q4aQMB/2VKf4k98GC2VjD4d
SOc3rTIipY8PLr0ywauC6Hq85VcdlBGAttWg5KGTBGZYnzSY5i6AO9ZL7N0v
ELgq9VPI9xLAzDUlVpO0ZXFnDdtHALcvVWQlXCSgvE5h3+BxAcQpHvStDiew
dv7T402RAuhReb5/ySUCrm1jBbcLBdDR/uLfx9EEHnsEqBkJBWBrfdjtSCKd
77NR1YxpQuBH892EtBfODVGSmikEXtn5R7FJBE6WnZFrkRfCWM1056JkAkYL
o0R+K4XA9j1RMpBC4HV95rebdkI48V1G1/gWgdYNXxN5eUJwWsLK98sicOma
W5xnkRDqZf47PEB7Y/fP6LclQujwORd/MJtAanzfhetVQojqCl3snkP30zAr
ULtVSN8LgpW77xPovytj4SIWwmKzNa/FDwhwZ2+fXuYwBSnhruNSTwjMp+Yl
v3adAgf2YP5R2jqfvmk0ek6B+3MvRhNtj/+Cd/3ymwK1/o5F/5UQeKOeGS15
fgq67c3mLX9GIG7LNDm73CkwqV4+pPKCgGYgqoxMTMHOpCirt5UEttpee8gW
TMEazU4nlSoCzhuctookRPDzywtBMO2rfMpTfo4IbAOz5JchgdHLS7M2LRPB
yuzIi8GvCFTcPacduVsE+lE+DVJvCNh9Mt6omioCqetPSgdqCcw2nlNdcVsE
TZydh43rCFRnf7PYnyWCg0XJeXG014We9rpVJIKzRv7f9OsJzFtWGqP0VgRr
zqnJn26gz5e/Xo8CSwTh8SpGpJHANmnthHmWYqi3be6M/UTXK4irXGQrhmAj
mdOttIu/1+ZYOYnBw9m3RLmFwNJin5cx3mKQi/prZi5toUN2/+zTYuh4rrT5
xWf6PGQtM5mZKwbLjL0r3n8hEChDanMLxLBPIb9nThsBrVNVdrseiyFp3UpL
S9rJ5u6HL1WI4T+3HfKNtIPH0pKmfxaDQK/5VG07gT/djizN+ioG/zPLTkl+
JdBVY5hv+lMM2WnUsu20bVK/Vl0cEkODxpNjlbSl/8jbs4KIwflwqCKfNh49
1fqKLYaQzd5HNnbQ/flll+cBvhgWnGs/HEz7f+8V8L/3Cvg/VVFWww==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1HlYzHkcB/AOHaKTRo6SZJybRLVd+2ltoZNGniJ0EJ6KaOmQIxkrnpBr
n+RYWzMpR21iE6OPMNKsY01lqok0ozFNzXdqmjJTmd/OPrt/vJ/38/rr/d97
VkIqI9FAT08vTJd/2wVoMoqicLfjj779hgpM1czO04xQeJK+SRWm8x/VS+iD
QxTy2MWBtwwU6DYvLEHSSyHn3p27W/UV6GnNbH8loDCxpqWSryXoLx7gXaqk
8NXFo9oiDUHG8de3lsZSiM6/0IWEYMZb5s7tdVpcdp+jMGsl2Nw8QVYf/w2L
0/Y8+PobQfsnqZM9Z4yh1sqNCk0geD/5uZHlhxGsllsyKqcTjMtf0t+Wq8HT
iUobUb0c1eey8xDUeHDciZt1sXIssfg4tbBrGH9lzZnGEPfhleAlaU0nhrBx
qZ27Y2Qf5qbEZ84PUmEI23iSdW0vZhvezEiTK1H1uUe9eliG8Tlvnd+XDaBR
T8HGHc4yvPi4u/BKUj++U24RrvbqwYed8ybediJomPZXqCVNirOt/JdHXuvF
sd/rv8Z0SfDugrwkkViKdt2nOtO3d2Mnt8rRw0OC6hpV5coXYuxedNEN/xTj
wacz1hbRRGh9qNzDRb8L6ecPv7006RMu8lAsYg92YCk3mTFo2YFHA+R/12YK
8OHmpD6/IAHaRlYUrJ/CR8bl4drgID7eHeZavnTmoUqcs7ezgYdsYfepHmYd
Os5LiZOcRdwUMeOecAsLC8Z+2GfnysZas+yWp/tK4FO68Vzl9yxwF+k7HIlG
yHEZJN7uT2B2/yON99NGuP6zj0tzIg+CStpeh0fzoXWtrdcPx/kQGGZjOHRf
APn8HXO35QjgTKwgx7WmAw7YFjRO+SCEhnB78zU2XeDN/eLyxfETyGfZHuIX
ieHaRLvtbwxEsG/vwvgzNAlMq/7sK64Sg6DDirHtpRQCzkrbiqO6IS7L94tJ
aC/4rzXa4lUjgWcLPU8+MyLgmLtSrDWVAn08R8pa1Q8bpn8zSXDoAXtOcqBR
3gC07h9JPm0uA70Rg/I0kRKCy+6klytk8DXi8WbuHBUwFrqUFZT2gnBZ7PQ5
zCHY4B3qdzaiD3ZHWVk7dQxDbrRrtmdXH0y98Dl6nL0amHck5kGRcqiIuX5j
MFMD+8PnFk9BOUT5HV718vEItMrZzAWTCVRt3unkPTYKrGM2p6pjCKjNfjKs
XfcNLK4qY4RXCTDe+XjYF2ohgHtyZhSfgJnPhHrOVS1k5kq9FjcRqGe1h2ws
0YJD8XqOcTMB18ys+MsVWpDttxqtbiFgMbMmfypXC2bvR5NM2gg0priJbZVa
4FVE7jzXScDfdH6BRSgFpvU3qn36dPt71NMqIiiIay8+py8nUClsYIdFUZDj
ZSF5obND5bZH+QkUbE2t6l2tIDC2jiUxy6LgARw6EKMkUFMy08+klALfnEnG
69UEdpkrGkpvUdD8wjaapiFAz6hjrKjS7dE3OjfpfCF4045jHAranZ2+Cxkl
kDZQdN6wiQJa4JHx7loCC2KSHEpaKbhtcsGT6Nz13Kt8+UcKNqjrRKUUgTWF
rXVHeijgLX5WRdNXgKlBWdAsBQUpb8Lfv9YZkzOan6gooIdEZTENFJDesiI2
boSCvQHul70NFfD/f8Gu//4L/gEd75x7
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2, 2}, {-0.9953222633318516, 0.9953222633318516}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.518875792069544*^9, {3.518878940227809*^9, 3.5188789515510817`*^9}, 
   3.519001831793292*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "residual", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residual", "[", 
    RowBox[{"k_", ",", " ", "x_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Erf", "[", "x", "]"}], " ", "-", " ", 
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"2", " ", "/", " ", 
       RowBox[{"(", 
        RowBox[{"1", " ", "+", " ", 
         RowBox[{"2", "^", 
          RowBox[{"(", 
           RowBox[{"k", " ", "x"}], ")"}]}]}], ")"}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"objective", "[", "k_", "]"}], " ", ":=", " ", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"residual", "[", 
       RowBox[{"k", ",", " ", "z"}], "]"}], " ", "/", " ", 
      RowBox[{"Erf", "[", "z", "]"}]}], "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"z", ",", " ", 
      RowBox[{"-", "4"}], ",", " ", "4"}], " ", "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindMinimum", "[", 
   RowBox[{
    RowBox[{"objective", "[", "k", "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"k", ",", " ", "2"}], " ", "}"}], ",", " ", 
    RowBox[{"WorkingPrecision", " ", "\[Rule]", " ", "17"}], ",", " ", 
    RowBox[{"PrecisionGoal", " ", "\[Rule]", " ", "17"}]}], "]"}], " ", "//", 
  " ", "Quiet"}]}], "Input",
 CellChangeTimes->{{3.518875822016068*^9, 3.518875836854491*^9}, {
  3.518875963041472*^9, 3.5188759687242317`*^9}, {3.518876034070964*^9, 
  3.518876078731024*^9}, {3.5188761504532747`*^9, 3.5188762195878887`*^9}, {
  3.518876250951879*^9, 3.5188763195977793`*^9}, {3.5188767359209433`*^9, 
  3.5188767416872377`*^9}, {3.518877343883606*^9, 3.518877382835367*^9}, {
  3.518877503006545*^9, 3.5188775034689293`*^9}, {3.518879123805606*^9, 
  3.518879125136747*^9}, {3.5189809195854893`*^9, 3.518980920832814*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.09617036414751733985895043588243424892`17.", ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", "3.35214492913221492851588357326401031621`17."}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.518877398344256*^9, 3.518877510703487*^9, 
  3.5188789925943813`*^9, 3.518879133442215*^9, 3.51888755890261*^9, 
  3.518955692208971*^9, 3.518980925277247*^9, 3.5190018398332644`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"residual", "[", 
       RowBox[{"k", ",", " ", "x"}], "]"}], "  ", "/.", " ", 
      RowBox[{
      "k", " ", "\[Rule]", " ", 
       "3.35214492913221492851588357326401031621`17."}]}], ",", " ", 
     RowBox[{"0.07219054755431126", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"15.418191568719577", 
         RowBox[{"x", "^", "5"}]}], " ", "-", " ", "x"}], ")"}], " ", 
      RowBox[{"2", "^", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"Abs", "[", 
          RowBox[{"5.609846028328545", "x"}], "]"}]}], ")"}]}]}]}], " ", 
    "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "4"}], ",", " ", "4"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518887694927902*^9, 3.518887919948222*^9}, {
  3.518887987574155*^9, 3.51888804331094*^9}, {3.518888571204424*^9, 
  3.518888605229465*^9}, {3.51888897320632*^9, 3.5188889899418583`*^9}, {
  3.519003883978326*^9, 3.519003918089094*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt23k8lc/3APCbfafFR4uEKEmyh+Q8lpAtSyFkCxFJsl7btaZI1ixXEZIt
hLIkIyGJIrIUUShJsu/pN31fv7+83q9z5swzM+fOc+8fBOyuGDnQkEgkLloS
6d9fcfhv8u9fzgZSw9Ie/90i6Mrq/qjVNWySyE10QgSVVUgemF/EpujcPGYr
gqRE9Oy+/cTOmrj8Ml8EHdsa/rG971/+zE5jxUOIGJ1tSyvF5m/hv3NRFBld
7yiStsYeMWkdnRJDiSqfTh0x/2fGcRmeI6hnfeL7gbP/xrMPvlQ5gkzc6YR2
62ATio0ZKUeQxbnjGaRj/+Ybc1HXEEf2hwtiOjj+Pe+ZzrrSo8jnXfjli/Uc
DaROhsg/5pIo5qd330L1Pw9EhntLomxGZ5XQCmx3X8FjCZKoHfS47+ZjZ9We
4G+TRIJl3M/fJ2ATFx4wK0mht3F5bMoXsbmqCn1EpNEBo9aiHVz/4leC3wjL
IiW3Wu5sln+2yzHWlEWGN4uDj9Jjj1zv53KWRQGNccbaa+x4/pWmw49k0Xup
c+vBY9ikFxNTx+RQ4PZJ7Z/V2FnsAhOmx1BPD+vkC1vsOJNcpSYFFGL/pL7I
EruBOGQ5qYDEF6wSk03/1WOdruBSRFHby5Wc9bDLWEPYrRTRCSOz21wK2O5M
P6+uK6K8d7ky1lzYNrm62ipKyLftRPBGPRuur1mRt66MhM2/G3+rwSa2rHkf
AvT+R5xIZ+U/33920xSQGPNYV04hNkVXIagS0BfNm0I6d7AlrpI65Qmk3dz7
Ou0yNsmqO3GDQHsbruw4xovdmXD8vyxV1L5N1lORBzsq6ADXM1VEdljrPrEN
W6Tpl0SvKupliUhUZ8J2l5v+zqaG4s6mbzNaYMVx4S7JADVE+7OJ63I7dkPR
L0c7dfSDezd7TgA26fOeRX0NlOo07Jrn8z9rHL+igTSe5bYXeGD3/20rva2B
sm2OxpQ5/Rs/MirUpYEsi9RZ689gR5Xd1jDRRO+IK8wDYtj8l0qynbXQE5cm
es4hFrxepcyHT7WRPL+bZF7fP2d8iRjRRrU9POdPvMfe+XHPAxYd1HDCpdLl
FXb+IinfWge1cW670PoYu5/fpY1NF41UWDeERGIzdXl/vKaHWDbWyAtHsTdy
ztIrGaBbZbl50aLYSb/snM4aIC4H/feCwtiVOmlzbgaI++39Q4a7sX3jLwVm
GyD+LK3+R3TY7be3XmM1RLLqd2QvDjDj8xdl3j5uiGxiJGcGQrGTZrd9qjZG
5MqEyI5A7KlWn+gPxih5cJ73hS82G8sH+zlj1Cb29FS+GzYvvVmi2Bkk3aGY
422O7cpaMJ59BjFwqJtsl8IWWc6ITzmLim+b1Ol+YWogFc8uPsg2RS1VVUbE
ILaQ8PVvTaboy/DOH9J9/+KUGNPvpug/iU/cezqwNzwW34iZoeBO6ys/qrEl
dCzpa82Q0VZnwcg4bPVq7YWhc2glwT8KwT8/ps3Ss0TfeV9Maihid07VfPaz
RL15DHpvZbDpTvva5Fmiitr4rUOHsJ2Cw8VJ55Hb14fpa9uxw8ck/z49j0Yl
e4plJxgbSBni0y2S1uhtp1hXURx2w4tmo6O2qM7cQ1o6GnuwXXWLti0qGqtK
ro3AtpIL7bO3RVErquavydg2jns30m2RGv+50W/22DIiDw4z26HqKxGLAgr/
6t3PNP5lh3I4Pu9K/cKA54t7oN9rjxIsgFFhEHuu7lTboj0Kzc9aGOjFtjnJ
eI3bAdmpXni3px17xqxU96wDEvSeCM98ip1gOnqgzwFlD839zovG5kNf8kcd
UVYxY8sTWWyG8ix/AWcUt+pUYSKBbfbOnkXTGVE02rKWRf/N35jc4eqMbEZi
/BX4sZkEpeaqndG+Hdskn7P8q+/F+Mz4Errnz5vRNEyP91Nyb0iiC8rQlvTo
voEtNKuVdMINCbFqt3WGY+fK04lcdENFb+wE3wZj9+qIzMS5oVrdpPetXthE
CJlv3A0N6C9L1dtiq7Iur9y+gv4zfj6fr4Ctdc3rh487um1xyivoB10D6Yfn
yaapq+g/XrsO/zHsR/TyjPQe6N4gWdhvGPv2ieyLez1QyfniD9c+YFu8PRmi
74HarTnlnF9gj968v7vcAzHZf1gyTsM+GG26EXQNhbra+h46ha2kbHhUwgt9
jrXKqFXD1ksyqNT3QoqPLRp0lLHVnlZbX/ZCc4tnmdyksa/+JUSLvJBtsHZq
+V7sfCVqvIg3IhKkq4/P0TaQtK0uNIn6oM0q+hU9KjbDZvZNPT9k/pGGdzgZ
O7nnOM9VP/R04y+4x2GPnP7RkeSH3FTWridEYBdrTtUM+qGhtmmevivYIRWu
t93IqG6o75iNOvbjRBeNdH/kT1vo4/GLpoHkf6Hw+rYg5JZmxWAzgX3Ee61N
PgjZHd2erDeKTby+LGsdhLQtAspFBrDts5eDi4PQzgr9X5+bsIfY9/zSCkaV
dvN2Ohn/7O6Qpk5B0y+U9IV0aBoo3ekxHxNDkC3lnVBv/pYGirw89ZNbODIZ
yFQeytnSQBJ21Y6MDEfaUu5mY/ewt5fLqN8LRzJjXDFzSdhmNnmrHeGIScto
niME++jKBW3xCFTC+eGF5jlsacr9wLkItH7vo1UNM7ZaImkm6jpKfj6emnGJ
1ECqjf0j+/Mmqh0WYSsW3EQNLKv2f0Pj0X4uQvXMvXVEMEV1vvFMRrESX8iX
EtdRw7WRON+IZLRiEFpBicLWfx26904yao9vEnrkgT28uf10VTLy3H6KkUFz
HVFa5yK0V5NRy39G7VW/1xDh7GLj5n8HXdprb7JHBdubu++pdwrqOUF/W1Ju
DVEeH7gzH5GClK3yXmkexnGBwVL+5BS0PXNC3pMbx4Xcx7QrUlAd/+U9HT9W
UcMfnsG+6RTEIeQ9EpSAnbY7OMUuFZWLRl36OrqCKO0Mx58rpqF9XTY1hwew
+wT5VDXTUIyPApPXW2zLhXOlxmnIoWnyAWPNCiK6NRpVXNPQTiu9L2KxK6hh
e0GGckYaCozfZuYjj/O7Is+aL6ehyWM/8xqOrCBSR9gtNZp0ZPL55SLzfuwa
zWIu9nQkcdgrMYMdj2/8FXRWMB19bep7++LrMiKuD1JDdNKR1krGSbZby4hS
U1IjlJqOntzzSjobih39NU/0fjoSPKk/es9nGTWEPFnnLExH6/F/KZJ22Kv9
dT7P0lHJYbs6k2M4/3BwU8VgOtrzXpE1SwzX5+rjfjSWjqJ8t5v/EMD5jfnx
YVPpyLa5admfDceX83+2rKejHdYHpe9/WUKU/cUXMndSUQg9KXSyF7uqRZW8
j4qmi/o7pduXEGmHIrfEASp6tXLDreXpEmqoOeh/WJqKyAlTBT+jcVxM7sE5
HSr6Jt+8IhOCvXHUl86QioyH72oGeeN6S8tcUSZUJCZ2epzLFo8//oGy05aK
hpsf88vJ4bhG6IiJJxUFGK+qy4stIcL6QpKXLxXt/EI4KwrieG/6GfcAKjLY
ePdYmQOP5z0osBpGRVM3eHoJOjzfeNyLyOtUFMVjvaa6togaxgPv/L5JRQ1S
06qa3xYR5SmFySieiiwbZC+eGlxEpNiA4zpJVLSiFxit8x7n57S95UuhoqRP
TaV6rTifd/1WexoVSTiz9Zyux/G8YfUzGVTUvmS8YliJx6/F4LOiIqdwKu+Z
Quzzlm0zWVSUlSnqYHYHW+nAy7lcKlI64nHDPAaPf3RMpyaPivprax5ZhuL4
oYwUs3wq8tTa8t7KdxERt3d7dxZQEVev1pKNG54/8FUlfxEVFV+I233BHvsT
g+CpYirSmu1TdjDH9VxuxZx6REVjQfsuXDTA48/ZvRQowefHdvG6swau3zaS
3IXNl15S5KKE7VXTbVZKRbUHl95dlsLjpRd0q7BNnpxYuCKC66fNdk1hz6lG
7PTgw/VuukqvYsd2tit57sDu9lcdxBa12mHrzYLzmxM7k7FbflpE+JJwvPN6
qTC2nV9OAXlpAZF4Yx5H4/k3GX52BEwtoAbRYwWv8POmJ0nNBX1dQJRrYc4D
eD1yguT/QvoXEEHb1dyA1/u+9IVi2Fucv/d7fGAhFbmdYLaOaML1hhbvc+L9
YXljEHa9Fo/vS2nzfkhFeWapD2+U4XhD90j5AypS+zb8JjoPx1n5al/mUNHI
tYMztzJw/RRzsYL7uL+2XNkRl4Djep/ZL2Ti/rr9VD4hCsc73GVn8flW8m5a
JgXhelz6ZON03G+FJ0PueOL8HSKVN3B/TB279SD1EnakyLNE3D9CxrzTGSb4
eetyEgVjcb+NXNiWqYvj0n08D3H/WboVyd1XxfW6HrzdjMT9dUMx+IE4ztdf
Uz4YjPuLJzTnoRD2snzpMhn3V+7rVwW7sUuvo3RvKqJrMOMqYcD+GS5tdhn3
l16WTNnGPL5fBYw8nHB/ffpuVj6Hva800uoC7qcl7/tPP2MTwY+KzahoXCxZ
Cj3FLv3qyauCzy/owfRE0TyiCFYfkFfE+/vuSeG2+zgeb/iIF3+eV672CjpG
47h7TD4I4f2u4tnOboPjwtrJP2ip6DSTyDu5s/OIdJcqrIXvj6Rz8tE22jif
H1Hc5tLR3g0z2koZnK8Svn/bCL7/VNLnzZlx3CZzf3l1OvJKKCwN35xDpIsv
2HRL0lHtaK1LyfwcInpsZotz0pFa5KfRLZ+xPb6ZvryF79M3vD355dheFkGE
dTryP5tZuWSB3ehU74bv34a8Und+wzlECR687v4jDdGtIDFtDey9kVflP6Wh
2PSR3LsSON+TMXl3fRrKGhZIVqfH83s7TB4MSUMtzrleCSWzqIHbj895IxWx
PquUrMvBjvh9uWMyFRmwNf8aT51FFPWXwiv9qWigZNxBIQzbrZL1fmUqmpo/
YDJiOouI44IPVJ1T0dagAjnxLdh80n/6X6WgyKcirVzLM4jicyVoZ2UKWpt+
eG5+agYRvlyHD2aloK/WeQHV/djNvIHlPimoXCWnUbUM58c0BIYLpSAj+rv6
ptYziKSncULW6w46uEugg+T/GzX0SxF/5pMQ1819M82O2Ptn/l75mIRW1vZu
jzb6jYjvQuVVDUmodXD3OW7R34iyPXq2JSYJOWXtGD80MI3Xyyg7JZiECg8y
/TE6No1IJyMN4jQTkZjcb7EH81OIZJOf6uYZjxzFg4Nrhqbw+3Zs8LpxPMo8
wPm+49UUaoipLyFLxaNtPEd9lqhTiPAR3Jz+HYeWl91eaKrj8ZNNFfzOcaix
ZvrsZNJP/PmNl1cpjEVmJ6aDjspNIlJys4jy0ZsoTP1XZ43vd0RSLi1I6aWg
Rq2p0zIXviOK/KxMSgwFr/vn2xI9bKUHnvdUKSjg7I/2HEGcv250KOl8MPJ2
HG+91f4NkeJPmFM4A5FT1FCDLT/24DHrdbIv0m3vKGNuHcM2LtVhu4JudrYf
DS/HPqO+j2XhMmrteVOymYHdSqfyaNAVnRx6XTx/FXvj963asktIebo5f2gP
tnzU3Ux7RyTBVZ/1+MooIjG9GtjYYom4z5TEneP5ikhZi1HdyWJQfiC69iQt
dufx01tPyYLB6sUxyd9fEGnGhbPluBLcvCcgz/Lqn0WvC/5Vh82JpOFab2zS
Pp8fSobwLdBfnLd3BM8v8uskvxWEGZiZMTVii40Jf3xkDfz7ZUMXHmE3Lu6i
zbAB89bpD+0R2IVsaTQCdvB2m11goCz29EvlYW4HcDsdn/r80DAiiatlljy8
BPkL2lPJW7B3LhjYGbrA1zQ6wm3gMyLpH5EVXnUBkzGf73w3sDvNv7SpXgbw
s5KjTAzh+uVe8vVXgMy386ZZA/aCCxudmDtUvuwakkjF3vLO+puPO4hwnIz4
oom9ZuudxHYVuHIO96g+HEQkTRH5y4c8QFtr/OCeYOyZqBd/L3tA+K97/vMm
2OQ13ZDHHrBybNv+XAbs/P8O68pegy/tK1fpHT8hUjVj39BRT+D1KG8eOoG9
9dH2ZhdPMOFx3fWUG9tlR2x8nie02Q43ODZ/RKSqX2MfdnpB+VIzZ6sQdvCa
9e/fXhBbmN2ovDqASD7Br/gPeoOLVbDXkw5s/TiXDUtvEGqR/5TtjU0rLVjS
5A0kMnfsLh3s5G6x0CVvGDoyR8Ttww4+ab9xwAfuJBflBbb2I9LEfNNwmA94
nIo6t5CB7ahMaJb5wOk/9mwuV7GZqTGGn3yAyYHPw2w3Ng33M50jvkCWiT8h
7dqHSAMXp5safMFk4vJMAYFtoSIg+dUXpDO0c/i5sauTqMdp/GCKlo6Zo74X
kfI46ESV/aC1auRZeAJ2tKg1u7kfPHB57rbuiP206dMtTz+w6vbumeDEPpSU
5vDADxSvG1+3HvuA3293Cuqe+QHPcQnF3mps7Wbfsk4/WJhm+6V7Cxt5squM
+UFn9o/Ml7bYby6S3Zb8oNikxUhRDlvz02d5RjLcYMmhf8yCvS3WMes/MjjW
B1cfHO5BpN2vTz0QIoOqh6XLvQrsdscOTUky8B1Q4OOOwl4dUI1SIsP6AHdX
tCW2qgzTRQ0y9N+aC6ORxB49HDWmT4ZKlXdyfvTYM/yKW0zIELdY9OP3QDc+
f8Hs5xZkuFwQleFYgp0zY7Dbhgza5x1OD4Via9ON8Vwgw4GtqjRnTLFnbtFX
2ZOBppnvSdth7GNk1xXsYd/1iyokbL1rg4M4v06sf3d1z3tEkvsq7GBLhtSR
yg7xAuyg38IJ58ngmRRPeRCIrR3WYm9GBkMtN2leI+wf6ptDhmQQ39D+lnAA
+1la5+YpMrCUHUxjXu9CpIgcvVaCDN8u0OlS3mGLKScclyPDS54vm0s52KMb
r86JkiHrzfPHl32xCw8IC+0lQ0Bwuv2YLrZa+RSVgwxm0j48FgLY8SpujZt+
IPvduK1rsRPf37wMab/8YFqfXQLdw+acErF85QdtNJNfZa9hf/Iq0in3g4dP
W5KLNbGfOkjPUv2gQYm0LP3lHf68X2u3d/EDv9waS4Gb2LZyCnKGfiDFdq2R
Qxp7LdGuSRb316fxWz/C3yKSZYYo37ovfAz4L/OuNPbn33+ZPvsCB59mmeHX
DkR61OYxgnzB2yb/fQ1g6008tqD4gsb4JZ6ba2/w+2WCt2LBB8iRVBHlAuyb
MUJS73yg5GC7wpwp9tzV6qJ8H+C5dMTS/EkbIj0+e/COmQ9MTP/OEnV/jUj7
DIOCi72BN46//DMf9sU9DCzB3mAgafgyoaMVkd53qWQaeEP1tfLxNVHsx53R
czNecGPFU/TNeAt+/7887n/AC0Rp1ipcLJrw+ZyWOHDxGljliDbvY8HmGFD3
OHwNEtQterurX+Lv822xv6c9YC2ybuX4f9hqh65EXfOAN6zBJ9i6XmCrPAi+
dhX6RZliz92qRyT3yIqV+25w3pC38tOFSvz+kf/uLu4AU/OLCl5NFfj+Pjnz
Kt4eAu68QxzC2B4MJ3QXLkDGp9A3Kt8eI9K9LaxLT+2g8s375tNdJYjkVPAp
RNoGShdc9098zEUkfk5dYz4ToPSI9Ox5eR6RKP6ST95wghjn0CX6I+pAoujS
08Qu1vfOhmZyrTgBKUs8Obd4N/JP1GhzkaEAaWY9oVpfEr3kv3H9LlcCkM7w
qU+fVEMXL4o6Pt3MBlLowTdPDp9BNSz+Hxq9KoCkuPFaQN0eZR3h7i4VrATS
rPnTwGl7FGlQ2pnxDvtbkfxQigM6c2f0jfehp0BqTP8c+d0RzQjoNooOVQPp
yJxEnp8zOqCwtzRBvR5IHEviWnZuiM2yqjh4Fpsv6JvkqhuaDzIsdL2HgPT4
iGRu7BVk87XRaH9AA1CaeDpDzd2RuMiy3p8PL4CSTE4n+1xFryus1R/faAIK
3KdpirqGlJrFXh4caQKSX4XaUMs1VNa7qnJPrhkoV+d66eg80Z3VRIgexU4I
f+zh74nsoVXR4cQroCxk3fSy8kL9Bsk1nxKxlczdHiV5IR07O3mjSexeVYHB
115IKmJDFlJageTzcmGbpDf62yYhuWv2NVBuaeRS57yRx+Cf0tuabUCyW2cB
fh/07VebOMO9NqB0bJo06fqgdi4HsXntN0D5Y7Z6KdsHEYJSRc73sSOGU6+/
8UEV0n8PjSy/AZKGQlnAvA9KN0k72JHbDqTnV89+B1/E4eSYp7beDpSbYdfN
7H1RiJ+0cK1hB1CUf/ulXfdFThkdgg83O/D8Ly6Gtvki2a9b+ELM3gEpz9+9
RsUPideazkoUYButWZWb+6EDCY+aRlaxUyrEkj38EOv9YtksvU6g8J6c2Jbp
h5hume5b8eoE0o/j4kUVfojOj4bZ4B6OF1TRirzyQxsGZoN/p7EX2zzaJv3Q
ihJtiylPF1DadUt+rfmhBZGS0lLoApKZ1PMZZjKa2XEujdEJx5sLr7/nIaMp
El2YdRy297G/8UJkNDFV4lpVjd1YyicuQUZj/edMOL9gn1affKBIRiNNdMRF
5vdAYg69sqJGRkNlpYeQ5Hug1J9pFtIlo48Z5tt5zLENmNlEjcmoN4r+j1so
zr99+jLjOTJ671n2raUQx/OP89adJ6O3NhadfN3YoHlW05aM2nQZar3XsfcZ
WeVfIKMW+cc5b/d3AyUxO/KzPRk1ClneOqDbDSST8QM/sOu5GH2CPHFc7Mj9
Vzi/duOxTW8G9t45Gz9c7+mEpbZ4M87X5vr0B89X3sMoE/kLx51bbp3Bz1PS
UL73M3cPkCYrSIH4eQuLzzPKKWOX9zZ54/XkpTLN3nLEvh7lqaJORtnhFR/H
Y3uAsj2gYhDvR6a7VdOJKuzMGnEtvF8ZlswlycM4/zw1IwzvZ6pWZcovxg9A
cnxdF4v3O0nGOuSkxAegnJc1c8bnEcfP4nLXDMdruVW24/OKYXtyZpGC/XjE
KOaHH4pasVbWK8Du1vDo6fNDlM4nW/+s4vEDD9O7yvxQQJ3N+hnBXqBozKVH
Uv2Qbz7reLE2dotzCkuEH3Kn2FZbUrE/dvYFn/FDrq5s2ZUve4FkNWJxVdEP
OZlVRbNNYXPqWUrt80O2EuzWdUp9QHof+GT/uC+y4q3W2uGAzSJ350yLLzJn
uiDleqsPKB4CtCZ5vshopJqe9zOO58/MvbHzRapx9sX+wf1AcvMSj+vwQcoB
nHe6H/YD5fs9OcMHPkjRqTb4cCe22KG4b/4+SIrgMv7EPwCkdbnnccI+aP/M
s1XFxgHc/05BS5e8UUCHWvjCL+yCQF4FWW/UW/iGo2TXR9xf1U8FN73QTYdP
+wWuYgfLuf6O9kIzH9f0GPk/ASXw6u74FE+kXR3a36DzCa9n580jpp4oN5nl
AtkHx3vmD/lzeyJTg92+v97iePClz0djr6H6ZoXs7sBBoMToJYu6e6CdOS/E
bhUMAulAdZW/sAfyoJyq0viA46GCH28OXEXCx8+114gNAclXV3XyxFUUU+a7
lPkJ+5LO6Ze/ryBzapW2q8IwkMSGCr/YX0KVvvBB2AH7h/XR/wqcEYfJK+vh
OOyljVXGn07oBVefp9HEMFAuz/2VdbqIdqj5n87QGQES3aSvipY98q9O9wtd
w5bY+WpcwwKdyhno0Df7CqTWQE8ZNQGYiShxbL6MPcFU/UFPAlKdwv4eD8NO
urLzJIM8TBw5InmoBPvpMZuwDjWIqqYk0dKNAumhykHUbQitHQctqktHgRLC
e+PHf7agueI1IcA4DkQqNcpl/1U4qbeNdvHJd7CptOiFghCItWWeXX39HYjD
QpFC0yHQ70Ua3hzCdnhdyywdCpfuTdcyMUwAJalnsbMuFGJ/t3nwmkwAySul
RbIzDPrjw76qLU1Aw9xnfYXFCLjUu/AiQW4SKNVuQTckbkLF5M/SFO1JsNm6
QaNz7SZsbH69m2GFvbfo4Y8nNyH2YJdfXuQkjPCr69YqRkOF7yPJ2l48njBW
uaUaAxu7He9/8f4JneZprwW0Y+G2dR9FomoKUt2F9M/siofIKSX41j4FDV18
I2KK8RDkl/2H+nUKWv3JvCPm8eCWeJnMyPELOifIuT3UeNB/Rev52f4XaNUW
V07sSQCOoxIXY7ZNA//4xVemOxKBoS5ZWFVkGszWjs7mSCXCptb66PKJaRiR
Cnr80iARpu1abC44T0PrFiaHgJhEeHvH0lyxYRq4RhuWX21JgtjNKL2Jy78h
qyoA+YwmQWT0NOu9sN+gNbE/qGszCYJ2nmkzTsPxS+2wuisZ3KT2aaKm3+Br
vyXj8elkOFhhzv+GfQa4fJifPa9OBsbvM7uy7WdgZsM9jinkDrzS38tusG0W
yqxlKoYmUmCH+Jf/PHhngUnm8wfBjRSwYX/An3RgFiiKwYlynKmw9kZMpl9x
Fvpt+YNey6SC2CklC5sLs8D/+UNmemAqxKlZFLhXzgJJ98LIAH0aDAruq0io
n4V8tk3rv9xpcIhmtK6ydRZ2fih2nhNOg8aGS50rgzjf0WuVOJkGiyfIyxT6
OfAVmjcKDkkDc/m0k/EmcxA3fEcxaCYN8njOn66wmYOo0edG5D9pML/Ef+7D
pTkQiXvfr8aSDjFP8l13Bc9B56spDdifDkiqOvH+Q+wvoWH9RunAti3g7svH
c5A6fH+IsEoHs1l4OP4Mx0uHfno7p8Nc6avaQ51zsIO4ZKobnA5CR/q+PF6Z
g3z0YO1ufjq4s1F/dtPMQ/tAY7BXeTo8/2m1uMg2D2wK61J76tLBpPAbk6LA
PEwp217pepsOUQeXjjaemof8m+z+P2fToYehVmHMeB7Gnlbnya2lg8C3QDUG
q3kQq/hcaEBDhdpcelNtj3mgqDtkzm6lwi8B7qD36fNgP2C1fVKcCvL+96++
yJ2HGTGXo7dkqRDac8ShrGQeDKbXB7coUeG/6xq6sY3zwBvz+ryNFhVsRt5D
YPs8ZMSyu2jrU6FQwVratXceuFi+BDKcoYLylM9u7cl5cH13R3zRigpRJ+k4
FBbmIa6ei1XEngrv78VtEdmchzPiGpeOOFPB0bBggn7bApTJ7ZUp86BCWaHs
4MKeBaBrLf9yxIcKa7SN70aFF0AraiIlyJ8Kt59+fPpCYQHqDg4XpIVR4SPn
xcIytQVoOFSna3+dCkLO83cz9Rag1cotkiaaCtV72CICbRdArJDeqDaeCjRe
qb6uLrj+nzXxniQq6L4VcrXwWgCm+q/yjSlUGKGcMFa4sQAyOUNue+5SQfTj
aw2RxAWoVHrxIzKTCp7SJoo8dxcgZkHm6Kv7VKiP+XqE4eECPteGi4M5VGD6
5iawWLYAY2Be1/KACkawvmOsdgHyR51MIh9SISP1OlN30wJkxNdb7ymgwrfZ
7Rsv3mL/SqWJLKSCpE7W77L+BegRy3RuKaJCQK7YaObXBZAIHkGDxVRo+VPd
Gzu1ACK+7yVeP6ICl+nJtsClBRj0Oz0RXUIF87Ku566kRbDnT94mXEqFXGar
xxYsizD2SHUwCXvabjJXe8ciRPmaenzClq/zTlXgW4QZM0maVexQbtoYEZFF
sNkVXfMLu93tdjCP1CJkfSe31GD/17rnGoPSIkw1u5uex7YRyHdcPLkI7psy
1H48fyFZxnzs9CK+z781HMZe6G7Q6z63CCNvVpdN8PMqH9FTabywCBn+cu7m
eD1RkQMyjy8vwpnCp+fk8Hq7hx1EsnwWIWlpbGwS7w+fwtye2yGLYLnDX9U3
nwpOCUGcQdGLsFObkvM5jwrlP1loLycvgu+0pgIf3u8N9ZQli0xc//sV2WP4
PDTu7Z/ULliEzsPDrw/h84pbLh1SqFiEdrUmkaV7uF8KW5t4Xi1CLiMj1950
KrjRnq1m6MLr1dm96YP7odryS9Hix0Wg5LCGPvrXL5xrCd3Ti+Ck1bCrIJYK
d5wiIxtXFoFuVDH5Cu63kRfbyI9pluDMqb9eW6Oo4OV52Pb2f0tQ/d1GYYKC
94/ld52JwBKIVJmpvg7A9TPLd/KJLUHPbNlRii9+/jaFzmKVJRhp1m11v4LP
Q0AL2lyXYKWw2cveAj9vFSs13mcJDC5rCm2cpUKz7rsls9Al4MoPGHYxwP3n
a1LyPWUJfEXLknrUqRD71n4v/cslqMwNKn9/mAoS9iJ+7R1LYOmoESglTIWu
1Z89if1LYKasEO3KR4UdwtdiBKeXIIpV+rY7FxXS/UPWYdcyCL1O5m6YS4c8
kXsD5CvL0H5G6lpdWTpo1dvKqpKXIe6vzqmvD9Phh7FwPHPEMtBl+k5+u5cO
YsHFWqnpy6C+7335rZh0KP9QW/WkeRnyGMatzjmmQ31oX/LMnhVgiFfXObQj
HfoGuYwcW1eg8ij/1SLzNNCOduj3fL8CLJSWexyn06BOodYqbHAFguJ2v7VU
S4OsOxdcsmZWwPeY/O5nh9PAyeBp+Medq5BNd+J5xDp+v7y0qNJ3XoXIEstr
ESmpwFuUx3uMZQ3kHrg8qGnE7yM/pe+MuuvAwKyq3zCbDC8PH7v5kn4TmLRS
dEzL4uEAc91ErhaJSHAldVUUR8PcK/FL2XokQolL/O6uuGioj7z/M9OIRNht
y26KvRYNJnTXp9MtSQSDjNrth/j7QsRfw4U4dxKx+9Hi1+TXN2Fs8fvfgFQS
4bo5iciTNyD763aesxMk4qxW3od1+SjYW+dykj5qC/Hh+BNvd7YI2LFrbc3t
1hZCYk3/nfxcOLB5R5X1J2whHlx0/8DTHw4bRx/sKb67hdiI+824OzccPuZ8
njWq2EIIz26+OHoiHO5EG97L+ryFmBSdMHhwLQw4LI4tH5elIa5oBTm9nQ0B
hurm4geKNMRXXbpcz48h8GfHGTtOgoawquAclnwZAlNv3Tu+atMQasFd2rNJ
IdCmWphzw4aGkJytLQ5TCIHronsN+qJpiA+Uc5fnIylAWqMp8PhKQ9yhv+tc
4RAENqMD88HfaQjlHSEGzhAEDe1lyremaAj5+nfsGruC8O8aq56HSzSE3Vxk
17WOQPirXvt3kIWWEDfj7b93LBA2b1810ZSmJWLjkn8KbQ+ADeERWt5wWuJp
fl6D1zc/sOSs0j90g5YI6GAeG2/yg7qVW2lysbQEK1k0k5zjBwFvjh81TKUl
OCVXrm+19YN19xTzyGJa4vsX3ba5IV9Ye6b/eKaHlngTN/r6ymcfWDZ8btUs
TEdYGoxeL1/1gtCB0iHlw3REH1fqn90fvYDDNtuyWoKOKNnGQVNU6wUH3K+b
Fx2nIwyiN4+pBHjBmVhDk3hDOsJZZG+f6hYvKGsb1zsfSEekJ16LCtrmCc5q
HCcWe+gIrsm2vBkDD1hoI9W5faQjhic0M1nlPIBiNK84MUxH9NQ50mnv8YBU
2375T5N0BMv1shiJb1ehJThb5gWJnmh/e3QoK/AqCNbJid0SoyfY2PMfzZS7
wycZ6z3C4fREDykxr87VDRxXZTkjbtATgjEvib2EG8w8Z6Mdj6UnnNmD5mq2
uwGdZu1kbho98cW0PiPv2WUQP8ddK1RKT6wba2/V4LiMf+e8MRP6SE9YtI19
dqh3gQMtx+7sl2Agmg+odrhrOUPZTY6bYbIMxOF9MQsDgs6geHo8cFSRgXj7
/pC1zx8nON2f4JBzkoHYEyHLql/hBL6Tv2T2WzAQNVfe7rMXcII3HLndgpEM
xNJyTPUmw0VwN+XaKjjIQHDs2q5iuGQPdvlH04W/MBA33mkzT/Xbw9lV/f2H
vjEQxPyBmUfP7EGRektWYoaB6OMVsc8LsQf6YRZzZTpGgirJuGjPaQ/pjvQ5
5mKMhJnMiwezkhegyWtNJjGAkXhYezqbJ8EWnrbsqr8Twkgc0DvYSPjZQgGP
gmZ6JCMxYBiWFG1jC7E1PufuxzESr7f5FEcctYVzfxYCS3MZiRvn56QY39nA
dPjvljftjASD8tx53h02sCtpzIxuLxPxrEbJb/XSeZAP2/efpyAT8WPU4nPa
ifNg4mHePXqQiSiX0GcK4joPCQadei+lmHB/nZTjqrIENvY61VAtJiJ6Iu+L
IaMlbEYkipE8mYiz43dX1irMYcxHlbTRxkT0uFkWBhw3A5qLgc9dOpmI6t2U
hxPcZsBvUk3+9IGJWO/fHX5rxhTOy4gv1o4wES+461IpeabQO7Nr0m+JiTgc
/fUKLbcpvHae7V4WYCYMprK5jm2chRKLrIfzvszE1kvhymqzxiDTt3+NIYiZ
uP2ujk+9xxieGT3U3R3GTBg/MnJwqzKG1lMls8QtZuLpaTt15SBjGD1Wdzz2
PjMhlGks0cxuDDt39L8TaWMmTvbPvwEZIwht51w5v4eFGBZR++h11wDfs4na
V/lZiB9/IvWORxjA7Zf/3Q0XZiEefOVK33/ZADJq96oWHWUh6qoG/licMICq
/MMxK2osxNtqe5eO+tMwFa7Jn+jKQhyW3yz2MtYH0xPBWq3PWQizlovVqsU6
MLj4jbOxkYWg138RmxGuA3Yl+n3PXrEQSWlpmeLndcB1H59jaRcL0UwzoLjG
oQOhW56H3RlnIUb3Pps/4KUNJc1r9fbsrMQ10e9xSTqngE7fW3bLeVYit/bS
1mY+TbjJ8HljzZaVOPX+vFzKHw3gRCebFhxZiS8bEhmpgxqwW4LbeMKdlZgS
379fhKoBR7dVur8LZyV4lHr/eOzWAPPe2aK7xaxEn+uV9WCBk/DY6rKg4gYr
sVj2rLn1tBrYPZnZm7WFjVA+NcVfJqkGO9g8dzEwshESHHn8LdvVwLuGzPV+
KxtRzXBxNqBfFRR3RG06H2Qj7nbninDYq0Lj6+yPaUZsRHDZo4bQMBXokelP
WM3HcZmzfW9fAkREW8Ral7AR8qiUSzUBQO7r5xvNFWxEQr6yJo0tQOrtcUp8
PRvxpder++JfZTg/Oed2qIeNoNnOlFMLyvAtk13n3F82Iv7dUdE9b5VghUWN
tuYsO7HnzN8LbXyKsG2aI6nRnJ2YOqU2VreiAIe7Pgq1W7MTovu0Hn17rwBW
KR4aw87shKGGxqfP1xXg5f7sG/RB7MRMgx3ruQV5iFXawmWUx06MzElqSvYd
A2E3xPtziZ1wP+t0zqVRFpQNox8trLMTDAwi9ZXZsmAmY6q8SeIg7kZdVhcL
k4Wba9PWW1k5iEO6dEW56rIwE8mXc2wfB0E02RVVvJaBuszAQ+GaHMSPbZlb
tg1Kg1HXcbm9qRxEjFjtUz5+KWA5zvqi7i4H8XU/Z/l9Gil4kftRxzKHg5jP
UL9zZlwSJHz9bKklHMQfjfJRrSJJ4NhXFbOrmYNwCpGTu6AgCa9dpUa55zgI
zxivC3utJIBgOhTHoctJCL/K2Hnp9hFYubqyu8SQk+g3nP9w2voIlH569UDP
lJNIWf71KuzoEeArdXwWg9/IbaEOp3s6xWDjbO43Fj9OwvdTO7DwiEFVzr4T
jHmchJCi8Furx6Lgxv77VV4RJ5Fz5MXu6QhROOBTb6TxmJPwCNzG1mQuCkna
550i6jgJmxrW7ar0ouAxm55I281J5E+QTMjnD4GoxSW+nH5OQlWk21FK5hB8
aVIoUP3MSUyI61KPsB4Cg9T++pAfnESg1tqznzUiwESTf0rgNyfh1H2q81G8
CCAXn56GBU7iaa6H2WNnEfD+oGFts8ZJBMRKTy6qiMD//78D8bXtf//vAP8H
cM4Bvw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwtm3k01P/3x+37VkiFolSUpGihct9JKSFU1uxJliS7IXvaZc9MSqFFhEqS
5L5t2bNmLYSQj92MtfSb3znfv+Y8ztw5597nfZz36zV/vGXtrhg5sLGwsHCz
s7D8/6cSrBn990+Y3PRpUumy5na8srj55uKSMPmsJdBG1G075r7bvXWWIUz6
JMe3rVC34x55Pbuh/4TJlY1Pd76Y2Y77V0V01bULk2NCMTMnXuxAYmC6hpoj
TP4wsuVS2rATjW7UZ6pYC5PB+bm/SzcpY9yR7pM7zYXJpuQz788cVsbW5ZHh
reeEyb/nMjYLmSqjsTuH3PpTwmTPxzvfWaKU0cLsYDLLfmHyU2vmtcFlZbyw
I+NuvZAweUdj8lp37270bYi47FgsRK4yp+Ub1qjg3f982ukFQqTOOwkR3XEV
TOV2OhL2ToisldcRDRVRxTrQE3/0UohUsu6LSDZRxU254p+bY4XIkvpdKmkj
qvg1+rmAhqMQmRV82ERzzT7calSVKSYiRPJ5VFX7ph7AQ26F4ql8QqTBAfJc
WP0BNLydFbyLU4gUjM9ZaFk4gIGl0Wd0lgTJNWkX9uobqGHzHrPl4EFB8pDT
/Ruv2NTxmuiozn8FguS3vzxWF7wPYmsr/2iJrSD5YnvRSb5EDQy98L4487wg
meW07rVRpQYq0a3iEkwEyVW/w5t+LWjgTdG3h5z0BMmzcaf/jp8HPGxkel9E
TZCkxlq9PiFG4POGdFVrEUHyA/udemKYQL+aw8F/igVIgY8z3NxZmrjFfPjM
0EcBMuPO6DuyWhObf0fLN+YJkM5vzhc+H9ZERd7BprRXAiRP9/nKhc1H8af2
bblTiQJkVcqz658eH0WdirZq6mUB8sWbVQ+mk7VQmrwitl9KgNzhW/+p5/Nx
rFu910tdQoB8O7kQ8LvvOFIclloOrxYg9U2/J23l0MY2vutxWjwCpBNHyPiB
U9oYfY622ojOT5rccNlT0a2N7P+Vi1yu4yfnfPJj87lO4m/x9YJpgfwk26LZ
jZ7rpzDpUq/rc19+sj7T3Kog5xQe/5Rel+HBT/LSHaC+8xSm2uy6m3uJWe9g
ciJDSRfPZ2rxF5/lJ8OvrU3b062LDcQV3k5FfrJjaFVPHejje5dyTuEffORM
kinn02QDPCDjtvt5Ox/JtvOH+osPBljYKmF5uJmPlEHa0rdmAyQPu+S5VPKR
u8VfTbzmNcQa4dX2VW/4SIUe8yg9f0Pse2dNhkbykUWqozcDbIyQ788Shb6L
j/T2GY6RMjiL93LTn9/ZzkcGelzOS3E/iyIO+s2btvCRTjdn/YxizqL416cK
huv5SC1H907tlrMo8+REx2sOPlJKy+mxn9k53KuVuNexk5dUsMyTkb9ijDZ3
d091hvGS7zovZ/uXmCIlLzay/hovmdL0a3PDL1NM+D4rVeLHSxZnf2Q5x2eG
NYr5J1+68ZJ9pzfVzpwxQ5V69TQfc14yearseeBvM+QS0jIW3cNLVuZybVyS
tsCs+8ZFuj95yKmv+k8Usi3xy4cPRsR3HvK7aNPsQocl/uxd+1ulnYfUP/m9
6R+7Fa5R7haXrOchR3zspN6bW2Fwo/WV3wU8ZE7OlYByPms0WuW0KTKahxSZ
MMv9pm6DC7EBNxF4SGG2d7lyRbY4LFUyelydh+SuxnqLdltse86l91WVh0x6
KCRRMGOL7wpjVv1Q4CHl/Vib+xTs0K3/BW1JlIe8a7zOcZ5qhwO7W7P2jnCT
j6svHLMMtcevjYpNmdHcJDHt0rrbzQGLzD1UVO5wkxuVMrStoxwwc/BDQuF1
brJ30X7Hh2wHvLmgaV5N4Sb/SedND0064FEZs4GhC9ykXGez+imvi1hw5TpD
Vo2bVFmD87rXHTFNqGdd0k8u8qvPgxCnaieMtQBute9cZOSJg9y3Jpww7OUT
emcbF3ntj2FFm6gz2mnaN0jWcZG6LmIxf62ccZPPSERKPhf58+I9nmvzzpj6
Y2by+R0u0nTtQtSl3a74JIv7y/u9XKT/mcze9TVuGL146Z2xMhdpeOu8xxmG
G4Ycr3kyv52L3Ls8cgNlrqBN390ANRkuUucJ2+Aevyu4UWz17s98XKS24YPA
CjF3fBwglVzey0naPoRHq2vdMVlnt0fLLU7yx8kwydW6HijHr1PTGMFJSltm
i9nYe2Bmrd2mr8Gc5BuL1ndfKB5YqBvfXOXNSX5ObpXryfDATv35PcW2nOSN
uOL4/byeuObM59mXapzkR4ZPSmqdJ963OOkd9JuD5F8dZ/DlojeukbKrDxjk
IP/EJIZqh3rj4++ULf69HORHe9HjAw+9Mdsy65vnNw6yOpa7zLnJG+ushfc5
lXCQHYy7kp8O+yDPhW9zZ6gcZPNFb8plSV8Mc7X1UzjJQd49ZMnm858f9kRZ
JRce5SCXnH89+I/fH9XfWJCnNDjIS9La5mGK/jjDOMfjpsJBSum/SBF180fb
YJ2kt9Ic5L5VWoVfZvyRiFUpODjDTnrxjQgEsAXgygfOBb2H7KR22/mbVw9e
wwD2V74e42ykIt+z2Eq+UHSjWnHZjLCRXOH/xc1Kh6LdLtEEvQE2cmNgw2+l
3aGoYxH4Vr6TjXQ6mhDbYhKKa9/pj/eUs5F8yntrW5+FYp7drN2pZDZy6sI+
7nytMJwoOaQvd4qN5E2vkhy6F462IQ1ybS9ZyfUat93F9CIx4fOvpGRnFtJu
bmOtp95dLOyVF8jatILSN85uyymMwc0ihObZx8voelbhtfaaBIxS/klxjltG
Sd8yjpNyCbhgEPYu5OYy3jF9HaO5JwHrYsrlXnssY2R3Saq0fgJ6iZ7k5tJe
xoffZxbcrifglzVGdR8ml7B9OM7PdCYBnaUvGEseWULaW6ku/vJEbD3MeX/3
viWUKjsgV9yYiBpWzyu1dyzh68WxebsfiSiaMnLAS3wJbZac/MPnErFI5rJk
/e9FrDv46sZ6+QcoJOfTFxS7iH45189533yAb7ffdO4fWMAP0mzgfygJNzbZ
fNzRuYA3tMxSfx9Pwru+ajzeXxfwMBu9/7hhEjqUjz7j/riA4daWuysdknCt
ld5PxagFTLuwyrPzXhJei1lt6ntgAZ22XCiU6ErC0f3/PSd3LuDuza9ZNAaS
0LinjMG7eQHNHVkn9caSUHmHd1yy4ALW236cVVhJwv7y9q8l/fNYXhb/u06G
iicWko8J3JvH0nwejLal4vvH3vHnwuYx49l1HjUnKm46pj/w2Hce43P08ird
qbgc8y9kt908Xl4+bvMgmIrZO+yKjPfPowFx9MTSQypKNqvzP1GcR5Ohh/0N
qVS86Sdq/lt2Ht8GHFO/nUFF24ry+QCBeXRc3H86K5+KYtbbVJ7+nMNbd98Y
PGmgYignS9ho2xzyWMWuSfxGxYnMjkaVujns5+9luHVTsXLhltuX/Dn8PHpn
V/UQFSmxYxn/3ZnD6G0SXev+UHHoQMWCaugc1pWNvt/ESsMzvY+0g3zm8HK2
I58gFw0VFU//ErGdwx9C9vrXhWnYW/FGZt++OVRMf/N4RYaGgWcWtQ4ozqGn
+sekKjkarv1JOKlvmsOgmqupPvI0NPjT8EZDaA73ySAE7aLh2C2JNoJjDoci
GCHte2h4U8J6SXOJwdyD7E6xfTQk90xoag8xULG1eNP+QzQ8T+51PPmdgd4X
nq+XBhou6F27c6qZgYk0z65fR2io7CTQerqYgU0Ks8IbtWlYN3dmwTCPgV62
Qnvvn6ThpYiHUmdfMfBGU3/Iz1M0fJKy3cE0kYHlMfNjOwxoeGinxy3zuwzk
4cj9vNmIhh2FH1+fD2PgnVbRNX/P0NDrBGuzlR8DN5t9+vrhHA1F2k7M2bgx
MD3SgTxjQsMs++j19hcYmDO0UNZoSsMT0+0aDuYMVL4f8VbJnIaDQRvtHQ0Y
KCB5xOGyBQ1DBRxvOB1n4N30mPd3z9NwAy070+UQAydJjmt3LWlYuG2u4fIe
BiZcO5fgakVD4/eH6VfkGRhg5dqhaE3DGc3raz02MHCrlY1MPZOjGusOeYkx
cHTCV1vPhobbrcRsffgYGPVXQf41k7/8Z3Hdj4WBNowNj8aYbOeflkGZo+Pt
it2h/LY0XOH6rz5wjI5Nw+45vEymxe+ZCeqnY8yljezDzPp9myhrQjvoqDL1
3iSNyc05JerhX+lYUj9wU4PJbod5ra+X03GQLdqjgNkPX61B+I1COoobdk2J
MPm5adKLW7l03HFCqk+bOc/Rod7aO8/pyGM8KmXJnLfPc9vUvWQ6Pm4XizBg
5hHIekUsOpaOa3ZkzMgy81p7P/9A7E06Hi2bOdZkRsM8qZXz8UF03H8o0MKK
mbfBq2OhiV50XHAXWVVtzPRr/71nSc50DIv9pLWKuS+5M1ITycZ0/O9xa4qa
IdOvPvvVKbp0DPLNjFh3mumXW+a+p5p0XNG7bNemS8P4W+rBz5ToWGl3I3KI
6ZOyRFjaCzk6frQOvqt2jOlXenVlxno6Cq1J53PSpCEHaSqSzUXHQwvD0+eZ
vj7Re6Ka+2cW5+JZpWXVmH51D5u+nZnFztWgVbKX6dOcz9P8nlks1Q4VSlCi
4S/FhD2YP4vi8Y9Mbmxg7i/o2cRI5iy+HLxeUbmOmW/D+1ern86iZEwP+V2M
6f/Vtk0X78yinuq3lnA+Zt4fJEQFbWZx/IHe29JZKp7mkW/Yd24WKXVdDWnj
VIw3O3DHRmcWd4l/v2I6TEXpP6bsearMesPMTwe7qKh8hDZrzjuLB0u8iOHP
VPSOfZUTsTKDjQMDO2yZz5vCgUKX7NkZ3LKw983rbCoejeweYO2ZwT2r1GSK
H1PRuFaq9eXbGTR1KWn8GEjFgHMpeXMWMyhT/yGBR5mK5PMcdxnDGVz9gkXs
6RYqciygos7xGWw9+7qRT5KKUbS+9EfKTH77o8KQk4pPemUTtDhn0M/thUBW
exJ+cUr3js2exhEnp8EbnknI/ylvd1HaNAqq/bNXupiEBgIV47+SptF9lUnA
M9Mk7Mz+5aAWPo227GvsOQ8n4djsVuM+k2l0jmv6eYc9CVcFZexTYp1GpRsR
mHfjAUbmy1eJzE9hZvmt0EC/B7g08cJsdmwKhTrH10s6PcB+6+eBBR1TeEDl
EuP7Seb5dCStVDN3Cn9c/WrhxfsAjTgf6ZtYT2HDE+u+PyGJuG2dbD1LwCS6
D/y8PGuYgCK3N05VXJzE+mea+/IOM8/fJWnRO0aT+GTjFj19hQSs+r7eTHz7
JHItZf4WYknAS0/Efil0TmC+7OnUisx4fLWN56/R/gkUG3QdV/gTh4r7JhWf
zY5hosGLIZawWLyoFBz88ccYNj/j09nmGIspW4Wb6yvHcPqi3NxW3VhcLbHL
d+7hGHoLc5m/E4/F+Xm3Em2tMZTwXhjneRGDpR8nzo3G/4cKyxNrp0qj0fTw
RNCufaPI9vUuy8XyexiuNd740W8YOyOXnb5lXcfSE2OnVe2HsX0o2G+Ly3Vk
0fvva7beMEo7D32wUbiOged+16VtGkaLkvPCj55FoM/FX1X36oYwI9v5/KlH
4Xjp5g/SVmYI/xzkr/e6HYq6dfW5vFWD2O6p87GrkoK3G+t2RbwdxJ0NC84P
j1KwqrU2eyV5EKN23vIPQH889qM6a/bqILos5GqlffBDjYmKlz8kBzF3R+hk
a4YPKosUP3lzZQB5roiI9jzwQPGz2dFmEv1oOGJTw2/igG+33ik8xt6PfU5s
g2fdL6DBouPg7smf+IBNbbXFbXu8/Vj2AF/lT3xj+u1ANmmLKyPxvYU+P1HU
nL634PJ5HLoWoCTV1ochnxZ3Ve/RQ7fTMUmfFXoR5iZLn0lrw0u6zlgCay/+
VtxKxh/SgX4qB+HW2YO7eA+2vTXWA+NB3+ENt3rQ+g6L1qZiQwB/q30hIz8w
VJ6/7FGFCYik7WjVfPEdw4xvScln2sLbuQrhKrkufNkpK/dI3hWiXqWWaix2
IkX68DHrRldwsQr2fl/fiWGqR9Q0fC6D3JcD3ak+ndixP7XjaJEbJCZkPr9W
1YHcP3oWw5PcwePkTTN6cgeyKWfAs0F3OP33goDL1Q6U29Hu+2XXVeBx2OBh
ur4Dz6FXPmvZVaCoxhxWcW3HH+9u52z/4QHGI5enMoh2zAubKVgv6wkqyTpp
MuLtqPb7U/cfe08YY+fgFSpuQ6fA7PToIU+wavFpHRFuQ1GPxVWVPV6gfuPM
DevBb6h+sOrF2vXeIHFQWb2t4Bu+e9E6oH/WGxpTf6eU2X5DCR/JNLsKb9D0
OO/y+F0rSrZ43lug+sCGrWobxG+2YlaK4BOizgeWO8Wb7pxvxUf3Upet//pA
3pGGff6crXjq8vsG6fO+EM3I/D3Z2YJC96V/FdzyhcsZN5MvZrdgS0FroFy+
L2xdpcl21qQFiUvJ5y7y+wFbxYb3NTta0FdOVVZN1Q96/ZYdj7C0YIIxNfyb
hR8k9eXVK2U0Y9W/Eyv2L/yAL3cblXe5CXfYDoU/2+UPQ/YcuiENTYjiQq2x
+v5QJvFzZS6tCX/aee446OoPgcG0C4O6TfidZnn0fZo/mKr4SljINuGIyw7p
8M/+sHf4TE0ToxFLM7mUOdr8YUJfUBkfN6IiP6Nfgp0CNWyj/Xs9G7Fq/Wfr
5xIUeJH/JSFLuxFvsCh87d1OgQjntBObpRrxWZYNV+khCpCHWOZVfjbgvcXB
Nh09Cvinfzwve7sBjRQ3cPidp8AeAc9SIZUGjFQf0dZ2psCYp6L8n+6v+LtV
yjDfhwLPun/d+x3xFZ32SZaVhlKgK3BNyiOVr1i3v8Oy6TYFhDZo5xr216Pi
N6L8eSwFNNG3hDOmHhd3jIwRVAr42Lxs/gj1eEljf/mjxxR4xdo5cHmiDr/z
iCh+SqVATyovQ/ZRHYrLXFlOfEaB1VrqXG2n6tClk39F6QUFjv9ylri9VItZ
K3OzIUymRD6U18ioxRjhAzG3n1Mge1ud2oxJLXatdrp2Mp0C/VV/dJ5z1WLI
osGZT08oIOG887z5+xosSAx88uMhBXT5rS4LXajBnF1tg68TKBCSFRVUuroG
bZ8fjFWIokCeHt73KalGmaOiAvrXKTAyMflku3s1vpHpfb42gAJS0TJvezZU
ozE0vIi8QgGD3YZlsfVVqH/USCvBjpl/c2jr8cAqbBtIf3rkLAUKPN/+Wtpe
hX+FbVpvajHzFRuYy+6sRNYGzj5HFQrI5Ivy2N+sxBP9d/O7ZShwa8Fre+2v
L0gsPd7tPe8PxdRnB4PjvyDX7D6r+D5/mFFv01U5+gUntnReOFjlD+bX9l95
+KQCuaT/OyAa5w9RGy6FnD5dgbRJnclDPv5Qikkx7CvlGBL30KDPxB+2sy29
c7Eox9fByosRa/zBKm17xUa+cize8oYSNOsHsVoWbS0FZTgXRVvf/9UPliKL
Fg6uKUOBU07b2kP8QEl+nHeqvBQPx9UJ25j4gV21tGS6Zyle+HdPQFPRD2r5
gw8LNJXgGk66zL9GX2B5naNPBpfgvtbpwcYnvqCq32ftpVSCxwsZYr/dfCE5
+kjY9zskdq/K/9nB6Qsd23mizO4Vo0nUzWm5DT5AXHbKLRn9jC7dJ6nUXm94
mVPTrHDiM+613vxHIcUb/FXvSSyxFeFSpbhe5FpvWK+x+inN7yMOdPCcDpn1
hLAQzzK2tgLM+6Hct/WZJ/xX2vrLWaUA03vEPfLPekKR9oPtByfyUYT3SIrX
aw+wNJTK67bPw0rLp0pPta7C2CxDzbv8HR4s7nTJGnKHwMQGFNryDg/7p+wI
jHSH5O6w2iNDbzCXf+ur+KArkFfbXHG6KRubNdZxhym4QqtIZFNY7GscKRBd
vemEC8yeU/vx/kwW5h+Lmqq0dYY9fSl0ybYMHD4Y8+XH9UuQQ3fdPNKVjkKn
Nscp3r8AX9Vkdkkmp+HryzwbF8LtYSKoRV3fMhX5fSZC9njagelqr/RLmIJX
Vg3uTCVs4MxBITbW6gR8N6F/CbabQEirfKtkmSXueuzzE1bJgqLwD2fOnVoQ
QztTmgDc2DYdliKycAkeWvzLlg9RxIC44zUuqiGwlffkY4+tmlgmc+vGI5FY
yIrlKA8NOIMRiZvc90fFg7HQmop8xjk8LlBk2sT/AIKOhbPfsjfFqvkJBU7u
ZLirJSFbsN4SHR23X8xfSYX5/HX7WFbs8MQmX/Pww+nwzm22ZJr/Asr/KNM3
CHwG0r8i9c6LOeCokeX+0cUXIFH23u4/MUd01Yjm2cDIgjfXv1znaXdGvcXv
f0ZVsmGNh59pd6ELKuUpTH/wyIGXxJ7eIqorLsT/HJNfyIWbBtUTUyfc8CNf
wLdS73dADSvc5fvBHZ/sFG/J2ZQHIVr5bwM2XMVIg5zG5IY88Hjy6edg2FU8
mzhQ66OQDwKG+9fya3nglKxu6fYfBfCluK0n/aUntmsNocTtj2D1a9Wmr8ue
WOwY8pljfyEMzk6Wp+p64Z3XeQU90Z/goLI0p9uwF25Vk86J1SqGL5hC2rL5
oMD5D1nB08UgNtKcWHTUB2eDDF+5PkawuOq3biXMB236S402B5JQnG2Sd3rZ
B1tn7zdRm0kw7mJ756rqi9qclgYiCiUwqeaueNvFF5Xk5/X+fisBn0nR4p4W
X0xVK6/zVCyFael/sbKcfih+KubUaFgpZDiEWQaq+uGfyztOtu8qgxm7V/X3
7/nhleCFSr3IMiDFuaTPMO9T/dEVx8u/lwFnZUP+0V4/rH5nrfXmVjlE5PF8
JhX88VCFYtm2vnJYtZjZZqzrj7lti0ce76uA2ZHriTsv++PmkS+k2L0KYNv9
9dbJu/6YuBgHdwYqQOLIQ9mcDH/k47ctZlX/Ahtso97ZVfjjNSmlw37RX2Cn
UxDlUq8/XoAqdYfDlbD71VuRACEKdhgkfOyOq4S++8nf7m+m4Ck7uwNGo5Ug
+GpdEdd+ChZ77vpQRVSB+d3OsIETFNxz/c9eeFAFW2ufNimYUfBZYnXe+/Eq
eEIdV/vhSMG1LxNVFLWqgfH0zn5Wbwre/Wj/NpVWDZ8F1XdTQyj4r0Z597rp
aoh6T/i/vE1Bj+9/c+5r14DUFV79PXEUHBqvUeJ6XAMTV/O71GgUNPv34HUg
vQaMavP3l6ZQsE7EQXFWpxZ6u0xdvqZRkNi0J9PpaS3INJk72z6n4DuVfwp9
87XQv91/bdALCm49VvfSWL8OpjYvn9jGZJoxdVt9eh0ESR1G62cUFLp08fnR
5TrYN35g1/ZUCob6q2wpNKwHsa0CGrceUZB+myVd+WU9jKgGhgU/oOCl5PpN
L1bqIdLd77pwNAW7X9OeSp/7Cv5ctNKDNyioj44y8ZlfYa7q6UuuaxQsbVRN
4WNrgKTuWarHVQru7WfdEGraAB8PrxoPvUBBpUKTaeWMBrATcJPaZ8LsN/Z1
ed9iA1x03XyjmJm38HtW3RNbGmEtZ86ilBoF+Z9m7X2i1wgHynoPnJGnIM89
k40L3o3Qf0eOzX4NBTn82XgNHjeCTmQnvz47Bf8YmH7/N9EI69tdk4o6/XHh
EPsXE4kmkMo86Xi0zB/p8tk5OdAER1zkhLMy/XGMhSPcOroJCmIqjij4++OP
3BwF3N0M68raA1a4/LEr2VxUwrwZHE7PRuCwH7bd5PzrFtYM73fforpV+uFX
G4vGDS3NcGvd2ZzkcD8sFuH2DfJqAe11ubY2k75Y+OeNTVtyC/RMfHn/sdIX
80fO6yhVtMD3Ffp5gRRfzCbfSveIt8LWLZXr03R8McXdqvzwh1aYW3y7tyjB
B5PP82Yn9DK/N+1azXXRB5NO5D0Y5/4Gi11jfGf3+mC0DJ/LI9NvkFlx8xFr
kzeGNL5f9XfxGywMFPhU/fFCW2VB66JD7cAQqUpX2uaJVlIFJ8Qc2kGj/XS5
2YgHmvPY73G91w5RGj5mj196oFFfAadUTzu0yhcZ+2/1QM3oC1kBwR2gJ/dI
4JHEVdw89WlRvbQTtqxqK3j59DIG1h+NoI93Aqd+X0DMsiu2vaoVyl7XBd0H
ykdizrjibYfuzbJXu2D8p03TyF9nnOpa0uOW6Ybx76KfzA5dwuIKtdSWa9+h
4Mt3rzx7OzR/+EHHVa0XjlE+0c4OHsM8P/i2xaEXjH+8sp/10UQh40rr3uhe
uJfV7sjPo4ElIu1eRiO94PZwMTVZUhnFjgacTj7VB4/+i8vc6icPAQU0/7Cl
Pvixle+J+xtDOJnWWa9v2g9hz4KTrI5fgqnr2RcrLvfDx4Nhh/YQTpB0Kfzf
wfB+MDfL1/qi7gwjO3fuVsjuhxjeR0ZSe1zhZkFIPDvHAFQLuY0GirlDVf02
i4KcAfgSdD3n6Tov0F7wHpHl/gV5JvE+SrqBcExvNTvj/TC0WYg8POwYCVG2
vNOL1cPgrvSBgzM9Ejq8WXpXfgxDl8WLNfl9keD8eKKQh2sEGjj+/WwyuwFR
kzUeUsYjwL+9W7ZT5yZ0xIT3H50bgcRQsWaPbbfBuY1eErtvFMyHdAOCKu7B
u9H/ch7ojMK6two2C3/vwZ+V/kfJVqMw7M1LP7ovCqK2Nfk/jxwFN6XHd/Se
R8E7v9e7C9tGwYzF7PraiPvwZ/3Fpz99/oOHJRUPWB9Gw33r9hDlD2Nw9mL5
/sT9sRA5dgiG6sagS0lC4apRLAT5p/592D8G5qbDZlsvx4Jb3GUKt9A4iAfe
OrshNRb0K9m9ei6Mw6uB/OFDfHEgtEvZ8e7qCejveyu21BwHXEUJWzTlJ8BV
smPe9L84WDmxPDB/eAKsLgrzRrHHw4TdFxt7pwl40SvU6a8SD18Tz5urkxOQ
lxvvYBQTD1ErN/VGLk+CiMSqW9+1EiDyzgT/4/BJkEkPICPNEyBo7dmaM9RJ
kDotq8rhngBuezZqY/kkVEj3q/nREmDbO3OZWsEpoD/R6SXGmTeY4al1qRem
gONKK6fa7UQIf715MfDKFMSZKCZwP0qEf57GHSaUKShu9wp9kZMI8yxFiYLR
UyC3v0nKojURhtffEPX/NAWEZMvJ+5IPoFJfWtBg9TRcjGhj3/D0AYgp/Vzj
ITUNoqGV0+M5D8BG8JlM/NZpSF4j4x9f/ACWahVVO9SnYdI5h3DofgCKJw9Z
2Ngz65vrDMVFkyD6qEWGe940dD8XfpRNSYLvmza+iy2ehvBiHY3hyCRQYBso
yquaBollCb+52CQoJZ0bF75Pw4yGS23SqyRgHKbMh3DOgEfRp6zx9iQwP0A9
FmM8A2Zn8+T6tlPhuYTl6Xc2M2BvISwVqUqF2TkZs2/OM5BGvtJm16DC3fcv
XdcFz4CEDa9PuAEVcE9B3NMXM/Doks+vZE8qCKwOfFT2ZgYU42V3rwRQwXQa
Xvz6NAMnVp1U2R9BhZmcykKFxhnQrPj4TDmeCnI723++WZiBop1dl46+pYK7
wMP/WthmQZ3z2e0LH6nw+T8rBkNgFgJDXnBYkVQwfjXEoy47C+t9l8276qlw
c9vcrtKTs8D1WFV6eYgKrVyFaoNnZqFIvffWzzEqyA5dO8plNQvXtBwFn85Q
oTCd00THYxYc3ZzIzL9UGJcVD2qmzULcogI5s4oGBwKeXi1JnwXD6azAe2to
ENa60yE3exbc19xIZ5ekwZobx3WjSmdh3aFjaWGbaWDT1wzX6mYhwDH8zZ1t
NHilZq3i2jYLR5prqO47aKAx5rteZ3QWzD9VOn/dQ4ObxziE1OizUCDteU97
Hw2aH0ezyq/MgoDOqpVkNRpcNMwY4VxNh85LQcQPoEHuq73f6ZJ0qJX5pF+l
SYMl9tKGgS106Jgr2xx9jAb387vyS9To8MvC8HG+Dg26hB1f5R6lQ/TWpDBx
PRrIOc0+StGjw1GTnZmGp2ngVhocE2VCB6eczQdcDGlQIClw/ZotHdL4Wk7a
naEBm3eSn6sLHV7ptLPsP0cD3a9yrhbedDiuJRz025gGidveWOsE00H89cN+
f1Ma9IUcPqN2iw40vp7TI2Y02N5VfVw+jg62qb7DqhY08FIxVpd4RAcBlxO1
1udpUHy3fyfXCzp8Xbks7WRJA54hN1lGLh3eRmmyGFrRwAiWxQYL6UC0WyRK
WNMgOekGT0s5HUzX3Gb7zOShadE/JV/psMja7njEhga7Tz2ZzO2ggycZ8Tud
yYHpigMp/XSo/imQOczkL38L2qLG6KBkvrGR15YGIibHaq7N0aH02tNAfiab
5zZ9dmVhQPnfrNYxZn06r9UbCz4GZA9F/XnN5Am70XQdMQZ0p3xZe5rJB4p8
ktQ2MMBhjEO/kdlPmDj7XXl5BuwY316ym8l1bveDJfYwwEbu5ANP5jxrqiQ9
uQ4x4AjlMSOBOa+N7MuLjGMM2HT0ASuVmccriqr54GkGtB+v6wtk5kVvIfVa
zBgQW8368Yg505+dekdK7RkwlLA1d5iZd0uvg/wTXwZMSlbFtTP3s0FtRvJ+
KAN2+0/UyZ6lwaXYIOGgOwz4EXGuWM+IBn+0HsxZpDBA1aj3wil9Ghx/vHlU
J4MBBju7HKV1aRA9n/ND7R0DxEXLi5tOMn15VVUuUcnk+VjOfi2mL+znCria
GFArYaulwfSv4PzPTEYXA54WTXhdY/qpK7wU2zLBgN/L7jrPmP56e+2wvb9m
Dni7fLelKDLn55ssMpadg2VrXplqeebvU96u3aA4Bz/FM22a5Zj91ag1Zh2Z
A+AvuRUuxcxT9gTUuM5BM0Vj10U+Zj8f+B/G+M5BWI2LZDQnDSp0G+ZMw+bg
X33HNI2F6Y+fcfbwgzkQ+XVZ+ewcFaK+XpDmLJuDFMuhz+Z9VFC+IO9fVz/H
9KS2PKaLCk2L/7XGdczBXcduy8xWKoht8by7aWIO6P3PJG9UUYEWELoM6+Yh
WulG8lA283ko/7iTcmUe7E9qh3v5UOFEse1eTco8/FjeUzjuRoXfZ7bE8F6f
h6FXZ7t1HamgGJx1Iok2D6K7r7/9bEKFt98KP7yvmId9YRn3r+ynQnFYe8KU
5AKg8Ey55kwStH8XMbpYtQCNUu6B602SQOeOQ4dX8wKUS7LmO+slQZFaoVX4
9wXYdEd1PuNoEjxJtHd5MrUAppqV++d2JcElg/yIrrWLsC32KdRwJ8FSmcUH
fadFSB78dzci7wHz3vtcaj/fEvw8dv27JTvzvPE/NMytuwzHFLWfSgcnQNmO
/bfLOFegvvpHRPfPGOb/9KKR9BMsxLfOjbVjy3dBusjlGOdNVkL0hD7lRH8k
iK1bWnK7x0pkvhN8E14dCQI+N3M7YlmJX9sf1n/NjYQ/u55JZj1iJcy4pMfj
gyOhK61n2ugdK+GvQGzvl46ExDuGj5/0sBLitjXjty2vg5DF/vmDe9mI2bka
P4vf4cCyxJbh0c9GeD7ii3BTDQWbgc7Z4GE2wo//3not2VAg63I17o2xET2V
8UPyQqEQkmLV+mKOjVhKd9ooMxIC/7QK/33nYydyLPmFK5JDYOX+VWNtFXbi
FvW05QhPCPzZ0scuFcFOJJ3RjRDvvAbnhT/oK9xiJ6bDrMRu51+DooV71H1R
7MSu39wZUvHXILD24C7DJHaiIXr7l4enr8Gy+wPzyCx2ojtbTYS1KhCWPum/
mWplJ0bueJjbFgfAvOFnq4otHMTfavq+QyX+ENaZ80NjBwcRxK+v9DXFH4Rs
U88XKHMQusmqa8KC/GGr+w3zzIMcxKZEjaDTh/zhbJShcYwhBxGYuyAa/NEP
cmt+6Vle4yCEDYfomwt9wemo0GFGKwfRo9lTtarVG+g1LEVuXRwEzy1FybJ8
bwgxmlUf6eUgVGQpOvFUb0iy7TjQPcpB3BRVYCRYe8OX4FTVEhZOItvo2SWx
cS/YVLRP8Z4iJzHCEjI4JugF3arWklsiOIlWn9tBIRc94OLiXuHrtziJwtZn
/67pecDUZwH2X1GcRP5ISN0DVQ/g0C4cTadyEncT2Bc3snuAkpl4oVwOJ9Ed
YOYY8vQqhFyrNZXr4iT+Lp8vvzLgDlu/7E/crMxFXDCqLJycc4Pc20K3w/dy
EdT0M0rZtW6gfvrXtQF1LiKuZkbgyRM3ON0R65B2jIugHDW2kz7lBn6j46qb
LbgIU54ndf6pl6FWKL1lUyQXEeYZFRFv7gruJiKrNn3nIsZDbKTlJ53A7uUu
2pafXMTavbGiwXVOcG5Rf7PCEBeR8POF4kqGE6g/vLdXeYqLGGnk0PBycALO
Xj5zDQ5uIpFTRepQzyWgXeRMM1fkJrzKC+ql2h2h3HtJNS6Qm9guL5Oh8ssB
8r+sK04M5SaGKGc7dSsdIENCTZsWyU0c2H1j/FaGA0R99DV7Gs1NXM+9dOiK
mwOY/aVfy0nnJtynNzT2L16AiYjJL7V13ESeeFibgcQFWBc/aMohzUMIsTUf
snexgwPhG9d4beIhHHZsqYg+bQfGHuYtA9t4iMyaljcDKnYQa9CoV7aHh2At
rV+z+McWBASLNMNO8BAe9vUZP6JtYeV6nCKLFw9h1f5qtQvawKCvJsufGh7C
PHLZkfeyFbA5Xvvs0shD2IdN35LTsAIZ4wJK9zce4lKgcX6IsBVYqioxCvt4
iNSBJPblt5bQNrVu1H+Ohxh/nXR68s95qHaabpmX5SV0+giTxGQLyLZ48mLW
j5eYrbL0HOIxA9X2zUtcQbzEblOFNOVBU/hk9EJ3fTgv4ZT+oSgTTaHqZPY0
cY+XmJgbb1DxNYWB/UUHo57yEgEt1Z7XR0xgrVhHg3wNL7FjMXjLvxZjCKsT
XrCU5CNM7Q4/6qg7Czwn4nSuyvARZTO3+Tpen4X7ZWseRWzhIy47V1ez3j8L
yYXSmpm7+IjjV219WgzPwoeXO+4uHOUjzLwuSDp3noGxCG2ZOFc+In295Ge1
KSMwORx8ouozH3M/jW5iBw3hO2NIuLSUj2g8+tg1XNYQ7LL12z9V8hHDhl4X
xXkMwXXjhos5TXzEdK/C86ffDCCM9XN44i8+QkTuS4WxhwFkVywVXxDkJ+Kf
neXbeOE0cOj77GW15CdE1T7hsThduM3V82fJlp/YTX326NglXRDGY+X0i/zE
+o9LEaGHdWG9sviZEXd+os2s41jWyCnYtTrPvSGCn/jrrEapOHIKzNumMx9l
8RP7ZxvGv6ychDdWlzep/+EnYhLsRtekaoPd+ynpJ6wCxI/h8LR/FG0QE/Ba
x8UtQPzWY8uWO6sNPh8pIs2rBIjp2JuXNnFrg7rYzRWnbQKENK3GbuDKcSit
Tu2iGgkQa3ZzSqnqHoNW1Y7YxZcCxCvYqfl751G4fsciyjpbgDgzxslfIngU
9vX33Kp4J0DsKS60qx3XhKT7v0JiigUI+c9rH/tka4Ll6IybQqsAkbDFzHPj
Hk0YShE8ZfZPgND3Qflrmkdgge8o+8dzgsTwTuKwND/A6gmh+FJzQUJ9+rbt
704N2NHUJVdnLUgo97r8WXmpAVYPPI73OgkSY3t2c3Ce0ICyzam3OIMEiQ/b
bvhfvXUYog6xihg9FySmr95x9ll3CLa4odR/c4KE6aLa1YcuaqBheOc1fVmQ
aBA7aftdUw1MVU00VliEiOnTh8Qt1qvB7aUJ61X8QkTNft8rIjUHYCpyQ9r+
jULE50jOOEPFA1CUck0hQluIKHU1khpc3gdGTQf3SScJEUbr2G1FK1SB7yB/
SdEjIeJnED03MkUVStK7Tp1PEyIWXPXc1CmqoOznb/swW4hQHJhLtFVWBaGN
H+6uqxAizN7uvZmWogLVrnsGxGeECA+ZDJaUW3uA4FGIFtIVJj7zv7vVeVMZ
Fq4urM82FCYaT+moP3ZWhpzuymd6JsLEX0Gx6Ae6yrAh5+Knu3bCxMNzjNat
q5Thz7n0IT5/YcJ/ZzqXpdou+JC28TD3c2HiaEoRhyplJ7gJTlY+zxQmPjS8
bmHX2glbfYuNjr8RJnpe73q1R2gnxOtYXrpeJEywnp7/+ypNETymaXHsLcKE
uVSNPaN5B2y3cN6Q1iFMvJnivJuVsgN+lqtlaPYIE6P91rOfXXeAQVJHcehv
YWLXWgnFce4dwMP28qTspDDhGDP/jbdtO6CLbytJFybsLZauBKVvB59vx61t
loQJm7rbl3Q8t8P/3i8g/vd+AfwfW6o7aQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.518887714580833*^9, 3.518887920453516*^9}, {
   3.518887988417344*^9, 3.518888043568164*^9}, {3.51888857207904*^9, 
   3.518888606116048*^9}, 3.518888990551317*^9, 3.519001851157971*^9, 
   3.519003918903533*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "residapprox", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residapprox", "[", 
    RowBox[{
    "k_", ",", " ", "a_", ",", " ", "b_", ",", " ", "c_", ",", " ", "x_"}], 
    "]"}], ":=", " ", 
   RowBox[{
    RowBox[{"residual", "[", 
     RowBox[{"k", ",", " ", "x"}], "]"}], "-", " ", 
    RowBox[{"a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"b", " ", 
        RowBox[{"x", "^", "5"}]}], " ", "-", " ", "x"}], ")"}], " ", 
     RowBox[{"2", "^", 
      RowBox[{"(", 
       RowBox[{"-", 
        RowBox[{"Abs", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}], ")"}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "residobj", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residobj", "[", 
    RowBox[{"k_", ",", " ", "a_", ",", " ", "b_", ",", " ", "c_"}], "]"}], 
   " ", ":=", " ", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"residapprox", "[", 
        RowBox[{
        "k", ",", " ", "a", ",", " ", "b", ",", " ", "c", ",", " ", "x"}], 
        "]"}], ")"}], "^", "2"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "4"}], ",", " ", "4"}], " ", "}"}], ",", " ", 
     RowBox[{"WorkingPrecision", " ", "\[Rule]", " ", "17"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindMinimum", "[", 
   RowBox[{
    RowBox[{"residobj", "[", 
     RowBox[{
     "3.35214492913221492851588357326401031621", ",", " ", "a", ",", " ", "b",
       ",", " ", "c"}], "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"{", " ", 
       RowBox[{"a", ",", " ", "0.0575"}], " ", "}"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{"b", ",", " ", "13.11"}], " ", "}"}], ",", 
      RowBox[{"{", " ", 
       RowBox[{"c", ",", " ", "4.4"}], " ", "}"}]}], " ", "}"}], ",", " ", 
    RowBox[{"Method", "\[Rule]", "\"\<PrincipalAxis\>\""}]}], "]"}], "//", 
  " ", "Quiet"}]}], "Input",
 CellChangeTimes->{{3.518887928738887*^9, 3.518887976740987*^9}, {
   3.5188880483521957`*^9, 3.5188880920161133`*^9}, {3.518888182469314*^9, 
   3.518888228842408*^9}, {3.5188886844570713`*^9, 3.518888715856968*^9}, {
   3.518888763885056*^9, 3.518888805035928*^9}, 3.518955677851598*^9, {
   3.518980934466501*^9, 3.518980935295977*^9}, {3.519001865652872*^9, 
   3.519001874539091*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"9.508311357833738`*^-6", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", "0.07219054755431126`"}], ",", 
     RowBox[{"b", "\[Rule]", "15.418191568719577`"}], ",", 
     RowBox[{"c", "\[Rule]", "5.609846028328545`"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5188888884006863`*^9, 3.5189557550007877`*^9, 
  3.518980962848711*^9, 3.519001904646516*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"residual", "[", 
        RowBox[{"k", ",", " ", "x"}], "]"}], "  ", "/.", " ", 
       RowBox[{
       "k", " ", "\[Rule]", " ", 
        "3.35214492913221492851588357326401031621`17."}]}], ")"}], " ", "-", 
     RowBox[{"0.07219054755431126", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"15.418191568719577", 
         RowBox[{"x", "^", "5"}]}], " ", "-", " ", "x"}], ")"}], " ", 
      RowBox[{"2", "^", 
       RowBox[{"(", 
        RowBox[{"-", 
         RowBox[{"Abs", "[", 
          RowBox[{"5.609846028328545", "x"}], "]"}]}], ")"}]}]}]}], " ", 
    "}"}], ",", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "4"}], ",", " ", "4"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.51895933823005*^9, 3.518959342908504*^9}, 
   3.519003953154132*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtnGk4VW/Uxo+pzKRRScZCpqQMYW1FZucYjjlTpiZJQkiSpEmSSiVEqSQh
lZC1TYWUISFT5r8k81zx7ve93k+u37XWve611vPs4+wvR9z9uKUnK41GY2On
0f73ryKsG15eFiAFv3+8EwcTOscXJGMWFgVImQcZecmREzo5r3ZsnZoRIHP6
DN01P0zoqMiYuQ/+EiDHl8v/baZP6qitimqrbREgXYM4P2d7T+kQfRM1d18K
kEO3v8tj/ozOuQfLPjczKf3ZVMtVLLM6ZbZ8K689FiDVz2sGLJvN6ujVyuyL
uC9AKs+D16ufszpGr12KvC4KkPNH2BwTZOZ1LC9+fr7ThfLztrYTrFzUuanb
bqTgQPX7eVE+YdMfnaY/Q/9tZQqQ9S4KDuX+f3Rs/NilNpoIkN0Pfr7ZJvlX
x9F+TxJNjfI3SQyVuvpPx2P7s6uf+QVIu+mt2UNAg6C6qGPeJfxkDCMp6mEI
G1z9FdgyXcBPMjaOGWm9YYO0lYd0I1/xk3YfrkXTJ9mgFszWPnjKT/otKGj0
HmEHiZy17xvj+UlOXw/fWg8O+BKXwavjzU+6ntnpwfRdCf1ZiYGf3PjJAtOS
x59zV8JC1eVuOyfK71TrRPXMSpBiOZ5/0oLK5xpJszjLCSEn1Jye7aHq7Zuw
zUvkgq2WVc/XCFL9xFVbug/wgJZv4do0bn4yomws/tQOXrC4nHVWiYOf9EnV
ZhEO54Wwsjgr40U+MifR+fxqYT5oVLH/c7afj+w2Ojk7wuSHM6uHjX8V8JHW
Qb+nxk8JQlMTz3CpGx+ZdPj2rd0Gq+Gcx+uS506UPsNdoO3kalCcdr55y5aP
1PPovvYxdTXErM7TOmTGRzKuCUyc+7MatC3trgtq8JFVTY0lZ/LXQEbdI1UX
QT6y4MEHjU7VdRBco332bwkv6RoT5P/ghDBIO/xnNfiOlzQ8QH8r+1QYGn/G
ydTn85KMK6793D+EQZ6rvyE9k5ckWvOZn802Qo/BZSmT2xSHp8s6KW0C48rm
6rvHeEn1aw82j7Juhs3k8TVqIrxkVtIwTSJIDGqFdgVoruclq5J/Mj3viEGI
5+JXbSEqv9Q1q/mtGDRzX7ipx8lLPrLY+m/fghjEMe8JWU7zkE5nhC+YhYsD
268KwWO1PGRru1yCzg0J+Ll2I196GA/J2T/24nG7FCT6/DiaEcRDqr6cPDDN
Ig37ix7VPvPnIaX8EhtOyUhDmqvS1RwfKj+h7caqQGlweq7HU2LNQ/I2p5jl
rN4KdcRxru/yPKTrppSSp3bb4PWRCg6BTm4y7mPji0PccqAu5rsjo4WbFPQJ
YkjskYPCpvUHtBu5SdrdY56bjsoBqX0k/8hHbjKGK+RE3Rc5qBEQOliVy00a
3rD6sPfOduh+5UKei+Ymuy/wHfVXVQDuv4sh00rcZNNPvgknhjJcy3mUcUWO
mxw/vazfeVQZBD3NGyWkual9pISfvaQMa788lLXYSPm/Dy2SLVcGsVTD1hfs
3KRft+fOdeo7YJfe7V3e37nIR/lbna1lVMD16o7x75FcZO26iWMhEqoQkh8f
/fkMFxl2+2QOv64q3OqYEikN5iLnL5dkky6qUCP/xuipLxcZURdQe+aBKuz8
rJke6MBF+gn1zjpu3AUr+PVsVqtwkSKSOpxpwrsh67pNsWkPJ0leCXjGr6gO
8/GhMQicZDDta+DjTC1I5+8STuxZQaof2XT0SO0+SDLe4f/1Egc5VGJWAIeN
QIrHuKY+imK7uATXcCN4/sld4stZDjLmwsl/AfFGUGia0Fh1iooPpGgFFRrB
d/M5lRI3DlI94WN1K5cxrLN6P/VUg4OsOraZUf3YGK47Gp0K/8lO2hlO2AnW
m8A6EffPof3sZPe2i6asvSaQ3BEiffoHO1n1OFu0c8oEsg9kfTv5jZ00LKn+
abLeFGpdBHYfKmUnyduC9WwHTIHT49us1V12Mm7JYv2lPlOIPOoWLGvETrqy
z8fsajODrljnpMJ97GT9WIxm4U8z0Mx1JE102EniazTv2gUzmJxhcvrupPyH
dGaM15uD21njxLzN7GSO0Z75pxbmUPzQoHjfBnZS+dK2ujoXc9hQodfdJMRO
Bm8sOVd1zBzqOUFmbiU7SXNzpitcMgcifmfBnkk2MpXN3PT1e3NIylfuqB1h
I2leB8sda8xhvlmB5vwfG1l1fexNXbM55GySMYzoYCOVh9o6No+Zw5bHIq0V
H9jI7mPhN/dtpkPIR+G/zFKKHUxd98vQofnnOrH/ithIma8bVYV20iFWcZUP
Vy4b6XPbPYfVkA5Lbznmze6zkeqRs3Jqx+ng0MYq8uMWG1lfL+7mH0yHN3+X
wS+OjYxoNVvvf44OvrqLF+MvsJE5OkLFxfF0qDk491wygo0cD/ONXnGfDluj
p+vyQ9jIDaV2MULpdOisGV3fcpyNfHr5+ZBvHh3Uf//a43OYqt/4TLzkHR0S
BH66LHiwkYxyb4PPJB1MrfuebHKg5vPfzCf7hQ5PA7s/ZVmzkUMzHdEBTXRg
v9s5pk2n5lmcSD3TRofizhY1Vz2qv2b2Qx8G6LCB9s1xQoeqZ+E2zv6LDgES
jWcjNSi/weaapTE61OvVpa9WZSMJN37PV9N0kPeu/fhIkdrXpVfbJRboEHOp
+tcuWYoPn75i/I8O/c8/CHyUZCPJE7Hzt2gMIL6U77QTZSMLovP73VkZkDRO
2v7cQPHfJJKHnQHzQiWhIavZyLhgcm8cBwOsdxWl8PBT+yhKFx9fwYAc24Ly
JE42MvjN99XbORnAG/L6PwU2qv89HPUEFwN8kvJ48B8rOfS3jXcHNwMqSl4q
MeZZSU5tyXN/KBbrybLqmWQlc4aL+lJ4GBDKlhnk/5uVdPW892szLwN87zqv
cB1iJZU9zr/2o9hdafUtsz5Wcr7b5s5Dim0qP0ru6WIl1XP/Y+ZQbOwYlifz
nZU0vCL2JolinQll3XVNrGTBIvsZL4p3XByoY6uj6om+Os5HsdTme84T1axk
6z8PqxuU/4ZX5r+7KlhJBq//7wmqP14jtrBaZCXjUhhsShQvd73lLiyk+ve5
42BIzTcZcPTuk9dUvyNLBdrU/IPc4jK3cljJCKGD/fwrGdCW+u1N5HNW8ml2
RVoRtb/Puy/r+2Wwkt0rTajHkgFkrU7TgYes5Phe/YkMav/57lPuJkmUHuT5
B6jzeTr/ZEL9DitZn2Hw8g91fvdjnSK2xrOSqQoLMr3U+cZKrRJYc42VpI0d
Xn9mhg6RhZUPWGIofcAiZ+04HQIZIfJjkayk3xGfq1+o+3N4ULGo4wy175Z2
5ahBOlgIJba+PUntIyhy08p2Oug9NfV+7Evp2cUjv1L3U12HZTb+ECspdjzN
2IK6v2KHD6/2daH6N5QzcKHu92iplrmUCbUfzs7JglQ69NpOdKzaT/V3auEQ
eyIdvv1+fGSZoPJdetv/xVL3W1jgUttuat5DAysWQulw5URPeZwExV8WF9kt
6RC+8rZl+GZqXsv2yvz9dPB/YNxzZAPVf8wuI4E91PNc/WppPz8rSX7P7C+T
oIOMeLTGvwUWkvZsc7TwqDmIvNWsGp5mIRnDidvWdJuDgNmYTesYCznOyzzy
psEcZoPtAl4NsJDdYzsOjL8yh4p6uZeHGljI1PWjeUoB1OdfRJ1U81OK7cWY
1/rMwOZ7ik5nOqWnhUXtqTcDYxU/u/5kFlLQnTXoerEZqPYLXp1MoPI9twRv
SzADTkPLKf5zlP9ZhQEBMINsgW+lBvaU/nbQuwvnTSHd53G7uTULqZwzO+V7
2BQSS0/NMOlUvQsTbxcYpnDu5DpZD30WMq5xz+ykiClYt9jGReyg9HXvDHxz
TOBPcpvzOy4W0k+vzdOp0hjG5zKDSXYWUqzKc0w/wxj6GaHxH5dppJhbG+uX
aGP4wiry4dsMjcw59Ub93X5jSPM6oDDZQyMZ7wPN5kuNwFCx+49cIY2MODOW
wZJhCLfeDyQmHab0H1Z/75DcD87B98LVPKm4rOSloml9kNlJ92h0oZF+H6Tn
pSv1ofBpgRInk0bGPbMIS/bQh66bVz6cBBpJ82+9L56sB9sO75g2XkPlN4o8
vvVnL/grLCZPhi4jeVgqYqlcB9jTDx6WObGMEUT78XNGOnB7w+ddzl4UF7PN
KnzRhiK21NpqxjLSDtwsXvlNC9jb9BdTpan4OfnQ9lZNuB19g0mvW0Litq0z
R+FuKPwhw5slsYQRiiUKPS3bIUyL5cW9DRT/MZAZrJQD7bvfzS7xLyFNPlOg
Mk8WSMvL170W/yGttUhy86Vt8LHyl5B44z+McD9xOk5GEpqeZwvfPkfFqy6n
zB9eA6NBqtsiuv8ireUtz+NiQZQUJPZaJ/9B2kxWC+dDNYxV7gk5fPMPErKw
ss9EHecZka8iYii+9m9/8aw61t6okHrh/wcj+HXpTqaaGLDaaOUKAyq+sAh9
s1r4YZ1l7duxRRRTGF8sltDFw5s9bDbpLiIZsCHFhbkfm7Q5ru/YvYgRte+1
szP2o45zxkeD7YvoOtn/783cflydMqQesHYRaXqVrr8TDbBY7Nimzz8XMEKn
4FpmiyHySwV2h8cvIM3ogYq+ngnmycUc7u2bR7HvtyLOVtFxS4Pru+3f5zFO
6W7xRQ4GXg3S4Dz1ZR6VH3H4XdzKQM+K4ccr381j/Z47/M+8GbjB2axHPpbi
iZC7loMMPHNDyC5IfR79SuXyZJsscFjtVwapMI/jSYc/241boE1X+QyX5Dy6
bvRs2s5ricrbT91M4qPqC+x/VbDXEnsrWr6U9s4hqRYmZfLcEg3nk/R5r81h
93bXTDhkha+TTyUwI+fQ78CXAeGzViihb96XHETlS5wJjEqwwj83liN2uM+h
8sCWao4SK8ze7l5sozaHtFcl5Xd4rHFToyZPqvwcxiXn7fy62Rpjglc7/BSn
6vupBt5Sska3yoq5UF4q3inw8ZmFNa5x2bbzYc8s+h1/pjRx3RrPcdAih5tn
MeKOfvneZGscfd5av7N2FrvP5cysyrLGj/OXfD+8mUXl8eJ3Uh+sUTXF/b1A
FsUFs4JejdaYqr+H1/7hLKa2GcaLdVljSPzIs19XZpFmMJ77d8oaB9Ur51XP
zSJx3kpKZMkarX48MAgPpPTn2A/lrGQieSHw9scjlP/Rad8CQSbKy9MHBN2o
+BeJbTuFmXi3cZuqg80s1ttnRm0RZ+KK07Tz6SazmFP/OSxMhon+W743jBDU
PFs4VhopMfFHZa7Y7t2UnzT35qhdTAyzWtBTl6f0pmmFdZpM3NBDHNKUmEUx
Mk7iPjAx3zfmmtYGqn+/tAsD+5jI+FuXq8NPcdXZddkGTBy5tL6ZYKeY5Q3X
tDETY9a7LO5dnMHUQPLWGzMmSj3OENUfn0GCJjQ1TafmURndazBIsbSoU7YF
E53IXd5GHTOYk+jO12vJxHmzM1dMGil9vJ/+dSsmJrRXvDSrmkEx+Vm91xQr
H+JtopfM4PiXj+ZWFNfOWs1b5M8gGfPziQ+l94m6L2KdOYNxbxPvTDOYyC7U
R9ikUvW2ML1nzZmYmiLnaXebyk8fdj9mykQtBf9LDldnMOJ+SKudERNbC9+9
cIqcQYbBhQ0F+kwMMGRpdA6ewXq3qVOXdZko2Gw46+pL6Y9t2V+nxcSsg3Eb
D3rMoKDZj+4Lakw0nGjR8XSYQVr1tdQXO5jYH77loDeDmrdvda/+diae4/W+
eGg/xbaT7OZSTBS9l/38iBal1zU5UinCxMJts3XHVKh9uP86/XwNEyf3Xtjg
L0r1X1qmXMrKxNj6Wq2ANTPoqq+TMzZvjXLOa9wCuan9nE2Kvjxqje6n05+F
zE6jq/djDrZWa1xa8etz2Mg0jit6JP34ZI33ElQmw3spzia8tqI1Nr4s1Tz/
heJl1bjxdGv01eZyuVAxjeTDA7P+t6yR+xPj/MXCaczxar1/INoa9w3++HQl
YxojbPd8PeRljd0nt41fS5pGsUXHqMtMawxjOb4mLn4aU7davlqlZ435IktO
CeHTGKe1+bfFFmuUshIZTbKZRkbnhNb1L1ZIdh8USjGl9GSRyvcCK3Tyfb77
4V6KlWPKo9OsMOGS5tnHipQeFS/yBFgh9SYlmL1iGgn1OuF8AStMNUtVzfk7
halZ7JarZyxRq/0/u7zJKfT7QtvW9N0SA2YDH77pmsLu6z/GTj+0xAH5Wyr4
ZgpzCi2aLGQtUS788ejQ8ymM6JRcvWKlJfrWvc4UejiFDG7lj0t9Fjh/olnC
68oUKpefNHl/3wK5365fzedKcWeVki+rBdI5Zep2M6fQlZPPSb+NgQn26ldc
jadQ8LUyv1suAzf/tWPLV6Xy/8We8TrAQGXde1MOXFS/Q1aeTvZ0PBWf+TJq
aRJpXjmbnP6ZY2Ff4ZHsqUl0Pe/IMZRijvui2/tYuiaRFM+ayeg2Q5tPIk1P
86h8bd1X3ximGMpMyZ91pPiR6LrKEUMkM176iVlQ+XyhoaOnDZF9HuWN909i
xFrhTfkchhh7r/vRA2WKFdQHhIUNMPWH+C09Dko/Qb4NVdLHD4cenYrPnkBa
6IzuNhFdXBX+bLciywRGVDw+IsCljNFvZKoE58Yx4vB3/6XPCrg4+sR+amQc
aXfpqzijt2OvS0ZYQSvF7EZt5cNbMU83vWxvDsXpGyfFBTehJccDc1sXipOf
qOy/vhK2CYt/poWOIS2r7MiVM2ogv3tM/vHUCLpyjf2Q+s4AL8WzZ991jqDY
Wp/GWQ0LSNkq0Pj54wgKph8IrLhnAULrlYJm748g47xGib6TJczN+ZYa6I2g
X656+vkuKyh7N8ocTviFcTWuNXMdNmCnPRqutHsYBas0SnSeOUH8rvCGfWLD
mDPz82cH6wH4pMAvZcc9jOr9ZoornA6AjqhidUTXT+xOvyT+i9cZJJePrW6M
/olPVy+p3fZxgVHy95OAliHskLyftobVDba9O7MYUzqEZIURi5OcG7jm8pk9
eD6E+XoCw8aWbvD1ocJk5dkhlNnk37D+oRsURB7TWi8zhCLpYsYamu5wXu93
/bvg/9BDcgfLnN1BKDMcoase/A+d3mnya4QcBJrZry/ZZv9hwBt2Pq77ByGM
+bM2XeI/PCrwedik/SAEeg1UXasdxEeJSu/lbTwg/3C/AefbQZTaGjP44qQH
TPr2fYh8OIjFf17seRnnAceDeiqCAgfR+p7Po+3VHuAT00m6iQ3iuNr7Ux07
PSHjagd0cA9iLblyXsnME/rj2ktsZgYweESAPuvpCW53vxeb1Axg1vvc+aZb
npD6oHXPh/wBpF1dEhjO8oSuhy2FRMoAzk4nXDhS7gkOmd8KdgUM4IiY+I4X
o56QmN2kluM8gGV6ScRhNi9ozvv6Rs5oABWXbrhdW+8FVkUN+VtEB7D2jEPm
srYXmNZ+zuGq6sdsHt3yQ+e94HJ9rVJUXj86GL94I3/TC6qaPmUvJfWjyE2+
PKM0L9DvrM6aOtGPzdMn/lwp8YKonqrtvk79OBw8cDz7kxeUDXzMHNrfjysy
rDSkW71AZ7TyaeemfnTdEqLLPeYFYZMV2+xW9OO02M7KUwteUDhbntE43of8
rwVllNm8YX6xTNqsvQ8V+crWqfN6g9py6aOPlX2YVa2w9+oabwhkK5Xcm9OH
IRHRLttFvCF/JZlWfK8P19m6yKyR9IZJHhRXu9CHemWkg76sNygLlqTmHu9D
QQftd+8VvcF3zfst8g59uKJsBU/YTm/I2lCcnKFH1X/EKnJWzRuGRYo2iyv1
ocy/H8WVmt4gK16YdF+Y0u+QLzfX9gYf6Xeb1rH3ofEVHy5h8IYM2YJ7caO9
OFO05bgk4Q39Cm+Feb734pYTf1qPUiyh8ibxQnkvBiq0KU9T+a67X6+nZfci
sW3As0DHG1I082+HJPaiKzPjaIGWN3TpvFo7E9mLl3JEYUrDG0T25SUcP9aL
F2M7Orx3e4ODQe7qYdte5JMRMlmr4g2JJjnxHnt7cSMzK2FR3hua6S9X/ZDv
RUefQzXrtnnDWuvsOPv1vWixd5z1kJg35G29UqjP1ovdfT/5goS9gbHg3b9j
rAfvRGxt+rrKG35/0uMXbe/Bar2ojHAub7icLK7O/bEHc9ektgXSvGHbiSW3
2bweNPUarCma9YKKfe1XepN7MOfqo2bTES9YGkr4URjYg9wvLjUzvnnB/aIT
XE/ce9B8ySStrMoL1GPNd94078Hd9t3q4UVe4L+T8+KRrT34yDkruz7ZCwRW
DOTYCvWgg5XRda/rXpDVWtq2b6kbvzY90dY76wWDZ0IVRZq7sXskfu83Jy84
z7Cz4yzrxosFyR8uGnuBmOSuyOkX3fhO9sbJCDUvcKga/VZ7oRvFWxN69wp4
wdy9T8sFJ7ox9VsmjXfRExKOPZV9fKAb53K+Lwv3e8IXIfczZ3Z1I8/w8SS2
N55wZEDnySHxbjz+YeRD1wNP4CzY1MDk68aKE60j/6I84UJhppFTzQ/E76+u
rLTwBF/6jcT3sj/QT/mion63BzydNh65xfIDP1wdFtMu84Deu+yE7/cuzL+S
fDY43QNs+oP+E73UhYzLDvjuoAfAaefdEUOdSK5VSDhEff6EiG64bEd2opdk
KFvE24OQX97QqZzYiYp7bTe3xx8EGX79Cz0GndQ/pTVRrgYHQTB9e9PeJx0Y
rvbRKu+JOxgbDmzbdLYDE5LN182fcYeo38mhUzYdGKodVHHByh3m1YQkH63o
wK2Z/2RD/7pBT+38CQ6vdvy2O5K3W98N8mYrBaqk2jDHMEPtvK8LxGamleks
fEfeh+dvVvxxhiPOZ0+9/vwd/34p2XPqojNIfVBvTwv8joykiy3K9w7A7VvP
M85UtWL/dmv54y8cIUT1hvbOoy14NSHgj0+sLez1dzqS/KoJZT7eWT5daAqi
WzVE18Y0YWqN+zrtSOp9/fvahitOTbgh/ZqHuqEx5OvW7T7N0YRP1zpZbaoz
gK2r9rJa235Fms7Vsxdq9gJ3zra7XH8akKHdeF9eaAc8bh+49jPqC8Zl/L5o
dFgd28LWpTzY+QXJpAtdF2o1kV/UIMei9zOSke7rPeW1MdD1aeM7+IzElaB4
wUkC9w8cXn958RO6zgQU+N7Wx6HRsVQ5v2qM4fPTqw4wR5E4sbwu0WrMKUvm
GzhPR8YOi/L4z1WoXsnC3WrAwIKTeQOLclU4HaotYW9ugZfmA+Q+DXxA2irf
lv/2WWHJ3cd7ziZ8wA3zXLd+FlnhpGaz6c59H7CgXK399g5rdDijdvx+aiVu
sIubu7WWiXKsi6+OOFZg/vB5ydD3NuicLle5hbsC551dW5TFbDFez7H5a0E5
tproKtWctcXF6OL5PevKUVmM1qO5yw4VZX5zjVeU4fTfjzFtl+3QvXrzpkcn
yzDOjeXYaIcdfuI5q83bUIp2nJ9G/52yR9qLl+bk2VJsNSTI98X2qGre7RKg
WIobBqJUQpbt0WdM8IRMJ4n9XUVca3QcMClON7LjColHn2iGHwl2wPod/jfj
NElkZ23SdM12QM4MfaNLjYgVvyUdG344oN9QxpEJJcSsjI5DD3gdsVWOM9b+
Wgk62a91SVN1ROLYoZzS4feYlXsv+b2tIz59WdMoa/gem5x0Zz+dckTBye0z
Nx4X49+MPUnPYh3xtOq19YusxTh0/YSCSpoj9gaOari7FmHEqY7nRI4jGr+j
O9W8L0ROxmDYywJHzPuTE66yqRAFnT972xU54kYdoYf3gt/h1T88CWuoeGTE
yXLW5gKsH668WJztiL/KmgYO7yzAuGzNrTIpjmjNsZvza9xbvKqqk614yRGL
De7I7Rl9g0TV24KMo44odXneNN3kDRYvblPzMnLEq7X2x3mevcb8lbv9925x
xGn+ohsnV7xGZXd9TsFRBzxgIZLffjAfRXD1SNprBxyZmtE4VfEKRwLav4gH
OWDY7Trkl36F07QTqnY7HJBX45n+0wt5OGS8+9XGfntMao/8pDuYi67thjra
1+1RPtzJon1/Lmb+Oi51U8Uei8R2twQ8ycF1zWsFxj7bYf6nxkp6QzY+evHD
hjZii02C0Q2R8S+wfsav3NbXFqeYGp2vrbLwqNVji4X/bFClO2V6U/Mz/JLC
kmVLMtFC2opGv/MU1QeaNHJFmeh3eAVvpN0TjEo7eCT2pDW+nD4qOdT2CEUC
1do4aFb4RUNMaVNSOjqcfBikpmaJo+FfNc0PpOG6gIPBmzws0E4o4JEPpmDx
Zo6efVp0vJPUVvRF9wF2rbz/Notphs1bdb+qVtzDri93pMrsTNBqDz8rS/Ut
9OrUfLx9owHGVwYIe5vcRNONN6sSW/Swnt6u/PlzHK4rMUvvD9uL96sYqPL4
Iupp9icHLWpiRJNM06byA+gcpiT3WEsI5QU6D3Mo6IHEa4ezshPzOs0TkSmC
8z6we319VZaVKITe3F9zRDUCTCVuP5NfUoGl8NP3U5QuQLRgFP3KQXWIOJx1
9KvcZVjBGPA8cEsbysUuXXwgGA92DcP71ubug6jbEn5qsQmQlZomen5ZH/bz
Fts18NyBv5Zgx7PbEKrmRmU5VibBhms7PmsdMIXLx2KEUqKS4e9v03ufzM0h
YyLujMi5VJhX0prespYB3t5yXm+W0mD0F89D43oLMJQIcjiv/Qi83g5EyiRb
gkxnuTkj7DFoziZ3fnWzgmHLA2rDC09AMfg64fXJGmr4Mre/VX8GtQEhGq9P
MOF51eyWqKBMaDx/7NpDfhs4qhPHKTqTBe7by8iNCrZgttDxd3hnNsj32+/g
fmkLivmyE2/9XwIjJV/MScYOYtSK/MvscoAYiVIk7trBfELPiMx8DgiW/7QY
YLEHn8mV3tfv5EJkp1HbaXd7aKUr9szszoMARy2/7UX2YPjC2tGpOQ+uNp5Z
t43XAd5xh34rO/UKPG5PyN1lOkCqwtqvLyXygaYs6TyV5ADRjJf1SXX5UPX6
9trv7Q5w7KTRl0thr+Gph8uxCCFHsL7d9ylQ9g0ok0/SRXUdYc+7M9UHm99A
8c3IjUPejiDRsf4j4/xboJHV9oIXHYFrObdCW7kASAuuVTXJjjAublom11kA
Gx4GChu8dIQWvUFcf/kdBBtNBhUUOEKJd8R7drVCiFu9xsW8yBEeXd5YNNFX
CE3OxA71t45w5UV+QVdcEYys+BD5KMsR/OvN33zSLgZ2AXaR0vuOYDc19Kpg
uBhMz97+UxjlCLDufO7jO+9B5tYluxKqv60am1/G65XAhr74R7N6jsDr9Dbr
7EQJMDzosbEijjAVbpF5NBnh6MFotpxRB/hdP/M1S5oEBp/fzqgiB3DtLbOU
DCNh/uly3M7zDtA0db3hbiMJdleUvw3oO4ABxwGGoGwpFN9gspSxOYCizJzZ
v2+l0OrtGRt3wh7SNCpqT8qXQcXEVb/P4vaw1uSGyXBkGTx6U61b/dkO/h7b
btSiVA5VT8zhirAdVL9y0cu9VAGCTQ9+Tp63Aa1K+fJt3RWgR+s1GVxrAznN
C7rJuyuhttNsKe0RE24v3IQrfZXgVOhAThRYgwdUaXpqf4SK5v0b1pGWsFyj
vEN4ohr8iIYnXqQp+Hf8e3ndoAa6ffw23LtjAoO/axRXJNeAn+T7zVlHjKFW
0FN+yvgTzA8vXd/EYwj3bO5u+/yoFsb/OJiXb98Hu3pZRM/Z1UFcqH31RXkV
UCy0nVB+VgeEaVB2UJwSbI1/UdG9UAdk1qLZ9ko54HmYtSvVrB5oLdaruWXE
4S/DrmN5lGIvUec2vomSzpyXsrijEfze1N3xsFTFFD/nCu23TcCQ31Xl0mSK
SU5c2bd+NEH9Vk7zkSkzTDTMv/N75TdQt+uP/baKjnFi3Ece2H0D64adsfsf
MTCi/vWqfwvfQKy56LpUvSW6KfO5FGu1gDx7y96mOer/vUiB4RrPFuD8lGjw
K8gWHTgPqhy91gJVdVkZXbO2aNldwCHS1QI5fxv8jCfscG+cR1bo2Vao3ep2
sbbFASXHixY0y77DG/r0xRgfZwz7vC9q+vd3mOXaHVLa6YzNmZ/4s4XbwLje
jsvbwgUve7ZLip9og9WbeVfOCrvieNui2UqxdlgtWne6atIVjQsiW0mTdviy
fjFhfKsbPrrFfTAkqB2eqYQk6Tm4oS1jY/DvL+1wacVn5tESNyyp1Ej7eqYD
DC1LXqeGuVPf60rlrz3rgKgpzdX8me7oH2H0dv+3Dshnml5IbXZH6T32te/k
O0EpQFVZReEgXs0Jnk1p74Qqs5vsi3UHcfAa7Zz9yi5oZ21cdW72IBJHYnhW
7+wCwfq9IbIiHjglnSgWfbkL1BOj7Do9PNDh/lvjoxo/4LiZYlTtLw/MD4Zv
0p4/IHPHKRt7Hk/kt/no8iPuB/jSWK+tkPPEUsGWAMuhHyCkefNImYcn8gW9
XObg7oZbUQNmDRGeWOg5VdG7pRuGzzRysiR54pp9ofQkk24o3JveV15H6Xfg
mtNu3VCxv/Ci7ZAn+oqxtTGDuuFjw3VePpoXVv277CGQ3g3Ku1PEf8h74amR
L7IjBd0QvfZj6F9dL5RoFxqr+tINAmhsrG3jhaEF905HLnaD7/YbO7eHeaHM
ky4dF8EeKLoi4PD9mhc23ZJg19raA/NB0rwvkr3wXJRX9QatHuhysejLyPZC
xZOZsTMWPcBu/zbi43svbHcbtWr07oGcLPZrArVeGMNQEX55pgckXlkVnP3u
hb0Khek+z3rgxr52RvuEF14XWfLRxx7qeTmxt+qvF2rx7FWU+NYDYQvXHLtX
eOPPhQtTS8M94C/TeFxK0BtvD1UXtNN6ofrUM/tbG7xxXwtfeMG6XrCXU17c
KeaN45UW+27J90KZpbAGyzZvTMq/xem/txf+yt9iX5L3RqP075/N7XqBtVrN
YrsKlX8h26vyWC+8Ez13IWi3Nyb6nF/ec74X2ryePvyn4Y2EiV1iXmIvjKvE
JJdoeeOQgsIO2exeWCVyPaRIxxvjBFlrUsp7weDGM40Z8Eb1qWb3dd97Yaxo
+wD1vo7d357/uTraC5kpRVeo93mMKYhIYGPvAyHjPbobqXzl+0yFEOE+yCBe
iVpqe2PrGbkP44p9ELWgtbdW0xsjXJedvfX6QP7a7y+X1LxRZl/TXKd9H/AH
kCNXdnpjvfSzOOvjfeB1KrLqq6I3BnOGy36K6oOuJ8U33WW9UeyXZZnuvT74
G58SpSHpjVWftzkWvOwD3rDRb/Yi3uiX83dKsbIPAp4Pf6hY440bbjZcfdzW
B2WTOvdDeb2RPJUhLTLeB7d3/Lp3ls0bfexCS+I5+qF5WUmoccELBfcwbLk2
UXw8xCJgzAsLNkuPn1XuB7te+gvvfi/k7PsifsyxH9ps8sQMqPuQU5le2OfX
DzkWAjO70AvtngZbOUT3A+/p4y6huV749JjEBYPcfhD5vO2uQIIXGsyfGhJf
OQBD4RPtFyy8cLTN+FyiyABcHvU5ZwFeePv9lo0CKgPgoNTidJa674OR1SZ/
nQYgovhS+UoOL4zm2/yyOW8AeKtW2c5me6Li+ISBWdUAxJg2Jy3d8cTmxg/d
5Z0DkC86Gn6Kev62JvoJ5XIOwtHVY2de0z3xg0TFqSvOg8D5+0j+8/880Jfj
Lj9rwCA0hU2ut6n1wHVDx54EXxqEfpZS0bAcD/R6sf67Z/4gmP61KdUN8sAV
6ke0CO7/QK8m7Wjv0kHUNxNim3n9H7Q+aBSam3PHWDeuiYXq/4DkNV081+KO
radoP5Y6/wOftqDjuW/c8XDyaCHniiHQKn2WwxZA5Y/V+IvYDIF8E/+xB8Nu
2HrjfO++2SGw29PMO1jlioebp0vjdw9Dve/E4JMnTnjdpSVC+e0IkI7Ld0X7
LTB6RAsGa0cgteHCdb0oCww/nfbvfu8IiFV/bj4oZYG+N4+FrOT/DQzVn7T7
Hgw0/8gW0OXxGwh5fbfoGjPkV1L2vio0CkSwyzOjJgOMXYoxGzo2BrSO9Z4q
9uoYfWWUJ/k8xbOjtxi/d2P4Busaq7sUb9FY+z5yF/qqbDHAijEgrBSDn+Sq
4LZXDmKf+MaBNpkgFq8rhyv/GxdO86BYpv/DsCsrfjTfzMcQmoCIxsCWX2M7
YI1izzp/kQkg3mdxaPDtBFe+x2IJWyeAtlB1J1pGFRY/yau2alLxQm0nAfvd
IG+k5eh6kGK2fZFWDzUhbp/jM7/8CUh9FHDYx1MXOiS2vIovobji0G72Pl2Q
Ze0rzq+aADHivkq4y14oIw/Xz3dMANmjV8rB3Acz2iFzERyTQNJ+f1BV0QcH
9bv6N2wmodvLorjslSFkrD9Af+U6CansDd+iRY1galbM/tthiscXpIRijODq
66dHhc9OgtjcUZEQW2NAlYKbD59MguvW66Un/zMBXqGwB+W5kxBxjCuOaWgK
dhPwZKBoEmgNN4XmnpjC5MuPhbL1k0A4COwOPGgGUgotPbnzVL62v4blJ3Pw
473/6yvrFBDxhemiEnR4/8t5ZoZ3CmhCQTWPg+hgkznIqSk+BWJnnPafEGBA
zLZZpTIjimtiOzleMuC3+NrwxntTIPjPbOepOgtQD314ovTRFIy/69v+Z8wC
IpsUPHOyqXrhZhf7BCxh3cX9prFlU6BM03/abmYJOiNBG42HqXq6E1pHyywh
Rp+dX2N6CiL42r6v7LKExuQ4FpklivXMy1csWIKXxbMhDqFp8Osc0VBSsILr
b9relGpQ/L6jQDnWCtoEvDNz9k0DbSeRNvLICqQOTT1IMZsGRrBgPl+RFRRs
4r1wxm0a4uZlz0cMWAHrqcTgo0emIVV6T2/jghWYfpE66nhqGsSS1F5c4bOG
7ghtK41LVPzSwtiOndYg11a9X+bmNCg/vislpm8NATttNNc/oPwSq3QCbayB
c9BXfCaH0q8OLXUMsoYdJqljOa3TIPghg2VDnjWEPZLvS+ml+m3WMLNAa/jw
r6A5doSq/2MHzyz1PuSQ0/D+KG0GaHKRXef7rOERl3OuI/cMuJ7U+nNs1BpG
3YcfGa+ZgfrLfHcr560hci3bVRmZGWCUs0YjDxNqfa+fXa9C6VVFptzXMGFd
1aaTK7RmIKdQanOgCBNcxZ96zejPQHd++90FSSZkhqg69NNnIG7dY5ZROSZM
fyXNvtpTcamIMasdTNBRMNMtO0j5Oy7R5NWYEBP9XTX32AwIims2B2ox4esP
T5nUIMo/8/OqXbpMENWY3HT9HOWXV23nrc8En/hwgfArFFtlWfIbMSHvFzfb
sVszEPHZ9pmcKRP+6t2ZdUyh2IaL6705E/YnSw4bP6P6H6KLfWAwIW7uZafG
qxnw42FL3W/JhDaGVoPMe8r/lcYesGKCVGZVxfqPMzDOqfskh2JfNmbBigaq
H+2b9+9TXODU83ymjYof+9JAo5j1zbGU/v4ZIE4+5+ixYIKpwGL811Eq/nF6
Wovyu+0THV02PwPKB8+4rKX66S4VCsllnQVG6vqVR0yYILcp5Vgq7ywoy1x9
qWPIhFMB292ur5uF8bY40Rt61L65x4ptxGeh3n9GipWg/FPyNojKU/l4YLxD
kwkOuwIDBnbPgqBnbZTELmr+Go36LF2KM4uGvioyIdn13/YA01kghgWkJ7cx
AWbJi3tsqXqi3PrhYkyIFDeEmqOz4Mp60qdfgJr/Lc/9G0Gz0C1feI1cwYRK
07pZu0iq3kPtNv5/1H0Mtsn+784stV8pvRVD1pDJt5H7ZRoVT1ZKyO2wBpP0
Ts/AF1S9xSy/r/XWEPvFYzNHOTXviSijs2+tQdlD5nTt51nqPHMv8mRaQ8PC
r6abrbNAHu38JpRkDWukT16VGKX6vdSofifcGu6FnvsDwnNAPPsZd0fbGrRW
6duulJoDBhlbKCJvDZ0ZnK++KM5B3MnjRls3WoNY4/XDB/TmoL5PzenTtBVk
yCR/DzlOxd/kLIVTz69hiduuvSFzoLwnbsLwuhX8tJK+wXVhDrp1YTL1tBXI
n80yTLw3B4J9X9hpZlaQ963w7evKOaAZFEwljVpCSWTLrfFN8+C3RsbTR9QS
XDfcn3i7dR7G62y6nrBaAku2s9nZHfPQfeaUxaVBC9D7PsDObzAPrgVFSmov
LKBGafrkdv95iLD0FnHfbQEtHYKWXlXzQCiymAhoMMD4imdrQCOVr2dzVWcj
A4o1Cp3Pd1D5z8kOh1k6pN4+eCR1fB5oj0TNk4Lp4MN4E9W2YQFc6b6vjgeZ
w2K541vzQwtAaN/9JOJqCiLPM0TUuBchdfiTyOlfBuB6Wuu/laZ/gFB+q/P8
qRbIeVR9G7X5A7QD4uYmS3tgyty64psbFUfVk01WeyBa6ujD9CAqjk/X5C1p
QFYd9ZKf/gcirutnclmrwYL0n7rARSr/4YlLMTQViG98VzDw9C/QVhNXDwxt
Bqf3+k9qX1GcGbZLn7EJpJ823HpVQvHboOw77zZAwZmf/ueaKP7ZqPsibjV0
yQgrbKb9A5pdSl11OivInQ1+aG1LccXPgyrPObB8u9rlco4liOgl0kXKZNBZ
yTp9QoDiO4oZZt9lcV7lRPGWjRTv8im0HpNDec3no6GKFD8aM2ldr4AJhlus
VG2XgKbyT0zphTJ6ea4UefyU4rvy5JEGVeRMaXkRbbIMxGWxP5V3tDAtbfpD
PpPiHzN/hPm1UStjVXevyzLQjsx65Z7XRr8XJkIQsAzk/jS+J0d18HsRBs4l
LUO3012fTxsJzGx9Aj6jVL7Rp6oTDbq4lat46JEhjVBumn14fUoPJz8qHk4z
oxFEBmO/h7g+lkQ//JViSSPi2gL6v5nrow37xdF7TjQi4ldm6vWn+nhh2WI6
zo+K3zoT62C7H/tn/lsOS6QRgvzKV4g0A8zJdzgX8oBGjKtJy3dUG2DYyc+s
wWlU/kDHwuoJA1wzkcdxMovKr4nebqdjiPtGzvAcImmE39Z3xTubDDGtd/V6
5hDVX1sJi95vI/R9GJ1o+ZvStyzOPuE3Rk3XBWHGJBW/x5R8pmSMjZ1dIiZ/
qXgRV/J5P2Nk+f5MQleQhaAJ+Lcl/TZG1zpQVFBnIcSuK5uf/2aC8rF5L+W0
qfizN7614yY4byq9Q2YvC0Gk//V4zWOK12u4VSVNWQi/qxbPvQlT6v36m4aw
KwtR7/1fo9VjU9xcfESfI4aF6C6P04g4YIZrhBcXfa+xEDl3fm3KDjBD3sCY
nNZ4qr5qVuTxK2b4V+nxpqwHlJ7ZYpn91gzb0rsmLF9RfhdWR23lMcdG2rEn
xQUsRMQHN44/ouZYfeCP09YSKj5+aqOXijkWrN9QtVDFQjBE1j9ksTPH21cs
klO7KD93yS/2yeYYO/TDirufhRgXsIkfzTbHC/q+XAE/WYi44y6mm9EcA5Yv
BxhMU/55aw8Zd5mj5ckK41EuVoJ0oE2Nraejcb0lzU6Alahn6edxk6ajrkLP
69I1VNxoS8VxFToq//dP7NYWVkIwc9eitwkd+R3V5vbsYiWIoRr2hmA6riio
zHqsyUpEhMbd1TpPx39rrN0FCCr+oeGV0TU6jnzx+9xrTPGaxFDjVDr2b1+O
NGWwEuOFh+XhGR3bY66pv2GyEn5HjA+15NKxZm9m+iVXiicLbk2X0rEsRd1+
ypOViJuB2JBqOr77+4H/wBGqHhZKZdTT8embvtPKgVS9ozf1xjvpmLraX+le
KJWfstAu0E/HRD/aANs5ar6vDgotP+l4UW4zo+UKK9E97yXmMk3H8IvPOXRv
sBI5eglNYgt0DOzXKMq8TcVVC7yv/qOjr26V35okyq9KTqWBxkCvZJut4Q+p
+m2vMnNZGej8p7/9vwxWIlhQqc+bnYFMu5M3LLJYCUPeq+LTHAw0fc1iUJRL
xSXHn9usZKCeUNxfqbfUvjTyq65zMlDruGhebDEr0XrTvSSFi4E7a7O850tZ
iQ3l+V+juRkoJ7tns/tHyj/6Bl2fh4ES0dWNn2qpefO4T7dTvLHPNmZXIyuh
vsXxjhEvA1cRg9opLayEWEr/xHWKOR8ETHF2shI+cwr12RTTFlmf+fdS9b51
n86g2LXv+9TZ/1iJKm6P+FCKydocnWsj1Hnv9/6nSLHYm4uX7k1Qca3AGZLy
i0hxbnoyS83nvOP1Doq7Y3Ztef2HlVA+ZRp0juqX8Oc9XEZjIzgZ1wJzqHlS
Hfvy6zjYiHmfmt8l1LzLeoXLHdxsBHn15/oX1D6cFW8YDwuwEYkJXUqhKxhY
st7n1twaNsKQP9NPltqfKAt0s29kIwL+2q4tYGNg+PDa7UJb2Ijxc0t226j9
d30dObVFio3oeFEcGESdj877clJelo3wsfa3sqDOb+n6CRuDnWyE2BqzYOcZ
OjqfNnxorU71k7EsyT1BxxL3LSNu2mxE3PNPX0+PUPdh1+dzYQZsBMMjSvhJ
Lx27RB/VXjJlI5QbHZI8qfulwxm6/o4FG+HnLfzvZwt139tkXuQ6shGpO0d3
7K+lo1PF8lyJK+UXVTwp+oGOxS+a99Z6UvUqug4j0jEsIqp18DgbUSAzb2+f
R8e/0t1sIlFshKCtwualBEov8NZc9hIb8fT540hx6vkpnr92d3csVe/0L3PB
C5T+0x4li0Q2grYUP2ERQMc/fnccorMof28vJX8GHR0cfB/fzKXmc9+R9G8/
HQv36Y+nvmEjCFXmejttOoasm7pQRFL9r9zDFSZLx8Ui89zxJjZiqDUo6uqy
OTo8lv777zu1P1vgfzBtjoWxf/fz/KDqeSvtjfhpjqfdMjukf1Ln80zFn2w0
x/kVKzgd/7ERG475+Kimm+OcxXvnSml2gvPzlWAzLXOM/P6yU2c7O6H+7eWF
uwrmyO+W5lSgzE6Mm6o+LKA+77b6XXR4voediLOhqfjTzNE61sLmhgU7kUh0
DPaUmmFOzYDZgTPsxNNftw5u1zbDQ/v4tWea2Am/D/cEuYRNcbqGVuzbxk4Y
skj/KOIwxQjLKc2hH+zEvMR9ZctJE0x0a1VvH6b8Dlbs2/7JBD+cTVMtpXEQ
gluyHJNCTVCieLf8NXkOojsZ3/S0GGO7qssm6SgOgvFqpcOqc0botbBL4MIl
DsLwlNhiyBEjHH/PyzYQy0HwCgrca2YaIbtB4fCjuxxEh6kk01POCBXt1xZK
veQgRmLTZoYbDTHizCc7qTYOIuyN9ZNBcUPc+kHttqTyCiIse82bP+/2o5+t
4CqJDopTdp1w7NuHwgn9duybOYko2Qcsqi+1Uf38lnUBEhR/evdSNFobbfwd
vvZt4yTi4j2PSR/QxnhGvVm5CieRVWvfeZFHG3n5ivdGGnISHqfrPj4+pIVL
F27K0wI4iSTpH3lHt+/B/qC9tL81nMQG57BZlQ/qyOp95v2RekqfXHlpLFUd
xWwKQtq/cRL510arakPV8YCq4kxhN+WvdvL5zx3q2DwuPHx6lpPgvNIa/jJF
DasPTXydE+cihuqCNp45txuzHVOfTAVzETGhnl+vOquiaovk4opwiiXyVuWB
KhZZPjHdeJ6LsOu4eWBGTBWrjLIniGtcRHeSomJz307sUyveE/uQi3BqaOVj
ObITN6xprZOp4SISzyt7/QtXwchagfkDm7iJ/oEhnivvlZHT8KbxCTFuwuer
wLR/mjJeL1/3IEqamxDb0lsSfFEZkwo3732uxE3IDIr2dloo49un26/O7+Mm
4jBOYVO9Eo5EGYjdPMpNBEz/UJ3bqYi22mcNq95Tev+hhMRt27FjZlCgrIyb
ODo4IvtsQQ7ds81bij5yE0MyWq/HP8nh0S2iXi8b/lc/rC91Qg4jWd6fvz3A
TUw/1XPZWCKL2ZWLJR58PETUyOsBWXcZZDcP3MVygIcoXtB9x9oojZdXdP1d
dOMhUjdtefAuUxoFUL9i2ouH6B/fmp5+Xho3Kq+1GvLjoT4Pmi4L7pZGJaF8
v7ooHiKx6OqE0QMpdGieeP4gi4eIEI6s3nRKEnOdj0lo/uUh/OLvx6sbiaP7
6/HNqSy8RFiIM7eOtDiu4Q0QXrGSl+hf8tsVwiKOge9CBBtXUawc3XGrUAw1
18QsHdrGS9A23hmyVhLDsuq0truWvEQBe3HbZX1RbFJtjV94ykt0yK3N53fd
iBeuOMa6ZFNxT7+1NOmNuLu361LlK17CkN4+bzEsjInXByJulPASxddG09YG
CuOB4Ulf2SZeIrX7Kf+q+A04mMJnYr/MS8gHaD0Ia1+H89z72N4x+QhlbzZP
k9zVKDTKn1DmwEeoPxCdyY1ajdsb2qRqXfiIDbTrWm52q9H5jv/+H4f4iKN5
z9MTaauxXDLtEkc4HyFy/0aBm7UQxmqxCFpm8BF6fz2vreFahdK+KPJrlo8g
tlwriTDiQx2LKy+m//ARhoGcwtosfGinaquzROMnUjUDowPf8eLlxVGXVTz8
BOeBO5LO23lxPFo0XW0LPzG0ep322BoeLE45IxtlwE9Ufbn3LW6JEy0b9uze
nMhPKHsZWD7exoHce3hKix/wE/MtcnPb/mPH0kdtJk7p/IRMxH5S8Qk7Kgef
drufzU8E90jdq5RhR/4tb68KV/ITMRcXrrOqsGH1UZW+tZP8xHhK0k9eJxaM
aGbxfT3HT+Q0bxsJkGRBdaJh3vof1U/aRJ31LxpmrPbjT+AUIBLKju87HUbD
qMIXGkJbBIhxVtngCMPlEoJTNo7fVIB4GmncbCD0t2T+xPzGbAsBglDknvF4
+afkZfvHx2a2AsQGyYZSB7M/JaIvvYquUt/oXPfJNtVcWSz5y3w0yH1agOCM
K9x9W2ih5G36Fu2VGQLEvExR/rP9syW+fGMfM54LEKmCnh9fjM+UbA0qsdyf
S+nP/xwPuD9TkmB8wOdCMaV/4WRrMDVd4j9x7ybbVwEi7oGRb+vzqRI5x8Oi
6a0CRPC+27INjlMlPRUaz/Z2CRCCqQ/ISN6pEkZia8m5n1T+mcEIHr/JEk7W
p0biY5T/2DGFbonJEjwS1EROCxA+r7WLfZonSgK/7XdxXRQgxMbeTaZfnij5
/98HIGiR//f7ACX/A6cTNPo=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.518959349659622*^9, 3.51900395402853*^9}]
}, Open  ]],

Cell["Better, but more expensive to evaluate ...", "Text",
 CellChangeTimes->{{3.518984142121707*^9, 3.518984148502904*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Sign", "[", "x", "]"}], " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", " ", "-", " ", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"x", "^", "2"}]}], " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", "/", "Pi"}], " ", "+", " ", 
              RowBox[{"a", " ", 
               RowBox[{"x", "^", "2"}]}]}], ")"}], " ", "/", 
            RowBox[{"(", 
             RowBox[{"1", " ", "+", " ", 
              RowBox[{"a", " ", 
               RowBox[{"x", "^", "2"}]}]}], ")"}]}]}], "]"}]}], "]"}]}], " ", 
      "/.", " ", 
      RowBox[{"a", " ", "\[Rule]", " ", 
       RowBox[{"8", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Pi", " ", "-", " ", "3"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"3", " ", "Pi", " ", 
           RowBox[{"(", 
            RowBox[{"4", " ", "-", " ", "Pi"}], ")"}]}], ")"}]}]}]}]}], ")"}],
     " ", "-", " ", 
    RowBox[{"Erf", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "4"}], ",", " ", "4"}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5189592189670477`*^9, 3.518959309610264*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt3Hk0VV8bB/CrEDIlUz8qc5KM9xZiH0kRkSSJjE0aSOaIbqZImZpUMidK
SJTEPkIlESEhZR5CIrOkd+/j/as+6/s8z95nnyGt1krS6az5sWU0Gu0YK42G
f1UihIf+/eMrQ7+lbZXnhmfnpMPn5pdsW8kN856pyk1MLbniCA9Ukzdx6h9e
8vVsXrh1VUhbzRfKEqsL+KHvh1jftw2Uk0X5V8Hi0CThslrKDmyuq6D2fLH5
s4ql+lfKAlC3Z7z6Tu5S/vTDanjp/j/n648od3JoCMLygzwrrj1Y8p0MQahf
I7+DeW/JN68Iwd2F9q+OX6bM1D4rAs0v1z5Wt1+at+25GLy+/evuzdZL+/lh
LA6b/gwOyB1YWj+5VxxaurHK/GdMWddp/Tpoc2hbAm3rUj5nKwETVu/Wmlel
XPahUAJ+r7VsmVCknOfEJwkd9NwFB6SW1qNVScKjm7Ku1vJSNpvbKw0f9D1X
eMdJWWX4uTTsT6qsKmOlHDO8XgaeFOxkLZjnpep1Z2Wg61/hgLv9lGn2FXLQ
py7E5QSkrEvUKsCrw95fJouW6jWOb4KpK05uD3pGOcZ7mSKsIUyE7mdSllix
czOUyhMqbYijnHd6Uhlq1KzY4HCNMpO0UIEmg3MxPy9T7qQ/VYG+Et+PcgQs
1XO5qcKPMRnc4ATl8FB2ddibHe/9wZGyQ9Q5dThXdaXT6jBl/pbv6lCG5WyB
x76l/Rwuo0O/c1sPZ22jbHgheQuUM696LMhPedCtUwtquxYLpXJRrvfx2gb3
Xcm+qMxGOf4mjza8UB6z32ieh1rfwkAHNqgd+nOxl3LLw24CDpoaH+PpWLLQ
bl3495RO3d1Wyp0PUnWhfJpkWuFHyskWNtthwOoho+EiyguTPXowTrm9wPcZ
5QIl4x0w0/jjOvYcymXBBTtgQ3D+b4k0ymNZ1/Sh/KTfXctrSxax2QWbmlYO
vXakrJF/xgheOloIHx+mnO09bgSVJu2u3zxIeU+RrzEMX52vfdJkKe+M2gN1
zK2i+TUpM/m+msKhLpaj8+pL18PmtRfGn3us0atEuWaEwwz+jlnseiGz1C/3
yAxm1KXT7fkpC/9a3Af325ty7l5J2VLMyhzSfs18U2OnrPYz3xxa8xpfZl/g
xj6a5LIf8pmMtz4ZoCwjOGsBfat1Li5Aynftna2grPXA/v6XlOdTO6xgw48Y
+foCyiWrDh2Cipy9n9IeUW64bW4NuwyuyBjfotxu43gYRn1Rn6PHUu7lHT4M
tU98q113lbIu8LGFt8JUfH5fopyqc9sOGr1pfn/HhfK6AH8HOGPBTAx2pryi
r9oBpvdu9HA5QnnVSzFH+G95gPj2Q5R3wteOsEBP+uygPuXpX+uPwLVlZwW3
ilOu+qZwHNYIMDy1RCjv4Ys7Dv2OzTfqCFD24vxzHDZzhV7X56B836vhBIw5
cFfAfHIl9byyxp+EINPe/cAvygHmvKfgz3mZBqshyqEPw05Bo+TcWPtOylkR
Aafh8uFKfpcayhaSoS4wX+eKm9s7ytUJ3K7QIWZvvUc55cDjt1xhCaMt2q+I
cjzX07PQm/mLNzwdm3mnkeUc/CH0H0/aBcomidc9YLxzx5kMH8pOSiMecNer
9Josd6pfQ2uXJ0x1UL6a50xZ/NuiJzz8WH8ltKDq4xeCvCHXIufp13spdwoP
esOXZnXVlUaUVTtMfaDw9KErH3Sp/tYbkr6wTvcsZ6siZW7L9vMw8Dr9ZPuG
petJ2esHFfvnqjqkKE83VvrB8MiQ8H5Ral4ZZ6E/1Gu+s2KSlcrBjScBsPB0
JRvfNy7ksgNyyy9BDQlX1Ywv2Ey9nRaXYHGTiK1OAzYt7lPGJVimc7rg9DvK
543MgmA1n8CRqqdUvdPpwmBoUvkqyj6bmvc2VSAE1vseK57OwNbV9DsXAj93
Fa2STaByLxl6KOx8Zl92KYzq36HwMQw6OXOOiF6icjtZzcuwT/yZSJ4/1X9z
7sFlOBTKfva7G7V+v3FoOJw6+GTtNhsqP+tpcwVyLcz7TSpT/YZiLlHwWl56
RqQCVW/qPxcF+Y+ZNkjJUvVR2uHRUOhjysZ9/2EnJ4dYxkCJZMOWJ6zYDvZu
V2JhqsXv5Tv/ceL6wNy2WCjLmaDcPoctEWugGAcV3H+Fcf3CLpOIb4yDDP1b
jBOtVC5sqX4DFs0SjouN2J2BM1E3oNaTH1dvfsR2+Ltu5AbUFdbprajATj4g
+vgmNBrsiZPIoeo/O2rfhg5XVcdag7BpXGz5d6FfQVxYbQA2U45D8h682T4h
/tqXyv1exd6D1YrPd2e6UvsVMfZNgOq1Wmne1tR+8kusE6Hp1D3NUweo9SN+
fUmEzmv/1tmaUfO2sx1Mggku5IL+Lmo/In6bkyE7r77lajVqno2ZTgqU2PJg
hH0ztpnN5+AUuM2OPXh+A7ZK+YkPKdAtpyq3ay12/fUK21TYamrCmcdJ1Qe9
jk6D2dGWJXu6OKjnc69iBnz74oW5bjsHdb7M0AzY1SH6Q/0Ldv2mfx0ZUFjl
q5BYLXZZ/2z8Q3ix3v7sjyLKznZiWdB81UmpsBjK+2WOZ8MzmtVF5yOxO01c
m7PhZcdNe13CsCUSLAyfwJKnP/0tLlD1H1aq5kBZc/fPUs7YohH2K/PgbJx/
OElQ/SOS4vlwQPz10C4tbPmnLs75sDmD3eQjHduX1lOYD58Vx676thF7ttDa
4hl07X54d341Nv/5yaQCePjMz4VLvNhF2sumC6DxtJo9Jyf2WIWNSSGU54LS
oosrcL8aK+057FFtymYMUt6Y7fUCNrxaw1favYJ6P+40v4BlO+3P6X/D1ng2
o1EEEw8NMfY3YNNOiy97Ca0u0Ui3Euxkw+sZxfBjveKnxzHYg+Et2hCWWLur
q0di13OZvIDwce+Lm8Wh2PzCEeokDJ/Vs37vR61HvhAtgzskDvX0H8UWT6mT
fA2LzoZOSWpi31gWfqQCPpyrPpiljl3V55FXAW8F8xerKFH76fZerIAet+8F
EtLYVvT6+5VQiXy6wpYHW6WIPvQGpvF+XxPfxY6cHsNRWgXjbIgVmu3YI2M2
Yu9hUGbyZGszdtWTab/30EnvSJ1YDXbJ91WgGkp5D4YkPcdeeGja9AGmfvv9
KyMS2zcjUL8OxilYfDMIw74qrfqyDgb5FFYPMql+lhci9dBple8DBW/syog9
MfVQcudf6xwHbOfR/yI/weTsFW8LGdiDBw5nNcKYOednlirY1f/JjDdC5q7q
5BkF7OmGL5pN0KHzqr+mBLZ+NM/HJrheUEC1lAv7wo0FlmaY6C+eUNnBhux+
x/RuC4yqCog41oZ96tN/v1tgoFCHN/tn7DjHf0at0C43ZZ9hNfa021paG1zb
I7eipgBbapDF9ytMMFJ1b4zAPtoik/Idyqw0qq4PwQ6vzWPtgI8/OEl9vIgt
s/vwyQ5YvOdGQ5UXtrY1r1gnej9n1KAjtqxe1WgnFN5fOpGpid260+5ZN0xc
3WycQcfmcqka7YayTaNpacrYynKtCj2QfkDCIlGWmrd/Mr0Hmh8MLri+CvvP
Nu2UXhhts9sr8Acrss8v11f9UFjcqda/F1vq6h+WAZjY7id7vgOb2WKwewDm
2GZ/9viMLS8i1zYAa+z5tpx8jb2jagPbD8hx9PP0/jvYj7hLLg3DoDOOvht3
IzN7RUtixuD3KLuE4h04f3i//s0Y1HpqU2YMsDcb+fwZg7+nDnC4qmP3T150
HoeOF43i89fi/oGa5N2/oW6cetG238uRZ2W3bJyECQUq7TUjyDRWaRbnSTjb
vJlmN4BtTXd/OAnzxOQNme3Yn/ON5afg+gfiLZVvsd3laWrTcPEF26zJPWzH
ttjjs9C6bZl4x008P+XkobxZ+HzhH+EWg/Pk7q/zs9B1+/zluFBsmW/CcXPw
W/WoyJezuH7+vyvv52HJty9bHfRxzj8XbfsX+i9/5OP+cxmyKmtRLAvpeseO
3WFwGZ7/XreMhXRSXn3TpAe5zI+5+RcLaWRzIV++FXuym266jBR9ZvrzeyWu
37eHa9VyssBpwsk4AVnXZEL/ESuZOftwXOM2rj/XYtzBSt6LOsyUi8N59DJS
kI0MKn5znyUc9/+TH2GykfsE4lteeOD9/Hl61o6dHH2tbSpjjPuLF8OVOMju
g+Ptq3bh+gH56FMc5OefD07/08XzGvdxPuQgS9bwRbRtwbnkORtJTjLyXFdF
jBTu/3A8WIyLlJcM0/w7x4L89aWeHDfpyKyTac5E1v31WnIPP2nZmgS+pWFX
WHGf4yeN1NysehORmV2R9Fv8JL2X/+rvG8gSsWagi5/kMDSf4L2Ec+5BLb9V
ZA7f59cGh/D8z6t/vxAg/yS22b3kxPVrAiadhMixmUe+Zaw4Xz9dES1E9pr5
x737RyujOdiGN5YIkR+Xib/9PIXcqfcvX0SYTD1uu/l3Fw2fn4RHvTBpqNT5
R6EYWWLDrgkTUfJmaV98wilk5uENIb5ipJ3v3cCtx3A+H0A+FSPl1fcebbBH
Ts7z2TEsRhZnFilzHEDWnTknYy9Ofr8e+daDQKZ5fNphtJbccEp10kgQz/MW
erV5Pem+eT7xt/8/khZzLyH2uiRZ3CHPnS21SNL4b6hy98qS0vy6ehaJf0ia
bndJ9VUlMkqly+/UdeQYWxpPvhI5axb0jBmOXK/fB74okTWxlTJP3JHdeGJd
JZVJz9W7V7Ab4LxNabBAmXwrbF7z4tc8SaO1dX44rUKeWnvUUmw78ljOD6Vg
VbJJhy1adQv2LS+OG6oksMt4Z7AJOaZvfW26Krk6aVDDUwiZ319B+K0qWSLh
Ilb7Yw7NF4m+t0KN5JXx7gyMQ47ZSYiEqZH5CuGnuntmSVpVBe+Eizq5/pPD
y02tyBIP6XL+6uRVH00Or484v/BYI1ydPFY59GDFS2T+RL75FHVS1M6kSzEK
ObPTobdRnQyIFbDy0UD27eZjV6WTQ1uHM8o2I5ttub5Mm05afq+Y4pRGjnmX
1bKLTqps8rqewIPXS1fnP0wnuyu/fHzdPUPSmDHmaSF00nA2YSf3NeTkPUX8
H+lkYaLXjQNByPw+Q4HNdFJqp2lPog+yW0jk6+908k/sP6aqEzJtYbh8lE7m
bHIqsdyKHP9aIIebQYo1aK1MVkRWSU99sZpBhvuutv4hiWxG2lz/j0E6vqmc
8edGttLXKNvAIAXtN6indE2TtPCGg4MEg7zERgsaakaWUB/038kgRx+31KvX
IBeNxHcYMch3sxGub5/j/Nop4QMMkp7kVMqXjWz2XOjHIQaZvHMb96EU5LGK
qSt2DNIvbiRrOBK5U9Vr2wkG2a/xZpZ+Cbn++cPdpxnk/o77BoHeyINnGXJn
GWRZqPetd6eRW+qG6t0ZpKLi3j5+R2Rnr5u7vRnknYYNdGtL5Ewl1pjzDJL9
PC04zRjP+8OefoFBdrx5KrFlC95fJy89iEFe2D+nr6GIrKEcGBbCIEW7dE9q
SWHX+WaHMcgC1/Br2qLIVgXtD8IZpNlC3VPAi/0u3P0KgxyJEGnWZcXrDxwW
uIrOU8R+Xm9+iqTJj2iGXmOQMg8y1u0cQ3Z7yPIhCu1fbVTPoB/ZauBWTzSD
PFzGOLG7HbnK59vHGAY5axIQadyAHC5TfDWWQd74WplrUoXcWSywNo5Bqpzk
btoL8byVHy8i10zvn91XgFw23FiA7BxyT9ziEbKoBk8JMqtAj65lMjLt85Gb
yMlJCsesbiFzPC3XRdbe7B5hfRXXvxWCaL2W4pdPDgchO4gZ8SB7GrI02Pni
9d6aKKH98TcbTju44v6ffJJo/9lHYv47chTZ7C2zD12v4fgXcMwa9yfE+qPz
6A1cf+SEGXJyLb0Hndcl7hOXT+7C6320FY9gkOvu5jw+rY2cJ8+y4TKDLN4w
XeeihuzMFFweyiAtC3Umz8rj64+NykP367deqKj7OmQN+gllJoOMqq/R9hRE
VrG+fTGAQSrYCTp6cyFnrl6T4scgnc6nZflNT6LzFP530JNBLrIP114YQTZc
Y/vTjUHevaH2O7AbeVaaZuHCIBtyX2sFf0QuUhW6eYxBuupw2odWIscvRJx1
ZJBcH8yCLxcj1zvsFrNlkDv6Oz5EZiCXiRT372eQnR4bxq4lIHPY+LDvRc8X
y1nBmDg8f83tmd3oeRJfPHwjENkqQcoUvU8y+8VHEyyRmbcf1aL3razziEDS
HmT58ILzkuj5cH28JUUPWdQgfAa9nzcitC4+UML7mW925kH3t8yKP4cdz1M7
KDNGJ5NNkul5CxPoeo/8dBikk9pfB6zyfyNX2fw720knPae9U55/R85rYGOv
p5N9ijfVyOfIReGDgk/opELgg9HBx8gqHQPr0+ika13hI4EUPK86fDqeTs6e
a5Y6HonzOy4r0PeJ64XIah4HZN25vaUH0fds+90Ja05k0Q7ex1PqpFfco9yQ
xd/ovItfRgyqk8U9xadzJpDrpwu3flUnd4R97WH5jvM09FOEOmn5QbwpMx95
lifA9rI66X8gqWDaBjlzk84ZHnWyLCPXTWIfsqgd57G/aiTrLKlotAuZI8FK
7acaGXW3M/2+CrJDzV/jGjUyuUPypj4bcryIeFi4Gvn2ZLpXXM44+n40pZ2d
UyVXBWZtUWJBdrD5I1umQoY9l6/inxlD9+Pgwc5sFXJ+9OGhiRFkDi6ZS3dU
yG77jAtFLchWq1/4uKuQ+dvTyvXykEVPnteXViHN2e6bHrRHHkuu8WFRJjes
kayl+f9Cz+9K99OHFUnFLb8UH0yMoPPjyApplSOPK128+PIbctnu+95ZcmSS
HF9D7Ttkh+KBs+flSAERZZ/pezgnJy+skSNnZlxfG+gjJyd1rreWJctfjh4Y
ujGM7qfOlP93adJKZzRQecsQ+r4ZDNfMS5BxjMBPOySQHe5fLayVID9s5pWx
4sL5EMfbZAkSrFN6z/z+A+33kLCTgQQp/c9ldUMYcpmJlA7683+07OdDzy+D
6Dzun3ztL04G6/+sf+k7gOYJbTt2UoQsNxzZSz+CXOaz68ZaEZJmMvwxxwSZ
eY9Nu0GYvHDgR02aFDJtNnBOW5j0Pt5Xda2mH52HzsZdokKkc/i3MkcJ7BMZ
nf0CZMbVdqKdCzk57PKyNAGyN+YrtJzqQ/NXN2fZC5COd1pLjKuRdcdWRbat
Iq0ffS5ieCIz16542MxP7qmpzeOs6kX5drd9n3jIK/U1yiH5yGWMmEJrHrKq
6UPOYgJ2TqZqHze589v77IlzuD7B3uPvShKMvsn8JoZz72jZbVykCj9Mfnq2
B80ffnBkmJ10FSxdr2iNrCuobB/GTmaLliRm6ONcvcFDip3cKFmccG8NdoTE
gC0bKaX2PD60ohv51M2hruWkkEVOzCER5LJ9fwfWspD5cpHFO5fjfKarto5G
ms2d6FX91YXyscGkIBp5JVFSg+sdMnM+iqv5H1wcvNFR7I1Mu21w4dpf2B/g
ryTe3Ily7atq5nMw2MzKiqMcmXba8UnDLJSQZgRNPsHeVdllgf7+UDX6uSYU
1+c1u9jNwI8CTgEBDOwzunWhU9B1b2x86cYO5MAyL+nfMHPSaOQmC/ZYhzUc
h913WHVdW78je/nVWY9Dy16fgXUR2Mq2NvFjkDhvt4U5+A05OWO/8Sj0Wyd6
xaoMmcb7z+XOT1hQ8embSjx2f6n30AiU590Z2mWA692ltW4OQ/60TU16D9uR
m/qbuH9AI8O+DWIXkWkJG3LPDcKQn4n+E5bYaqv0Wwfg7FYB6XR27CkQnNcP
u2pmz7Ed/4r6ORvvBvbC/Ok3fFUybSjffnnL9U4Y9Si1HMy1olziLU2kE562
u+hVWItMy335V6sDyrzV+Jrqjd1a13f0G7x183FGQFULcvF75nQrdN8dfmgy
Aft3q92GVrj371Hu0+ew9QqEbFsgx7F17lb/YYNjb5uboR89Vkf9zBfksP3b
WZqg5aDLWJYudhyYsGyE6glGaRJC2B1Dv/Ia4MhyVk5e2IyctDP43Cdo1+jd
NMiHnTluvusj1Lq8/7J972c8TypWrRaKbFPRai7Cblm9V64G1qf+SKpwxJaX
KZeuhnruh08nPmtCXgxrdn8L18lprhMKx16meOT2G/inVehT5GHK+46WV8KC
7XVbzrNhQxe9TRUwZurxj1+tjXh96Q7ncuiSFZ5wPAdbq/Vs9msot0pvmcVB
bC73X/plcNmbdYXVm7AlpHXVSdjh++fEdhp2lVXMQCmM7yyoVcpqQOYI43J7
BbnyNtzh/PMJWbumY+457D/CuodZh72nW2myEFaIdC1Op2E7lN2cKYAXLt49
2rsH++qbatFn0ErdR8RGEpsZqLAlHzIG9ld/mqpHjt/wxuYpHDXlUSETsWlG
jwNyYfWyoW6GB7ZDVuXME/jw+dub2QbYGra5zGxYpk2bUe+qQ3bTO1KaBR98
7bv2I+Qjsq9gwJd02HZBOOm+OnYmW1ZdGuRdZ5C3r7sWf99WSzWkQm+HzIaX
BHbmlubJZPiIpbXHZbQG52cuCSbD76mcU5L3sSV4C/wS4a6+UyJX5j/g+v9o
++9Bv7B78iALW17/WssdmLOhRvP3QezktkOu8VDk1ObD1oXV+HoXcqpuwj0r
7Vx4j2LXC2pfvQGZ2VGB5QLYVYWr7K7DwdFfyQpu75HLPhcpxELxGIn87+uw
dVVSZGKgmeq+irjaKny9cf8ORMEij/y+eQXsGKna51fgiGDPdE7rO1xPKnNG
QInnqzmOhGMzzaXPXYYRs54KH/reYr+9HhgC4Z0H2y7ewM6TuiwVDH9rNe9R
34HdeXS25RK0Dth69l7yG+ysvslAGLXOmbl3L7aEm2LVBVhOxscuX6zEedmX
Yj+osGz+2WkbbKab7Jw3tEtTeLOei7K2np4XjNO3aW4sqsD9xkUPPODbvsiB
yyewHXStpdzhfFjJ7DZh7GS15S/coJL8T86xynJ8PVqb37hCp/drxdI9sMtu
0AzPwA8rL+pwf3qNcx/bqhOQ9iTXtOwiNnNs4PUxSDfttPdUwkZfkI4j0PkX
/zn5b2XYIcrrnGBCzPag9khsJrtJgAOsV3W/HqNFeYI5ZQs5Mnbujmggcf2O
1xttYIsCR9ShaxDnVndVLaGuy8m810OlONeQ/rcfZuZWN2w0xGZ29s7tg/y/
N03FPijBPrZ+vRk8T78mMr+M8phtyx7Y7T2q6eTwCvdfEi7dDY1e7j1cXVqM
rRc1sAvm/8kLVBOjvFFivz78Dwik3PV9iX3H5s92GMT0qFjWXIR9mL2IgMPl
TX2n1CmvEO3eBi3YtnA0xrzAjtVw0YAlBrcVto0+xz4nZM6AMldm96QZU75T
HKEGr9YcOrsyqxC7N5pHBU7yvor1YKcsmpuzCdruEy/4eqQA29qqfAMcmZjS
9Kp8hj1iZSMDL9yqI3llKff2WUtCbs2snZmh+dj6Z86uhQlfgz5s73+KbSjd
IAoVAw/v+7qL8tGEWkH4SmLLF8+Hedj1N81XQaMKPlteDspWOQ+4YcGHhjd7
P+VQ/RZBK2ATf9inoLgn1PknSy2HEwc0vxXuz6b2O9CxWCpwb2RwUPAxdvjc
o9lStc6kSbHmLGxfPeZE6T7Z/bS9tzOp9T6fHy11O8XOHWT1EDvmVNBAaUzu
S5HCNRnYKkOdXaW5k2ekB9vSsXVdKtpKP2pKKIslpGFLHHzSWDoa2KhlapuK
XfbEuqaUpzJs16V1KdTz92y6otRKwDPdmUzCpik7vCq9ndD26uP2+1RerpZf
2iy3vZFeeZfKzQ48LBV8+nDo7q54ymRqQun+bbzLWN7fpHwiO6Y07o3nmhPG
1yk3bwoqrd/7VaW2Noby7Bb30nUFwTHHk69SrrdyKL1XZUaqPbhMWUV7d6no
t7Wji1lBlMtIpdJNPZ81b9n6U2buYS2V43a7rXTiHGVaXoU2s0m+SazCdil/
PqetyPftFNtmfYLKHTu1m8eDkvhnnZc8010ytnfD77Pu3kuuXtT2v76r+jSd
SZn5WkJnMfD8vSTl0KU8SluHeSr7TKPCFcoqHRY6yy07dFbIRVPWnXDWqZCI
uHyfP45y5QY/nZBbUm5bo25QLhgP19nFXWL1aeVtyh+EbumsCDqw/XTEHcqj
51J1qmZGN7KtSMBmFtk+0bniEi6QFJJIOcX3uU7GeEyA+KVkyiwpZTph2d/O
/SBTqH6W4Xc6J04oHH++mIotIVZVr2Mo5WMdrJNO5XLcX3Tkv1WYml14gK17
i7dDhzOef8faVxnY9RbXe3WGzG23Ds09xDbb8HVIp5rn0aYXGlnYnTeNxnUe
V02vD/F5hD02vDilczV4h+C+54+xOb4+/qNzBsRwrJvKxuaf0WIBJnPtC0Pq
OdgOl/XYgFLBxvEX7rnUPMtlXCB86yv3cqs8ar3ZWD4we6NrRH6WMocr22rg
/HvFiejbT7E9t1UKg5a9Sl1TW/KxF9YLigHDJxY2h5sp+3kukwAvufw/l3s9
wx561SgFkjcLNeZKFWA/0tgnB8LMcusT6igvqpoqABeP3R8jLhRiu5FflIDF
rZ4P3hufYzcM/lUF214GvD/STLksoZcOpNpF3pkFv8B+0LxBA3D+e1qpo1KE
zT5Qtw2MSe4pV/hGOeF2HwG+6PeTIldeEvjf64U19QA8wSxl3VqMnVZI6oP0
K/+9Gu/Bpq36EGkAIp8UFH2PeYW99lWqEXCvN33+QacE18tt5jIFVhODz4qG
sGmR7L1mgBAOfvrgdim21a5xcyCnuTY3Th/i+tMCKgcA9+EX2RfHsWmWH9IO
gonAfY/OJJI4Pzm91xr8rJ9qzJYtw/kOoGELHLrLzaUvUC7RVHEATRPRn+40
YDP9d/U7AgM2WzP+ja9x7mhRdgQoyc+Y/P1M2UPgxwmQqllZ46FYjlx2UF/7
FBAyjjUeCsKmafmXnAHhh+2qHVqxdXduOnMWLLhs2v1FuQI5+c2o3Dlw9uLs
O5MwyhKi+e6gO+bNrsp27DL/YStP8P6Zvf7TiErkTtXN/3yA9hvFig2d2EzD
UBY/kNc8tz1xyxuc/7OWvQCkB9+WCV7D1v0EzgSCW3PXicge7DyV/tNMwLXS
EbJovcXrGX8uuAQCxJV0fGOwaY1vVgWDo0SV1jGdd8hmXIorw0CL2c2XX69j
8593y7oMjJ2cNMyHsJkd++0jgFroAoO4XYXXi2gSugYe3HpfUPgTO/m9q2g0
EM28pa6o/x7Zedm+ezHgX7WK6ppxbLd37H1xwL39b260QTXlIokboP9ntRJ7
IrbDjNOZm6CG/5jihNEHZKvaYUY80JVSe3wyBVuiaKbgDnim/m9j5wy2g7Xl
rnvgruWdDbXpNcgarmGpiYDX+XjGjj/YedqmW5PBpfPqssX7apGrGO82pADn
hFqph4vYDiEHN6YBRjfLuktWdciD+rFFD4FS8cFxlSzs5JG0vkwgF/eksnMO
O9xt67pHYGVKNiPZpB455seaZ9mA49rB9bNe2LO9K/hzAOv5ZZxmidhmbwrO
54IFM6v2f6PY3ISR1lMwq7387UGRT8hFYOvyfDApn5ObS2BrfFZozAcjNNZg
+xjsScuG8ALwLS93I6nagNzrMLW3CLQlWK8WscZW2d9/4CVoDmf76xqEnb5t
x9Fi8NHBpn5dI7bi9oW7JQDyr/AJ9GxEbl/3qbgMFC88dWhOwM53Xe30Gjwf
PGyk9Abb0m8PbznIKctf+12oCTlzmN27AiS52VXqvMD2Pns09C1IOMyZc7MD
e/q81MF3IN6w4PbPFZ/x8yKTrlQFYiS4Tt+3wh4bsPn1HjDrC1f9ncNeti28
uBZcKHH4YyHVjPxbxaT0I/DNXNmXbYTtHpT9tg64MR2LDt/D3jbfOF0PHFV4
7Eu0vyAnzX0waAR24kWGgsewn574r68RWHMcUTtzDVt/USasCZh3FrGJf8e+
35fR+BnoxRzN9r/Ygt+vscH7LQBc4LvV+BDbsSDNuhVoORdf3FSPnVERKdYG
1HT593+VaEX2Txd/9BVIj72a0yrHvptf9+c7uFC7I2TyJ7aBre9oB2h+9IE3
Z00bQWO+WmHo0QmuHPsqLXkO+47lI48uMNY2b7JC4iuqnx+9casHGBUFtZQZ
Y5fPJ8v1gvSbXEf8fLAlNma/7AUHzf7z/fkRmcm9rWewD8A3mqmNAe14/xrv
zwwC0bTXiteysI9frxD6AdyZu1/s+owtn7is/AeQ3Xao5qXiNzw/zU1mGFzN
851O+orMvGI4vWoUWN97YXRGswPlfw7YG/8GBb7EZ9ljyEydmZFXvwGv5Tv7
jhjsK0WHlSbAa/4vnuaD2Fni46KTQHCH/94E407U/3ijGds08C+6ez5oHruR
t15nHsg//A7s+bvw9+mT8Md50HRTilVbDnvPMQ+HP0DJ41HU1D7s2299IxdA
9+biNOcsZKad6ML8Itid1lpratWNfCDnt8QyYiw05/gbF+SyOYVc32VEvHPw
v23B2Hz3Aj4tIwY3b1bdmIPra2X2hy0nwouYN5az9qCc7cDvBVaiqnaDTVFu
D36e359ax0G45S1MKL1B1k06G3qZgxC9/unqgzacp0QWjXMQzlb+MI6tF837
a+j8npPg6Pko6WKDbWM2ErqSMJj1GpRc0Yfqd6pbqPMRo21Gl+LFkXVvn+5+
wkfcKl3/H58actlNlXJBfqI/6L3xwmFkh7fWtDh+IoxnbW5zPs7vW3fHrSLe
SlV6Rdr1o36e6ronq4mdJgLLpwoHCHR8Bx/sECWiHDnH594jS+xO/hgpSrR4
0ToWvyE7yKw83CRKnEocLeZgH0T7M8xPOr6GiPpV7S5uiazLrpkX/R/REhvc
vWMaOyZFZEKcONU8+TpuyxBav8fzzh8JItr+C1PlxQjKKz7xHpAjwka0if4a
7BOCd0LkiMDzqX/vdSPzX3TYVCBHuF538VvB+5OgJZeVHFm9gTB9t9zz+1Fk
ZnQna8MGgldZ5cRVgVG0v/WF/Hs3ElGL4SaDLr9QvaWVi64iERY5ujIxGHnM
tL7OVZEIFLWo3n8HWdfVXvi+IuGqtt6ArERWkdIxnlMkNjyzlvjAM4bykOP0
vM3EioGxNalHsV1mOUWUiXema3nMBMYJWqZyW1SnCiGo1CXsLo5Mi9t2a0KF
cOB5IHFDDudVHkHsqsT8B0V6ixayhkfNCkVVQnG3to3DEeTZi7RXXqpEzA6b
LLcCZI7eqTPL1Yh2qfXP4iByONdCnKAasXFZT0lBFXJnHnlbVo0oLztVP9uO
83khbQM1YkrHb4bJ9hutl2zaH65GWGvc2RlriVwfF+bNpk5kiNjufeaATFuc
tBdUJyamJQ59PoXcEjcoJa1OXC3MPLPmIu5fS6frqhOkWtH1lIfI8qdPXfBV
J2Q2f+l6Oovs/NT8RJc64cZ9b7hx2QS6n0Y7qn6qE6XDdlNT3MgOKpGLc+qE
5aN+Di1J5Pgf2kOr6ET4hmnl8t3Ihi2biwg68VNSKLDhLjLT6eCy63RCwz/l
3Ot05OSg024JdCKoafOxvBxk/sQ7+Q/ohPDlXXuiypHHxArzX9AJMOLzn9EQ
ctXf7YmtaP5OVl7NSeT6r95ZXXSiITGGRX4RuajrzeUfdOL4vqxBNoFJghYj
blg6Syein7c9f62JrLKDwSnEINr4TjzK24FcfzDykRiDkDk5cT/JBLnzmf46
KQZRJMYdGuCIzB9874ISg1jmFe975jQyx5joCTqD2PNR5oyNF3LR7ZfSWgyi
k6mzXzMCeZBXdfVOBqHQ9n6X/HXk5LGxnUYMwlPdUkvkPq5XyTDayyA4+l0l
p/KQq5zq3lsxCHPij2BvMc7PMfRtGURC/GWOxkq8PxGvGEcGoWqc/CuvBZlW
ei7xJIO4kK7Yk9SN91u/0cGFQbz9W9QcNYIsmv50wo1B8B/cWR0wjZwXznnI
k0FY530qPUObQh5Wi/FhEOmcdk9tuLAtVO74MYhRp6F0I0Fkh6NsngEMIkho
+VV5eeQYD6OkIAZR4xp9UUQN2Uzh3a8QBiFcJebBro3MP0kXuMwgHCQzj0/t
RKZ1JbBHMIhHfnTr3r3IooKctVcYxGRjmUnjIWTd8pBjVxkE2GyyvfwIcpWK
eP01BhEe1kp/6oLXL2jnjmYQjR3H5JN9kONzm8RiGMQ6zd9i0ZeQi2JX/0V2
jgvkC4zE+/mclRfLIPKHuZa73ERuWczcEscgFvRvT9skIUvck45G3pUoPWSU
hfcLNhcjx8zkftN8hjzGbHuB3Gam/Um+FOcs28ORZR5VVYq8w/u389mE7Lr8
QBH7J2Smxs0UtF7R4a7HU23Is8rPhtB+lj13SertxXnXEDvyHr75uMZRvH6/
5XQUg7jlHBZWPos8WC/wEl1v52sBv6fLptH3YfO2veg8FMSSXJK5kWkBP4vQ
eXl5bnKMFkaW2Go4HY7Om+tXiaUkzsX0v4ah9ZPyRdcp4v4Iq6voflgzvD37
tiBnquRxovu1UK1Zn70duYjDZ/9FBpHo8HeT5x5kK9O2kxcYBDFddnnbQWT5
Sxwm59H9ljQkqs8gtwyE+rmj63+x8l6sD3LZHo03rgzizZ66aasgPG/e/9sp
9Pz6WuYM3EZW+XbFxwndb57/uHJTkUXby+fQ82uc9u2Y9xNks/xjRocYRNTH
o2vZKpBj6A0H0fOvclT+fE0t3n/7KiH0fnyaG2663oLnG2em6DMIQVmPq1Kj
yMzkTxs1GcRd/0t/iDUzaF7Df3/XMwjtVTsPrpCZwc87j/YaBvEtg+PZRyWc
f3XaI8AgJBqiT9nqIxveMOleziAy5BNb/c4iV3lwDvfSCUPoyNDzQ+Yv/FnS
Tid+7JeN5QxFnl0IdGqiE4oXsw3j7yInc3VsrKAT+Z+LXxS+QR6c1M1PpBMw
6MvNMbFZ1L85aNyETjiI3ht/IYc8+4eQ2UEnWHLsTC6qItfPfFfWoBP6rX2s
vAbILWOyjZJ0olp50mOTO3LReXL/hDrxpZ3f/HgVcuakbFS0OmEUeazFswF5
8K65TbA6UaJZbBfcjnPlwJU+6kTyrSOnk8eQnV/zCNupE85mz0PaROfQvIew
XUGdmK+weWF6Ejnz0iNvUo0Qf5whvpVrHr1PHb4iX1QJh/PaAyv2/ME/X+vw
pisTFZu2XqlgW0TX+3vyvb4cYadskTbOh32CPUtKjphVO1ey/j/kepu/8TQ5
QlHr8ai/EnJMz+onJbLEDcP1++kHkd38f+YyZInjx1aIP8jEPj5xZpMMwZH0
5UmY8T/0vmleHN0gRaSmTr4tOIDsFqEfySFFaGes6uy2R2a2ROn9kCTcnhgL
EJ7I/HcSWB5LEq2vSO+ZBGSVynfvlCWJRy0PCedRPC8CpAIJQo6zZDDdkKZL
S37oE9snTvx+p3Qq1QTZ4cgWnVxxAoalDCeZI5ft3iZ3XpywZL08evcwssRg
Rx6POBH6b99kjBsyTejpE00xondq4N+FeGTm/T/O99cQqd2rRQ4M4vrDsXk3
hAnXlLB48594PYsFg+PChJbD3Bqz37h/5fR6DWGi4dt3ceMFZF3epNh2IYKl
NUtqOz+LLq2z5LW/vBDhUEcobdbA3rr6RM1qYm3J6Z1s4ci0xdFt+qsIwTXz
867XcD5gd/O/VQS3d3heSxyyREWwxjg/saD8QCz7PrJuuIFNEj/RlvZ93PwZ
7p8bEFtEPx9G7ktM/o5ctllj4TYPETXYsZ+rF5n51bnYhIcI3enK6fkD5+3t
bKw86KiveBpM4v73UM+dmzD3qDQa5VyG8j+WBgdWErw2W2e2MZB1aQ08DE6C
vehN9gMtZFqYzfEJDuKvoIUTny4y872Cfj4HMfLRrbbbCNc7OF9T5SCq9R6l
RThgz7zatWUFcVlhrdmXSDx//2TjQTaCNr8sy70b51/fSMywEA49rRMXB/A8
6WzzKhairCYPXBvB9ffqB+6wEMwku6aH07jerUgTsBD/9Iv/tXMtR/sxUXeJ
pBGL0ecsDdSx/9PfenYR2J03TLHQQGYuugSvXQTQaf2Iow72Fo7Qmr8gkFF7
6YIBtp5euuJf8LdN/slTG+xfxfSpP2BBtnO5eAieN2fxJGMOHOZ7YboxAvvi
qzr7OVAye+3OlihcX3r61po5cOHDNuV98djM49zRs+CP223rsGxc78UacGkG
zL8yfTrWhH1FJyR4CszsK7V7I8uKXNjYNTkOglpzv4FN2ANpCiXjgNcx9XCR
CjKz+CxPyDiQc7ts/Xgbzv0m7wmNA4uofZax+3D+6ONLYgzkVfeZ2Abg/MCr
D7Y/gbZ5S01zEDbbc8/FEfCutdrYLBxb64FC8gj4Ppi7e8d17CBaQf8w4F7h
t3NjFjYj68/FIXByB6/OVBP21TCHrgEwWU0rcW3D3nXvTewAYJpPaA12YHsF
rN4xAOIdWzS+DmFncztm9oO3F1Ppr2lsyMziywF9QKpki+I1RWx1TlWzHpCz
Y+NjdjVsDvkNvD1A84OYAnMr9gvBvppuYNZGk/fQw1a8krenGwTOVksfssJW
pZkd6AJf6fZisiHYH2+uEegAx+cYfKER2NlcaujvimOl3Mv7orD1veJ0vgNW
g+Kh9DvYtJm1rt+A0iGhYplc7NQ41u9fATPgg5VMG/biPuPpFsCll7onpAOb
/caRxBZwk/28bm8vtlxxrEELeBQtJ5/+C/stTeb+F9CYcmlGmo0d2bSvzqIZ
yL3dektaBbs7v3GiEeRd4b0SzMBODZl53Ai09vYF9Ghh14iyHWsEe1vijqXt
xG4wbGxtAL5DP+nSNtjtO6ZqP4EPvOmNUmHYTMKmpA5YNvq9C4rEPqoeaVAH
Om/ve9Udg634eHvTRzAp8S819R52pq3K71qwTt3aXeop9uSNu0QNcDvIv0qq
HVv+17j4e+CUqXxXtgu7qq25sgocmDOV3tiPvTD02aUKaN27xlAZwzbjFq54
B9g6uKwB6wpkh2FDv7fg7nG2NGtF7LGfvaKV4OoLGUU7VWw6K/unCnCRQ7/Q
cQu2Z5HAlQpw9FHQO2ddqn9X72I5UB79N+xtgb3HY93Ea1DpNU+/fgG7t+TF
8jLw/O0aeOsStnNgaRwJskQ0De6GYcc0xa0nQdRLn0MpMdgSsq91IDj0dzIg
Nx2bmZMTWQJGQ369/VCDnWnAduol6PrMa1b3CdswtnjlS9Akp9Ta0Ez1r3iW
UwReVp0Zbu2k8h+2sy9ACPcQ3+Ak5W6Vu8/Bmhu9VqxrOZDD998WLAAaweuF
PaWwdSVOlj8Dlu7WjT0bsFUK3M89A3Fm9SYVathmAeKN+YCbp0QvyJDyYav0
p0BhYfrfuAm2wycvm6fAcFi11HE/dmfPo9VPQej7h1u321Hz8/ZczgOLodcV
aZ7YMZK80zlA3Ovjj7PnqXk3fnvmgG1HOR92BGIzaz5MPQG+ehclyQhs/lnd
v9lgfPGUcGASdtnH81KPQa+PHm2hmnJJaNlDsOxEQOnpemo9vgybh0DCssjv
62cqF7OczQC2dKWp4k5qXpXplgzQPLZm6Pw0ZWmOynQw2WHx8Mcf7LHzK0+n
g9V10UcPsXDi90/WY3U6MHvC1qHBje3Ga+OcBt6fHG+ckcTuHGORSgWDVoqx
JzZgS6gnNKYAdsMTpl8UsfNSPMJSgJ7ct6rnW7EdEt/9SgYl3VWlXibYZYY8
KUkgxyb54YQv1b/M+No9QP8iPc8eSNUX8InfA6/MH+75L5habz48+y6o2p0z
rnuNyjkuNdwBPVtLtkWlUP1kl2o8OPWMiErJoLz+Qe1tMKZU0VnwmPLV0VO3
waJsdejXQuzkzL9Zt4CoYEudfDV1vXE+mjdBYrSNlHYdtV7A584bQHZlh+fe
Jmxdr+iIG0BtWf8a7+/YzKrlHdeBydjEkYrfVL/liTtxIKiGb9ZWjAuv1yti
GAM4DK8bnZOgXM++PAZEVwjfD5HFpmWuDowGCcVr9R4rUzb09YwCLzI3XZ3d
gc0k35+/CoBM7veVuynr89KugsokNdX1ppTzdMIjQcMtzeadVti6l3QTr4CR
EAOJ62ewywiBznDgQfvgnnGOcvAPz3Aw72/65qU3Vf/Yc2U4WOFx4FQnk5r3
/arOZSDleKRg803Ke4UKQ8FBnYuGVaVU/xazkSDQPtXPV15O9bsr3AsCTjmm
X169W+o3MQ4CZ9avO577iar/dDj3EghiKQ2+1Uflt4XDmICjWMY4Zoi63r2F
gAmuuV8VuPKL8tSvsYsgvscmJWCOqg/I/R4Ict7Mw6M8K3FeINh0AdADncLs
BChvTbO8AF5uqTaxEqG8sOWrP6h8eKfdWJKy5N4hP9AaoTGvxqBc4bL+PGA1
9Waw2FJO/K/DC1xh/74w70i54VqgF+Ajd1ZOHqccfXO9F/hPRWj/oBs2s373
cU+gLFDgVhdCOTmBzQMUVItpvI+g6tO5nroDreDgf+VRlD98s3UH+pPmUc/j
KZ++/+ocsG4ef3w/m/Kd4TA30Bl1yOP2U2re52FtN3DM4LVW7HMq5zQdPAvc
imLeh5RRFveqcQVhd5UHTjdR1krJOwOe2rlIaS1Q3hXe6QycCsfWJrNwU/0C
x52BILfnGvYVlPNaf54A3i/9+BtWUV7/Z/kJoCUYvnhyA+V0v93HwPCplfN1
ipR9+zuOgoTXUVMMNcobd/oeBYuuN0dYdCi7FeUcAeXvU9vumFNOiVR1Ah4S
cs3/DlK2S212BDI+WZ+O2VJWOhXgCMJk8qpUnZfWG61zAMYXS5+/D6CsP89n
D5roLXFzmZQVjC9Yg9BImyj7HMpX5qcOgS3d3yPePKMsRXc/BOKj+5ixkHKI
iLsVsB367bqxiXLD0ShLwLvd+1R0K2UtBTFLUHZ77tjUd8qDko8OAKmdNNvX
PyhHXfxoAfqTeIwP/aM82aW8H9yejtlFsvJg0+VqzYGhiaCeLBdlLrMz5uDR
/H+a44KU1VTz9oGzB+Q3RChQLtYyMQOzXDuWvzxAebL1kTEQGOW9UW5NOX1e
2hhs+tQmU2NP2TkmyQjY3Xbf1XGScuav+7tBhXRqBFsg5THL5wagnd31P75g
ysmz2w3A9A/Nx6LhlGmldbuAfN6nmk1xlAsuj+8EUdos/OYZlH2lTfRB5vra
ZJvHlOu/DO4Ar5fdUT2WR7noeNgOMFmlst+3mHLn77d6wPqAw63Ej5SP9hze
DmRdSfHhacqDfI91ANgX+WTyD2XRCGEdYEU/CBZpvNR+PoRogyvzo/arVlJm
ep/cBsbC1qVtXU/ZStBcE3CdGlLfLkO5yq9BA0ibPK802ki5c/cBDWC52rTf
Vp1yy5TjVlCSFLAxxIBy+KFbDNActLv42h7KmS3yDPDrmJDx7X2Ui86U0oGU
4pMzj2woczwZUQeXi9pz689Slr/ipAbMP23bsjZ+aX/yhsqAa9vK1yX3Kef1
3lACr9PbjA+nUXbw79sMVHzPO97Loew2EKsIeNe/uLrmzZLvCSmAt+FhIi+r
l8x5cSMI+H0g1ap+ycXD8mDkzeSL21+XnPxxA3h/Rq1H6DdliSdFsoDZzOJa
OEN5zEFLFmjofpq1+Es5phnKgIzVbrw3OPio/dTUSYOQ4ieaAuspqxzklwLa
MgGVT2Uo81/NkAQT1/bs3adAOVmQkAROjsNHYxiUO0e9JYAux8YY3j1L+S/a
OjB7bva/nH2UaeN714Lcr+8emBykzPyeKg7W5R5/ddWJssRGCzGwcCC9n+v8
0n70ukVBAelx7lEgZd0TpqLg9MYdC7tDlua3loqAtoWuVRHRS7bNEAYv0tbr
rMhYWo+WIAhceX69y3i8ND9TQhDI+UDzXU+X6oUzV4MbRrbOoSVL5iQFgPv4
3evLGymX5axcBRRsTq1La1m6vp/p/KCrUjNL7/vSfi7p8gOz+BZ46cdSffcC
L+BYlrlb8tfS9Z3czgvI0z5NZZNL9fQrPMD78y57h/klb/rCDf7//8dQ+90q
zw3+Bye/Pxk=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-4, 4}, {-0.0003291806326334301, 0.0003291801960971785}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5189592553683863`*^9, 3.5189593102357273`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["InverseErf", "Subsection",
 CellChangeTimes->{{3.5189742038413877`*^9, 3.518974204184525*^9}, {
  3.5189743320923243`*^9, 3.518974332986734*^9}, {3.518984201304789*^9, 
  3.51898420243861*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"InverseErf", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5189744863042927`*^9, 3.518974490635507*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVVHk01IsXJ6RUSOTxHkmylBZlidKdVyLCiyJLsoRka1FSUtZESNlVVLKU
QlGy5A4RicoSSmXJOmbmazbMGPz8/rjnns85997z+ZzP+dz1bmesPZYICAh0
L9b/+4s0MUOtWQLf780N+2tQiHyGu+Eml0cg09k0v9VFiFxSqqXK4hC4k+G7
Yp/pEjLDD+qpkwRy5Jst2rMEyTvULdxGJgikLPOUuaQsSA4YdBDoH1nEndG6
IyhALrvvlfV9gMAF2hST4idAnrIN3NPxk8BzSqafYtQEyHqrI3+0dBPIykk6
HNqxgEGf7gR9aCewK+1D5jaPBayMyl5Lbl3cV1Uw9xNcwFl4UVbRROCdft5D
k7x53MOrtC59T6CRkddhc+t5DClrmnxeQ6DTr9JdLsLzWOPflZBXsch/783f
uVVzSPrDaM4oJtDlu6XzRr05DHuw4JX0jMBwKt/OgcfHumOrRONzCZw6uzf5
KZmPRi3q+0PvEbjlCM3W3oaPUTd0By6nEuiTZlKpt4GPH0hG1wPuLPLrXDug
xppF09fOVZ7RBF7LOBqbkD6LsWf87F3CCSyJp1ZW+s1ii0bwtH0IgWH6h7zd
jGbRMit1p0UAgTmKZjEVHB5aR7cW7nQm0MJGafUmTx4m/dtrusWBwPFustI7
Ix52zo6NqtoQSHYMi9imwkPbs8Iq8ocIPBC/tTNsmIuO9rvvC+gRKJC/4WP1
WS7eX2NqwNMiMLfoy2FlGy7+brXtYWku8p3YG/q3ARdd9p2XHlUmsPwtqblI
hIvum5/GtYoTKB7uHlzxeAZzh99saly+qL/ioKrcrRkcya5vIgsTaL5ReX4g
YAZPS/cLl/HoODQccTfbeAb959aGZI7Q8bptzA2vyWm89CXS71QNHdub3uUX
WU9j3ERgN/stHYvcXZSz9k7jY9HT/4aX0tHK9f2rb5umsQUsZB4U0FGzinxQ
WngalUtk3rXfpWO4Fkk9rWIKPyfmrdx7io4FCwlWutumcOh5euAnVzraVzBN
WxSnkNsU2293nI4PvC/+lyg+hSqCZ8oCrOi4PYO0IovOwSvn9I4/3U3H2hdq
pNISDqpaNxVKS9JRWPPXCu5uDu7xr5R5LEbHTdWP6vhbOGgV+/z6NhE6loVf
j1NS4uDVusQjZjwacsuzGhqEOdi+w372+hANv+070HnxCxtD1lDMJt7SUHNz
FzJPs7GzcwWl1pWGmUNV5cYlLAxzf11TeJyGS6aFUSKPhVvZJ5JSjtGwQ6X4
5dg9Ft5c82rPaQsaSlk0X/gYzUJDa7vbkvo0vDLsE0hyYWHelyfazpI0PBxz
VrFnDQuDmg2v82uoqGbfY341kokbHUaPjFRQ8YRGrMFoMBPbxxPVv5ZRUU5h
Rc3xACZqLh9qy3lGRSG3phWn3Jg4YBKrciiVipztAZEcEhPNGro+ZvhRccl/
vXcHFhioQD4jrfcPFfV6RZJNIxnYIqVzwUCWikWaB5B7lYFXPHgdhlJUrNba
ofXyIgO7xKKSjJZRUcEtL0fnFAMTbTKlrNkT+KIqmnLXjIFCE/WSfi0TqKON
/EQpBo7LyK/KuTqBa58Ft+nkT+Jrn3oRiV8UfKU+5iRcS+AuJX+tvG4KMueX
ymmXEVjZKetk2E7Btx4tU375izkw9CnzaaTgymunmhfiCWyWkDrZ9JKCFvlx
xRmOBPaXOpPDblAw64a0bOoMHcX4vCvsbRRM2vhQUF+fji5xWpPfw8fx4n25
yck2Ks7cDb6JMIbBf9t82hNIwRzx33LpAyPYNmpZ80prDO+baZ3viBnGfl/i
Wd7WEQz3dQ3SMB3CP2we7W3AEAYLPbt0njaIVmoXogpKB9E19ItKV8EAenAt
XL5qDGDKu+H0+979eKc8WnTpxT6s7FNf+Vz5N17b8TSTeuUnbpAk7Tua1Ysr
5pazTb58x1ebbnoP/unBzpNbXEyFurGv4aWSrm4X7ksVNcuz78RhzZQd+KYD
w1L92ntpbbj62lPdrYJt6GS1mWTw9jNq6hKauawWXLqmR3FySTNGGNG+VgQ1
Yp/s9c+9/HqUOVqUaC9bh9TuXWnrFcn4aqpBokmlEr0VnKPu7y7H3N7h+PHI
IuRLK5y7JFW4ePefst6TyWjVcCX+otRdrBAL/lZ3MQmSLdW9TsId0BkUVAyz
K4aaYk+TG58LYcNkFdegrgJOFF7Iu/3nDZjmfG+1tKsDd9mRpkd2ZDhgISXE
ed0I0dmH12dpN8Bt5+7Q7eUtYHu3dFLx00dotFRYdViqDWxLpZo9ez4Dbb3M
tfbMDnDMMLGT72iDixc2u95e2wWWYSnbHht0QvdPSWvPph6458Q9kzLaBS6X
94yKmvfCvYeO+3Ivf4f3m/Vi34v8hn9+hMa9dfwJqsurx54c7AeO2CvrWPU+
UKj2OSBycwDs3ju8VhYaAAHekqfnBwfBONE/nJ07CNNW7040bBwCh84NZWVG
Q9Cr7fz3xshhaJN0k49UHYGzxyRXK/8cgeUdJiuVNcZALnnITlhhDDb98OJk
6VOgyPFhPitoHIol9wcZ1lBBu3sDb+m1cfiVZxJ1tIkKVdb55vIR4/Ao7Y3l
uXYqNJkWMUjx4wDWGvrVI1T4o1e9O+HROEhILnFNl6DBX9I9X9Sbx8Hzp87Q
OTcahLdIzDj9TQHbsJ5A2ko6HDO8frDpHQVkPyT5XL5EwE/OiERdHQXeTvnY
rY0gwK3IsruqkQL5vXLpVQkE+K5T9Cxuo0CUkYf5ujwCwgXfRaQOU+BgJG+X
xTcCihp4Ne6rJsBNOTuzQH4ShC0DdQSdJsBief5Gg2uTELv0N5/nOgGZb3xV
siInQQIP1LM9J2AgFX1Fb02C/HaZI2NnJ8BsOlmEkjYJ26TKzn6JnABVJdPE
yZeT4NDFKHzwfAL+IUsarRqdhJcn/JQN+BPwmqd0uM+GAW6vJxUeClLByShb
9aETA6RXXpBbKkoFfe+ELac9GBBYcUWyfTUVuli+66UvMsBA+ub8aTUqpIje
FP6azIC6j49/ZFhT4UuqyDzrGwM6tXvucguosIG92fmJMxOibjkmOBdRwXVL
VPw9LyboDv6OaSilgomRsUPWOSak3x4OvbPom759t3NjBBOcKEx/jU4qmBqV
6hUWMGEke9Uh+wUqTHjoB/xiM2FGbL9QhQ0NrEekzuqks0CKLp5c50CDpq2W
twwfs2Bz2w+VFmcalEQqbLV5zoITaeeN+07TYGT4La2UzIL3Gx7HiFyjQZ6J
QocOhQUJewQlrfNo0B3674cIEhsK1rU+dCykQe5YcNejQ2yoXZKh5VFCg2a1
wMcdtmxgN20/ElRJg/Lso28C/NjgYOOSmvWZBszj10jF99iw0R//mZiiwb+r
vbRO8dmw1+rWC/YsDTiz242pyzhgp31s77wAHZSca61vyXAglkd3Xr2CDkNT
8qZy2zgweUMxR28dHdQid+tGnORAdXaIRqQJHS66fQta3c6BrnDTynhzOtwu
33Tlcj8HCA+ZQ2lWdCDPXTUXITigrPnC95kjHeQz0+/fWjkF0W9/Fn89Qwd7
SJH2MZ0C67bdugrpdPBef/evI5+mQGz3itrqB3QYyV13wvv3FNQ++XHoeA4d
Wil9j98zpmB70GXXe0V06PX87GEkNw3i68rj5BrosLUyw6zGZxo+3LwhW9FM
B5nq3WdUwqYhhGnz2O4rHUpWOvP6UqeB2sAuT+ulg0kD7dbJ99Pw0XfHHxnm
Yo6ufnrFV5qB0C5B/9fTdNCd2rLFT38GdpHaZo7O0SGwnPLhsPUM5K05K568
jAANuer+yKgZiKx8oS+1joC1Q2G5e5gzsEclpP6lCgHmH/c594tzgRVv/p/V
JgKOxnw2VtfkgpvrhHuiDgHWZ4OTP3hxgbRMI1HcnFj0I87z6AQXZs7NyBdZ
EaDm7R62RZwHxb2NuRbHCLj8+dCA8A4eKBZ7VsW5ETBs9K2WcZUHXX/pGmt6
ERAy3Wq35QkP4sNF2j75ESAbMjNS2sIDvs2TEbHLBEQ57W8UVZ6FMgw49+wa
AetndPok/psFH439fNNIAmoZWxO/h8zCD/7A6pjbBFCDvNm2A7Nwx/PlffUU
AqJ1lib5ruXDwa+hak2ZBGQWr9IVs+RDec46Q9HFP8Ldubtf+AMf/FcRjXmF
BJRMHeLKis6B6qUaa+OXBMjEZWSrms/Br/74X8NvCKiiukFtyhwkmzl5RVUT
8Ea3YT5jaA7MyzRZKnUEiAQ6kRL150FIkR9S37g4nzUaX5syD5XRn5a5txKQ
L+ZunsObh/OMzCShDgIS/sQ4b/ZegE2O3oo5PQTsbG5MWzO6AAP1+k/3/Sbg
u915UoGBACl963LtwT8EmFgtq7gcL0A6nN5TEzZOwIOTHglCDAHSsiUFpusJ
AsokNQ3i/AVJ6HOpk8wmoGd5zJsI+SWkwG/Gzi48AoYMrh501RYilUJ9VdAi
Lsk5bFlwSoj0P0OEUB8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 1}, {-2.4853983048013517`, 2.4256139868125146`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.518974491210425*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"erfx", " ", "==", " ", 
     RowBox[{"(", 
      RowBox[{"1", " ", "-", " ", 
       RowBox[{"2", " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", 
          RowBox[{"2", "^", 
           RowBox[{"(", 
            RowBox[{"k", " ", "x"}], ")"}]}]}], ")"}]}]}], ")"}]}], ",", " ", 
    "x"}], "]"}], " ", "//", " ", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.518974220683032*^9, 3.518974234114285*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "::", "\<\"ifun\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Inverse functions are being \
used by \\\\\\\"\\\", \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Solve\\), \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\", so some solutions may not be found; \
use Reduce for complete solution information.\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.518974230417653*^9, 3.518974234282584*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    FractionBox[
     RowBox[{"Log", "[", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "+", "erfx"}], 
        RowBox[{
         RowBox[{"-", "1"}], "+", "erfx"}]]}], "]"}], 
     RowBox[{"k", " ", 
      RowBox[{"Log", "[", "2", "]"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.518974230418563*^9, 3.5189742343250647`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "residual", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"residual", "[", 
    RowBox[{"k_", ",", " ", "x_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
    RowBox[{"k", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"2", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
        RowBox[{"(", 
         RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"objective", "[", "k_", "]"}], " ", ":=", " ", 
  RowBox[{"NIntegrate", "[", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{
      RowBox[{"residual", "[", 
       RowBox[{"k", ",", " ", "z"}], "]"}], " ", "/", " ", 
      RowBox[{"Erf", "[", "z", "]"}]}], "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"z", ",", " ", 
      RowBox[{"-", "0.9"}], ",", " ", "0.9"}], " ", "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindMinimum", "[", 
   RowBox[{
    RowBox[{"objective", "[", "k", "]"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"k", ",", " ", "3"}], " ", "}"}], ",", " ", 
    RowBox[{"WorkingPrecision", " ", "\[Rule]", " ", "17"}], ",", " ", 
    RowBox[{"PrecisionGoal", " ", "\[Rule]", " ", "17"}]}], "]"}], "//", " ", 
  "Quiet"}]}], "Input",
 CellChangeTimes->{{3.518875822016068*^9, 3.518875836854491*^9}, {
  3.518875963041472*^9, 3.5188759687242317`*^9}, {3.518876034070964*^9, 
  3.518876078731024*^9}, {3.5188761504532747`*^9, 3.5188762195878887`*^9}, {
  3.518876250951879*^9, 3.5188763195977793`*^9}, {3.5188767359209433`*^9, 
  3.5188767416872377`*^9}, {3.518877343883606*^9, 3.518877382835367*^9}, {
  3.518877503006545*^9, 3.5188775034689293`*^9}, {3.518879123805606*^9, 
  3.518879125136747*^9}, {3.518974258101746*^9, 3.5189743039185743`*^9}, {
  3.5189743710979652`*^9, 3.518974384287908*^9}, {3.518974836961513*^9, 
  3.518974837737719*^9}, {3.518980890480969*^9, 3.518980891318234*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.04460500852191340293018129159463569522`17.", ",", 
   RowBox[{"{", 
    RowBox[{"k", "\[Rule]", "0.30004578719350504347628968222237916925`17."}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.51897440309691*^9, 3.518974853860429*^9, 
  3.518980905909729*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"k", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", ",", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
           RowBox[{"(", 
            RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}], ")"}], 
     " ", "/", " ", 
     RowBox[{"InverseErf", "[", "x", "]"}]}], " ", "/.", " ", 
    RowBox[{"k", " ", "\[Rule]", " ", "0.30004578719350504"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "0.9"}], ",", " ", "0.9"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518974291949539*^9, 3.518974316580572*^9}, {
  3.518974351926778*^9, 3.518974357901667*^9}, {3.518974411754532*^9, 
  3.518974431637197*^9}, {3.51897486833956*^9, 3.518974873625834*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw12Hk0Vd/7B/Dqg0oZkkyhT8rQgEqGlB5U0iBCRZFKg1KmMoRkzkzucGQK
GS8i072mHqnIkEwNkkjhXvemiAyVvuez1u/311mvtc6497Pfe++z9pyz+YVF
CxYsOLRwwYL/jgx+8crWVh6+26Mo+jqchV8aQueMXvDwX7fJUH5XFq4Jm935
5CkPP3+kfDtpxUKqYP/j8ioe6qo3/HVTZuFtEcaz1Fwetig9sTJpZKKltH67
SzAP97ioP7MWYuL85qsj4rt4aGO1eiK6uBx1xj6qxGqT15+RuFOSVI7Xi45e
WarBw8wc7uh4aDmyt2p//bOBh3lNpevqbMuxS2vRj2FJHorNWudRlpdjrn7C
POsHF2fj0xS/OJWhheWzVbb5XDydeKutcm8pXtSVn3LP5mLupGrboa2l6P2v
V3dMOhfVR5eUTMmVYhpvE6WO4GL37i7zuOkSHAumiK4P5mJdUdnx3vwSDCs/
t4xrw8WmIjm3FKkSrJVYuPCmMBd7GuWKEhY+QuUePR7VdRQZ8hff24s9RIaQ
y8yCa6PoD+MOvT8LcbNhBt81h1EsP5N2/WpvIW7JF5DbZzeKn2W7rd5nFqLO
rVcmU4dHMc1dcWZApxAPrj1bdExlFCV9Sp09LxSg0+VgN4l+DlIa/oQ3v2Jg
xWzzDHGYg5WpHmeFB3Pw32fqi1Ybc1AvcVB6X2sORsRQl6XuIc//NFwXVZGD
tutOy2fqcvDBo4GAI5E5yGcyvqdYhYMxCfsd72nmoHmaZOwLPg6WPLDZqxud
jWNG5xVna9gYEvP91mrjLFSk/jl6UpWNoQcHLjmyM9Ah6MCsjwobfeK41bXd
Gchwo6WlrGPjp9BddfJPMlDtqOq3AWk2njSziF+emIE6wrZRlwTYKLTnlzPt
cAYeDqtpuNE/gn/DWiRMytLRzddnZ+zdERQqXXdpMDoN8fzs+mdTw5hVE0Lp
b03GVR1L1GY7h3Aj48L6C7k0pF3/VPya+IJGca61AQtj8Gesnb/ruc8YoxET
GlQRiGLG4yHvDAbxK9/f31ZzbmitdZh/ZMknbBQ22uSmpoUV/u7uAU39GNXX
3J216Qr4hKXcLI3qQw1dL/rdgptA/33CdfuaXkxduGwhqz8QVHJ3vD7U+w5n
264FLnp7B0TqCjeXXHyDsYMrKD1xUcBsuSpH/OnCNGUIiTgcB2+ELbzFHneg
OiPepOPrXaD5ErTKpDbMEF8VoO9KgVYf36Tg8DZkd1dxHD0owOdzNt3Usw0F
WFq9FB8KuN3cVDhk3oZNk4WnekIoYOaBz1YItmHBzLkR3UQKCLqM/Ljs9RLv
Zqxvs6qngL+9trnMsVa8k819zydKBceDb4V9hJux0fy48N50Kgj0WUXVzTWh
2tm1MT+yqJDm/H6pwEgTbnqySP0+gwrd1D6+u9iE1Y8l346WUmFX/+e5bJcm
LBNpfW3RQIXlN74Pd3a+wIA1c9uvjVKhIGUpbiQaMWJuKK5enQZGWyJ3uQQ1
ou/w77RpDRoM1C+vKnduRNvLwFHRoYE4W6Rc35g8nzu73l+fBr7bJPKPzzZg
7KcFNguP0uBwowIReKoBGae/nzJ1pQHv+07n92ueY12Shqx8EQ3W99755LP8
OX5sCBdqLqGBzfMuC7nZZyiwMeCaWwUNWu856pzpfIauB2J9WLU0KDBMWjgc
/Ay3Beb2S7fS4Bp1jjLOeYoxk20G29g0GNOuZC0pq8fOwpvytXJ0UFLg38RI
q0crFb+v0//S4fTyoymHouuxvu7DTvX1dGgbYAfEXKzHb7OEFWUjHR6GSx0S
l65HS6kb97dq08Gp17Nvjd8TNLps0tpgSodvflqLtI3rUNpQoOO4Hx0GMz4r
K2rVofxjnbAJfzq8aYgzWbm+DqWux0NkEB185d5s7f+LmJa/srg0jA4yemBn
5oz452Vq+kA8HY77rqjaduQxqvYuFs3PJt9nrtx5elkNiomsPMLXSocKQ9Hq
rpFqlFkqmqffRoeUiCsCxU+r8WrEZmHvdjpclVmT4uBTjTEC7OnP3XQQ1A1r
7hmtwqOhJkepfXQwunlSsaapEidi8qwvjdHh8fT8e/87TCz2SEx8J0SA48X4
VeZnyNz+kDbwUYQAqdeKZut2MDHC+X75pxUEuJUcfv58tAKT01hCfasIULyW
WCR4pALFFbL9GHIERA1qBlPFyVx3FMhM20zAjqNNjy98LcOYptu/ndUIGEab
Wa2GMlT+EMDeuYUASAly6vEsQ6/qrb5NGgRMnOiwku8txeUBqfeqdQmwfnlV
NTe9BKuHvwz92k+AwK4FDje9S1D21xca9QABJQxKxkGLEsy579m34RABy8Oq
JL/ykbn+bu/2g0cIqDNcsmibwyNsfvtD4JwlAcqsB2+q1Yox8WKC25gdAZx9
5X9TPfMxTTXvrc8NArYJnjW8oZaP/yjOSVLdCfBuWx5yYIiBkvY3LuR5kPc/
cV5w0pyBbvLXVVq8CFBzWLnqgFoe7lh+2ZzrS7ZPhOvGH1+y0SbDxSI1mICq
I3LXXiRlIzNwp8edEAL+WdlUlGKejcqcXbnXQgmgJv2raVyXhdbbrHW3hhFQ
UfAKUpIy8eT8ahlaJAFzbarH9ptn4OLwgv5XdwkwpPQQskszkE+BvSginoDI
EyHvxzEdxz/waxtQCJAd+GCXrJqOOx32dWZTCdg9HnllfEkazouavj1CECDk
6Hwy+vZ9vFglFTxOOvVHQ7/211S8MeNueDeBbC8+j9GoFynoxdo12XiPAD7l
7r9at5Pw5Oy/amLJBNCKNoV84iXiqqiiyymklXSCBKNOJqLa7BWmYgoBxge2
rfqkeQ9v9xaGq6aS9eAYtzGSR8eYv9uXyaQRIDc5UqR5ko6LjOd7okk/9AXN
gUYaBie4V8+Tbo8eA80HVDTEnIq36QSIFx8+1m8djw/0iNiLD8jnT/30v9x8
F8t+829+QlpiZ3rBD927eIbIn5HKJEC6YeqfJbJxaL+1QaGO9HZJfbv10rH4
HU39RbII0M6gVujMRWO30Q5hG9K7WHoXztZEolTk0Woe6d174mvcUyLQclX8
+y3ZBBi0Da+M8AtHs83HN7qRNvoSW1+ifwc/fwg7xSNt7PxFunFtKM54Cugp
5hBwaE7HtXdRCP5kKpqeIm0mOriG73kgGh+w50fS5klanlLZAcjsi87jkT6m
FNm2+Y4/7kxz85PMJaDoHB4KbPdD7WqJYCBd5uUwx4j3xfFtt6vOk66MWZHX
ZemNzanFa++QfpxZdeK3hBf6KxdVZpN+VmUvoNjjjoFJfoFPSTe1Ly83SbqO
WyoVfPtItw2X23vYumJ8RGr2JOns2dr1u8EJcWZy4dI8AooVRQNjn17G0gCV
GBnS1UfP9Q/sv4CU0zsPbSD9/FbZrm2tZ3DxevUdmqTvWwhtX5xuhR8a+a12
k750wr7PwsIUaSGYs5f0vyJWWduadHGQY6tiTFp2repAsIoC+Jl+6fnP8gn1
9b1eRqCceqDGiPTcjxqlFg1LYFwiXhmQHk6SuqqyyRYm3F+s1CXNXlv1znCF
PQiWfAhTJ/1x6pLPeNQl+BTZqaZAurtplXzakqtweDyXX4z0UNvZM8qGLvAr
2FboL/m9AyzWo/nbbjD++us+Dun3GSL/vKm9AdFOJ4raSb+OumhZ+MsDZuyI
A+Wk2z1qs4J33ITdw3niBOmWM+LTpzx94ElmpKgH6YaDjsYa5bdgYI+Onjnp
07FRUy5SAdA/PqCyiLQNn06qjXYgyPzpHHlN9rf1zc9GxseD4ISt79ts0pb2
uglrqCFQlNpnrP9ffbwb0l9WGgpVvLDmJaRNTe5yfnbcAd7JTt82st4OarN1
20QiYHmQwvWj/9VfAeVzpVokmAxIM4VJ71sLUVkmUfAjKW5TE1nP+svofb6R
MfA9uSdLk3TSt7V1tKC7UGDX/ZFHjh8+Ecpb7TXxMLQxdCKStJMa37eeqnjo
erOCqUxa/9qwnPwEBQaP+ZofyyD7Y5Thk32GDgc3cdrDyPFqKihLMf5NB6tW
1mUh0qwN0YxRMlceVAyUxNwn88nBuUftVQLkF347dofMgy3DGtpMvSSYjuZ8
MCPz4x5/1hHrniTwHTz9syqJgEWKEhd/3UiGbWpRuJb0a/uZ/xYhUOlcfmaI
zKNal9Oz9kJpsMCroncv+ZxzYwoneD4Z8HufT+p5Mh8l/HrP1TZlgL3BbM69
OLK/hKhOMZIPIHfqrl1LLJkHqvyhW0ofQKhu0rv1MQQsvjpSdmM0E6pO544V
RRBQwMkX+2OVA9LPeNFKQQScvXlevi07ByLGfl9WCiTvv1Ru4/3JHOg6Lzyh
EEDAbZUYA4O4XNiOKfxit8n+u+TiEtKYBw+b1bReeBMw/WV7m5BWAXzuD7pH
dSWgJtpheYFfAfj4cTjXXQgI1Eo+eLCxAOZ/SJubORMgHPZPY6hVIQhzjS4v
uEbm66ZO/Ov9EK4oFT7UcyCAwWK+m7Erht2SZtc3nybzPLpjen9wMXg5a6v1
2RDgcpYrQeQWQ83Jq/MRpwjQElxzTHO8GE6cE/vYZ0VA/anQDtfAR/AnOJB2
xoKAnnnL5tHMEjjyzaS2h5xfd3U5cXY0lYCOiDDrlBE5P+SELQn/WgJVuXrP
3+8l4LxZjZGyVinoXFGSaDcg4Hv6uqf2jaVgFZgdRewkYMm+ieoPnDJYcPTs
/XvkfK8VGVvYpsaEO0Ge/Q5i5PjUcelTOc6EkUwr5nlRAlyHzYSCbjFB2Tdd
wlaYbH8DsWvarUyoE9lyZY8gAQoz1M1pl1nwKyLCZnghASIXEvNdMytB1oKp
FPKdDuzdWXniMjXwu0F6Zl0LHUJ5IT1OBjXwU8lGpvgFHdYlXlza5FADkf7K
lToN5HpvSvnyLWYNnB15ewWe0KE7n6EybFkLMhbTFAUmHZ5IFecwYx/D5/0r
siGDDiY3+8wLA+vghkPSRIc7Hfy8/vGYp9VBoeImlzk3cn3oueGeaV4dyAeo
+K1xoYOoh3v/+Ks6iM6tPGB3hQ5dbkJXteSeQPyEJqX8NB2sr+qFIPMJOE83
RtcY0eGCXQqzg1cPXtOxU1vE6XBrn63sz+PPQTX2vEVCJg0mBBWi5hyeA/PI
Rsu16TRwaB/+Ne/9HD4oHtyVk0ID81MuvYvvP4foQqzLo9NAyTUoUXrkOcjq
3ooOD6NBW3KelJ5nAwjEUFpLHWkgPzklHkw0wvr6X95F5Hq+LiNGSOxdE8gW
X+xUekiFzu4K/mRuE8ysNEkKz6PCkED/H8W/TZAt2ZnAzqSCoKP62A6lZrj2
s0YtKYkKFhrtbWdvNMPHTaKPOsOoMPx0Rdwj0RZghkpfiDhH7ieGqGJHD7SC
7objIpIrqWClnCQZV9UG4j8ZYp4OFAhILcj8ntkB2TtUi0vmyf1TuX6mzKcu
4PXtN00+FweWZwyLp0zegNTfZVHStVGQ3CVrpnv3HaD7wwRrpzCIeX/+tzp/
L7A/dG5Rlg0CQUbIrljTPtjAnHybNOYNz0NOfXaO6YeeK2VmouyrQPc2bVnw
dwDC3A9ZS9dswmh6n9P82kGYrHznDeKueNI3I8HS9jNEeGjJLI0IRCP2E3du
/BeYOnLL2LQ9Gj1ZL2WZpUOwOZ8/KuQHFW+Zix7s5Q3DFOPyZGJcMr4wA4Pt
K9iw6sT5QifPDHzvwcl5uIoNHMVH7fvDM5CbTBHeIMMGY4F4ZdWkDBTmjPTK
rWNDOH96tixm4LGAOI/FmmzIshW6Frf4AQ4++pT/3ooN90KVgt4mPsA/YsES
AWlsYGr1Hj3ckonbXr/gvlTnwO/ZwDS3Ezno+CayLG87Byi2S1qynXIw8+2R
WyE7OCDQlGA7FpKDEu+7hfX2cOCRucoGVlkOzn0c2FpwnAMlfoaOO1bmYj17
xjPiFgfsGhPHl3XnovlvFb79LRxwDDzh3HSBgZF/uK0K7RzQcKO+yrzNwGfz
D2nz3Ry4t6Y5nLjHQK2FmsoVHzmQqa+R+vQlA2UEDA4qTnBg+8v7Vrra+Tgo
Yh33j/QoDPKrtTwVLkDXdeGydRdHocblT7RDRyHuenOdZew4Co+mNHUieIUo
EH7assN5FCS6szqeLX6IiWMaUYNeo4A9j6+H7H6I9ZUff/FFjsLku/IpncKH
KGa2vfdA0SjsPKVnEhNbhKW+/fe6pkeBetdUNbGsGP3UmzVtfo9Cadky2aGn
xWg8WNbxZQEXxB6734CuYvywP2Lpz6VceOWa06EwUYx8KzVvSslywduAYp2z
5RFa5kVY2epz4eVm6p0nxY9w6rWm5EgYF1Z8Ppa3+nEJlh2pLfwZzYXp25e+
JHSUoFvj3r0CFC6UxWgHqA2V4HeWhatiChf4gqwfP1heirwk1xb7R1yIDB4L
rrEpxcGzhbcHerigy9n6tndhGbZ/Xc/u2cgD3tOIoKyz5Rh7scCPo84DQuNY
G8OrHI/0a6ya3c4D/7Q4pY7YcmxpNzSUAh6sernTLvBxOTaUnkk+bsGD1ScW
9PvLVWDtzWSzLh8e3Dgg6Go4WIG+E+tGBv154N2i9zH4VwXqOubfmgjhwYHF
iuFj4kxk2VQxVsTxIDx00Zkdxkwsg3d8Zpk8yDLFmcpiJl5n2SXZ5fHgoONV
1T0tTNy2dWSr80MebFhZen56iIlFCj9Px7B4YGfAGh5czUKnpFtTKbU8CGlX
11utzcLN4vxRhfU8cJNvL/Q3ZyE3KkqhtpEHPxyTnq10YuH//Z+E//8/+T/w
CbrI
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.518974358473804*^9, {3.518974413660924*^9, 3.518974432707164*^9}, 
   3.518974874328717*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"k", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"2", ",", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
          RowBox[{"(", 
           RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}], ")"}], "/.",
     " ", 
    RowBox[{"k", " ", "\[Rule]", " ", "0.30004578719350504"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "0.9"}], ",", " ", "0.9"}], " ", "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.518974291949539*^9, 3.518974316580572*^9}, {
  3.518974351926778*^9, 3.518974357901667*^9}, {3.518974411754532*^9, 
  3.518974431637197*^9}, {3.518974464552422*^9, 3.518974465440241*^9}, {
  3.518974843250924*^9, 3.518974860120784*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2nk0VV8bB/CrRElCFEWGJqmkhObnVsoQkqFIRRKR4d6TIfMlSkLIEEUI
yRCFSGrfCpEh81hIZjIkRIP3+a31/lPrs77PfvZx9j77HGuRMrPXvbSARqNd
x3/++z9tkdDLysoREk+d1zkZUAQ9pTfmjpWNEMm51N3JF4pAwn9239v3I0SH
t0tUfU8RhPN0vskrHCGmMq6T7oOvwGt5WnFc6ghhH/go6ab1CvRF6TUM3xHS
VVDcz7euEP5ttekX2j9C+D84CO+Yz4fdox0yd5RHCN2gpuh7Rz5czTppvURh
hNQwio90v8mHgR3K3/9uxvk0XiYxvPKhXmnBZN+qEcKwOr1qxcJ8SKXf+1cw
OUxqLgXZ/1rxAvT0i4XPpQ8Tel73gnHDXLDYu3bKMWWY0Hqkldz354Kr5LWG
4IRholM77blbMhfiR7bcZUcNE36ThwwYyIFR37v8633RWvU8rq454J9ntnT4
LPZ/NTtAf/wcXq/k4HDhw/E3Mkf1JZ5BzZ8zXaFLhkk2c3/VysXPoKc7l6Rx
DpOQinnrP+PZwJN12fPz3BCRPLMsdcf7bDBUrfkN/UMkm2fhy31W2fDD+eE0
F3uIyGtzXlnjnAWbWg+MhDOHSIhHfk78aAakLWP8otkOEfr36+tDPmbA1sOJ
nLaXMZcads1KyQD5dC7xoyZDhFEDju4mGbDb45PWlCbWN+5cc6w+HTSkLmQZ
yAwRU57fzdrv08DOypda2TlIQkKc1gm/T4Xx2BeePm2DpOuUapV5UipQdQMB
o42DpKaPWdbmlwrO+7QelVYOEnYyf9Zu9VRgLVvZ4FQ4SOTXBKvk1T6GsGeP
FZsjsF/5sQy3wRR4MfvxV5TmIKFzqZqk7UwGyeLtC9aoDZJ4XbOuBpFkCAgO
Xxp3ZJCwugMvic8nwbl159cm7cX+TeuLuSuTgFNr4ki2zCAxDdDo2m+ZBLrx
q+6UcQ6S7GGuPQsePYLRY+YbZosGCKNcIKNFLhEMBcrl3AsGiPyy2/pMkUR4
175t93zOAKHNtA5JL0iECMaMxqL0AWK6Z0q3pjEB9scEMASisV5U66COZwIE
fM9+tdlxgOgoZZWV1sfDhvC/J89sGyDxR4K+GUs8hMvX1WfdZHC8iFf73M84
SKMi4mPXoYvLN1R8jAO5k9vGukQHSJfcrfB/TnGwm+9coCXXAGHfcNr+pDYW
NP2LSh06+wld/8C72jsPgHJ323cntJ/QdMvnMrfFQO6VD93Zgf1E8t1S3pnF
MTBzZkVA3U2slxDxsuqJBvc96S3Cnv0k/vhMWvn9aPCbbnN8YI2OUVnB5I2G
e4y92U+O9BNWWO7ebVNRQMxn1xdP9ZH4XqGp6e4IYCSKz+6e6CNsqYzHm0oi
QLrrUFXmSB/pelAy5vQ4AnyNAxyjvvURuvSlLIZNBGjorim1ru0jkgJMjqqZ
cGiAA5YCmZjbDOjzCIXD0GrvJ+fN+witXupf5oUweGCY7FFvgvXStF32qmGg
FVl+Us0Y68G+Q2NbGGQLCM7t0EWnz4qenA0Fx8WPNBbR+whrMetnRFgo0KaL
h9PXYO4SwjdQHgLCtYvlZut6Ca3RgGqLCIaHCkLxvNW9hH7XuvzpxWDYHCkh
KFmOud9b+ssdwXDAWGn6GEG/2BBhXx0El3ovvglP7yWs0jJeY54gyJt9oy3v
i+PPquz4dfs2GEg72lsq9hL2SHJlXq4/dPqyvrrKozs+Ue3+/mDVf1sveAv2
i/7BJ3/OHzwyEpXzpDBv7zC6xOUPyUo18wv4sF+/cvzcmZswpbElJK6vh9D2
HV+RxHsDIq5+zW6M6iF02RmjxJDrwGUjIUm7i/nVo4w56+twzfzcHdlgzDPk
+F2PXoezBq22Xr7oMQX1sTkfkFauld3M7CFsfi6FTEsfeDrHTnLXwPEqO3bq
q3lDqXf8vXV/vxGWkN86fw1P2O3awa39Cz05ssl3sSc8ocScr02i1+/8VFLq
AYEX7xlUDX4jtHGOHyIqHqB7NETQuQlz0318M4fcoWMxK/BjFvpR1NhpDVeY
vmPCYpphPbVOeeC2EzQ1OYqNncM8eKJx1sAJ8sUDC2yM0A6KoockneBaesG4
pQ7W+6+qts9zhLlSgQvnD2Kud7BYrdsB/v59f+j4aszTp7ayj14FThuZhRvq
ugntjJZgwE4G9Dw/+DCxCt1/K2NmAQNKZvX3SZajpSSyZB/bw42b3lfXsNHq
kw7sITtY/Kjtm8BTNOdPOxMnW1jaFlj87xbaZ5i1/qE1CKpN+LUcQpfGKqXu
ugQVOaPk5360YWTK11Zz8JUYmeXfjZZ3y2F5mcP0dJ+tutx/9d67RisuQnvy
Z4PC1Wg1sQ53KzNIWli24cHkV0Ir5pvZZWcCSiSuxCQZ7d/yZULBAMZkH8y7
xaMdAoWcI/UhNTJ6z7376NTfy57P6sFqu/DMmlD0n66KY+90YV4sIOKQJ7rp
hFybsQ6UuTpeWncaraa8+5CpKhgpaS7qX4wOufjGuWwj+IxL2ZziRLM4aftq
pSEtbaauZL6L0OLVznYWicPc2kfxSdNoenaeuwgvxHDP7TPrQZu6DEQO85O2
lsfUF4L2N03o01YgZ9wWdtU7oUtZn1kTqsRHsfXYEeo/q7+zrlIjaWNPM5/b
os/o/dJNVSdzF8+4hZqjd2k6ShkfJzGaz1ae0EVnT1hV5mqTNnETrY/b0GaG
pT4PdMkLlqOjd3knodlvaRErMSSNkjcOBLPRpelBTVJG5Cc7ctH9fPRt8lHC
04js5CiIyE1GJz2QNVM8Q556z+X1e6PPe0VnxRmTxz5e01p70QGTHHlnz5N7
vrecV6d3EJqY8UfN4gskf30MbEpEf7t3a3z4AmkqTuPeFd1BWFN2Cy+sMCNC
iyqjtG6i8/OKUi+YkVA/vgLWRax3UD3d/NuMBNy4+6tvDVq86UTtRnPi5h/r
khP4hdAePacpGFoQTcrd468P2lfxyG13CyJ21thb1QUtLmGdEW9BiraL3mq/
9AXfZ6P8GgMW5F9T+L2FgLmpnc2MgyXx2RCYrzfxmdB+L9sKvpeJ/zvXqUkD
NE9hRoKbNTHMMJo9oIle0dtjEW1NNkfu/nvzMNrqvMjcC2vy0WqaU2w7uqCM
5/aENeEVoIRUFqNz/qgZm18hd0ysFMIL2wmr7szqJroNifxzmrlLoh3Pm8Gf
ik22ROV6f/X6lZhbvtSwGbElP5Y4bxVehvmYMo/bAjtyYlVk/9RcG5636krS
cnZk8c6Gc/lNaJ6d2jHX7YirpY7G3uA2wgpxDFXfZE9kRjsfy/qhJZWcVuyz
J00O9ovWuGP9wB/XfG17ouATzP5thXmf9olgR3sy8qBS6fVRNO/FJa5v7YlJ
ndo6+t9WQjfvMJLfzCB8Ri0s+Z+thNVc7Tyyg0GKOi07JIfRlqFOkXsZROT7
jWiOVqxPtFDPPc4gddwly9/nthI22ZIiYssgKgcO/Tlqg/mTpi13MhhEJnVP
4/H2FsKO3Uy7tZZJ/K9F2bnUtuD3kJpr8gYm6Veb4n78oYXQXnZefbqVSVIG
s/cuyMV6ur3kjb1MsmGLTHxBIObdl2a1DJhE+unKKxsOYv794WnNm0zi4+nA
qbcLc8GaGOUgJvmqXRfLkm0hrHuKKvx3mSR+LKimfSU6qZwjII5JJHYsUgob
aybs7Y1P43OZRCx3kjYfj75u/c3iC5O4+56M2RqFfhiweHs3k7TrZymcCWom
rJ4s+94+JomZsrbIc0HfC90jPs4kosrdFVd0mwkta4d8IQdFrnHTL0WrYV50
uG1qEUVammP/lR7EfpNm8pI8FLl3zWiH9BY0v6jwIUGKrCysiWxZ2Ezo3Tu3
5klRxClATp5rromwjrUmWm6gSOOZwHKFcfRL6W1LNlMk/Lfqn+DPaP3nWaLy
FBE8QC4czWsidJ4DNcwDFKGWif+m0tGX81Xj6BSp/eIaHp/QRNhD3LsLj1Ak
xFPpw+8gdIpQHludIsvZmVufW2A9ftosMaDIwSIGe9k59B3X4pTTFLEpUNC3
0sN6m1mPXWco8jH7pZskHa0zQkmZUMQ3oeRjsGgTod38l3z4MkWex/qfH1qO
+a2hl+bWFPkaffzHUS683ojoGGcb7B9WK/r3RyOh6ViO2TMoMuvz5fKVSnT/
CqkMZ4rIeMX/KX3XSFj1iY0GLhQ55XYxRPplI2HzOmaPu1Ik9+pgfmsyOmD5
ojkPinTbZxxXfNCI7++28MteFBGwse8MCUMPjTqVsShiZz7FpeaF9XlJ585e
p8gD04KYR47Y34z3WogvRSrOusnNX8H5r6nzv/DD+Q04Tr0wRL/26G28SZHT
J4sHBU5gP7V55Rp/itzQuulhexTzJVcUim5R5NvRZcnrd6Lbik9Y3cb1OFyz
myWD/X0W3JANpAj94N3K9rXo++V3vqDt954yVRbGfnVZzj5BFIlTEv0ZthQd
d0RNNJgilTs/3xzlQJ/g5U1E/5Z7uEbjVwOhLwuoErtDEdktZlnJo+hBxahb
aMNNG45w9Dbg95D31QH0jXUDTWfbG/D8abHZE0KRPIl064JarH8RF+SO7llj
929FGdbby3c9QwuK7Aizf4P+8c2uFX1I6OeGilwcf3ixyiSawZ//cmM62qXX
ah4dx+uq5ZOA9bVFQ3/RVYsPfP0S1UBomWU1o+g/nDTHPcHoqP0b69CyHO8X
R/jieL2jU4/RRn/9Hoy7Yt65WI2B9p9Vk9dkol1TZLagX0wtLX5sic5SSmjB
n6d3ovr0wvPoMxWvrqGFRkOHz+ujM+x9lqIPD+l7FWpg/90y8yF4vxh9q1as
PISe/LFvCfphd1sKUxmv9/CHww54v6s7YvdWbcP8T4R4Ha7HnzbTapn1aEq9
SRq9pXmdme9qrHcscbLA9TxT3zfVyY/zmfUvjg2gSH6FjXjU33rClqE2f8P9
UGzexRP9s57QDfdaLETX/NX7FTNcT1j9XlYiuH8Gtu+rj2vF3GH1N0ncXz/L
nrLja3D81u1WQrj/OMyknyZ+qCe0EnrjHx+KrA5fcislD+vHkj0zcP9u3Obh
lJqB9cy7FVdxfyuUjl9Me4QueiYu70kRzV/NB5+G4nz7vMdvulHE82zKzzxb
7HfAVibPkSIBU6Ld+eaY8y903uBAkajgoE8vjXH8Eb3FtymKZLMd0l6rY742
VEDJHp+n9UdMSzaglwaG8eLzPPr6hdYHMbyef+IVmyxwP56S3Ve+AvvT6n12
m+N63BJYWcWBeeKNoL2mFDn2vbOi4Usdoa1T6XqL54fuDb2XTQ11hCVwoPsW
ni8mEh9SWirq8Od5Eqeqh+flyafen19ibqBgnqRNkbQ8d+WeCMy3e41+U6EI
n6foo0ktzGP6Dby34/1ZFRQypYL5iViL1K0U2ZRN85zZh/lNSC7B85He3W/4
e/N/46PLutfheXjsBd9CLryemXGb1FUUaeLTcxV8U0u6vGvULf8ySfhE+KOT
ubV43u82fzLLJLoNTZUhabX4Pp926JpikqroMxLLo7Be1uDBtlEmKV5vVryU
gfXCsVMqHUySs5fJt0gac5N0I/siJmGI5yiriNSS+LcyvZwFTCJHmzK9zldL
TGu2j9/JYZK0kms5HL9rCP2lS8qNNCZJ1GEZ/quvwftz1HMmiklCLO4kzvjV
kHjGSfFRBpNoq9dWKLnXEJqNqH/nFSbh3bpiypGqIaZ3Xk+XWjDJzYlI1Z/n
Ma9aSrt2lkk83eNGxpVrCJv7S9JFVSZpW29s21D/ibDlgvZcXsMkEe5RES/v
VxNW15qic0UMUunmft/3VjWh50nX3nrBIJxuFxJOOFcT9uncZU+zGYRy2ZLZ
q1tNaMslVnYmMYiOEykW4EG3zS3vCWQQHkb/pNW1KiL5SOOvpzGDsC4q6642
qCTsNfseHe2zJ1c0mvnc+D4S1t8DZfWr7QjXF8NA9lw5YUcorT/NY0fi7duW
cPWXE1Zlm1fFrC1pCP/CGUrQmUvtbrbYkv2d3+ZSGOWEHv49XSvClvA6jPfV
1ZURdtSHDxK8tiQjdgmRjfpAWPTnS/eOXSEj4/vs2yRK8Dr8RrYHW5ExT6UF
ympsIslaeviciTl5M/OvjXUzn9D4436WiZ0ng0fz5uOc0wlLSqaGq/0kEcrW
NOg0CiOmB/10nbl3k/tjUuyI66FAr900f2pMCWZ6dlUvU8oA9te4yjf6uqB0
+05mtVw+sAWl36RknwMtly+6mT5sYL9VCtJPMAePo+fEpk+VALs6VUmnxAp+
8EgHzl0uAVpzuNjhZiu4XNP3+59rCbBC9ARkB61A15jRzv0QvTiJ9pnXGjYy
r8eI9qP9NPpL9ayh+sETkQPOpcCS/qqd3WkNa39OCflGfQA6WzUmcOwKsBOD
lwm2lAPrb/ZW5e+2UNfwYtGD4XJg6563TP5rC71cnX83zKM35k1x8tkBz5Xt
o3s2fgQWN605Ss4O9BRqqi84fAQaLJdbam8Hfe8FQp7xVwA7SH2z2Hc74O0N
FzypXgn0ZfWNfl/sYe2q1zztZ9ErjuctHLGHHeq9Cy4xKoH1ZlqGOWcPpzIV
J69FVQLtepR60FIGPHRsqo/vrQT2h6LRuk0M2MklEjHuXQW0IqF3ZecZYLjp
/qqQwmownS98LlvKgKcSZmerKqtBcujBr+EKBiwS2ZzA01kNXe2Dqsm1DHi+
OF/Wb+EnoPEXDc5/ZsCyoboDrpqfIF7eIEB/kgHvMnjMzTs+AWtZaJ7jWiaI
JtemJoxj7hf2IHcdEwq0K53sOWogPvLKpmEZJvCp3n2VsaIGTLdX84ECE4qU
pY5u2l0D7MA3dt6qTFgpesBQzLsGJMduvrK2Y8LhiPi5vQE1wDIfr5W8ygRb
Ac5Yo7totRPrqp2ZULyk4mtkMvYzgbN83kxgzhleEfiIedHxK+vvMqGy3cGT
a0UtsCyshRPymOAdl5E0nlQL8Wqv7mZMMqFjNE3zayY6c/2M7AwT9sKTn7Uv
0DfURePnmPCjM1klp6wW6L8+e9pxUGAu9bDHcQT7vZsXuM9HwbGk0PW/FeqA
JRhltm0TBYk/71QO768DGvXaR0iWgn8qwQ6fj2K+TOPnxFYK8nsDil+frgN2
fWHWnZ0UyGzyNWe5oUskiw0OULA0zSlp0fs6oNvKKHOdpODynIPmdAWON6qV
OqFHQbHG1Z99DZjLpIwEGVDgPmyvUtaHfj696LsRBaNbrXoCeOqBveyQu7wZ
BRoeloFuK+qB7nI1dpM5BSlVl3bZiKH90s2FLCgwsTPz1ZKrB9qK8g/VVhTU
ZBmv59dFewoIljIo2Eo7U0kzRm/uC7eiKPDXMXSYuFgPLOdbPgscKDg0oV9c
54j98rRYQs4UxB3Ss3nvifO72HgHXaNgLvSkUO5NzL0NPv12oeD5Tm3ziGi0
4EmFAncK+K5r8t5IxP6lB/ZyeVJwpV4j1ykdc+4n9upeFKx3UOU0fI3ztXqo
ZnlTwCo+mqFWivUmsW21PhR8FlLR3/MJc53HHoPXKYjIoyet/orzT+c0zPhR
QC9i8FcPocf/Ti64ScHQu3h375/Yf/vuZRz+WF9eM7DrH+ZKzit/oOk1NIMB
7ga8f+WLmm5RMNwk//a+QAPQFRRrMwIoiPxiuu3EGszvF9k53aZgZIi96IUc
WoT262sgBVET40yr3VgvHPvpehAFh39Jdogdxlx01UmRYAq+/9PRqDneAKxx
Leoh+t4i7xfXDdBZqzeL3qHgCO8zaWUT9NMTV/zQo4Jfg4cuo70L5HrQ0aIC
v2Mp7DcmaqUYQoGK5CHLk+4438gOfhf02EZmPecNrL+bL5qFjtmWAAV30OLG
bs3oo7tq069ENwCttUT2B3p8L4eIxCMcLxMjjt+fcP/QDt+6DKynrqr/Qx9T
uzDu9wLnk+57NIae0A49u4eN42O9pOvRDwzelo2Uo5VLC1PRqmcndsXXo3fu
McPvT/hhJpWg9wWdq8Mni461OrmMux/92iO3EX8eNYa3S+H4f/1lNa6iJ52e
9drOYX6joHgBOs7j60kpzkZgn/AV9cX7pe4r8KZhWSPQkr4emMH7+zPgkKz/
KszPim86i34YyozcJ4Ve4PHxOa6Hxr2EBWOyWF9yUPw3rtdUXK1d4q5GYDGi
hRTR8ckc7QYHMb9clGyK63s8Y4fqEjXM4z+VeOD6Tz+/kFN0shHooZNWgbg/
NNlvb6+7hPl0uaDnDQpmSidmmuwwz4/iuID7LbFKyjzgGs7/KkNN0ZeCX23e
+yduY3/mnZxnuH8ffX2WmhSBufm+t0YsCrQHvgoZPsTx/MNzP3D/J00d+v7m
OeY/i0p+uVFw4g/TiCrC+Uy86Jdc8XlakFiyoRTzBr/Cd/h86fAviAtsxTxH
zUvHkYI/su+0z9CagPVai++FLQWPd/woXMaD7uM79uQKBbq7pTe9XdEEtJlV
0kH4vKce9ZnftKkJ13/o3sZLFOibHs6e0sL8vtiBh8YUSH18+27B6f/q16gd
/u98UTjUuNwULSSX1HwKzwNu+txmCvu/Pbq5Fc+r108PqJyPxH6Zv4yUVCkI
EHl96spD9GlGl7UKBYY++62upeL4H2XWoYdwfxjsCw4rbAJ2E7d57j4KNv7d
3VLagTk9t1FnO+4Hi4Kh+n60htFlITw/2TXKf7vGcT5r7uxyGQrOJClJ/17Q
DPSKMKUl0hTcOb7LZvsmtCCTu30F3v/o7bR79s3Aut7Syv7JhJKFWYLJ15qB
bc3LcX+cCWG2chuee6O5mHstRpiw9dA2jcq7aDXxwk/fmHBhQDacVoD9djz8
8L2WCR+VNspY0VrwfTjQrJnOhKj45L1OS1qA7Wcsr5DCBHOeDVrXBTF36Rtf
ksCEf1/WUbHrW4Alk+PpH8kEBT+polq1FqDf8IspYzHhQb2Yzt7Q//qtWn9c
F9+Xk1Ubee5jzif//elxJjSs8PrbmoTjJ2dC5lWYsFT/a5pLAdrNR85SmQmu
DcmLXnZivbq3jPYaJhg2yr1SlmsFNm/HZrtOBjhMdYZy727F5/NN/r1mBoQI
h15uPoR57MudWZ8Y8MFgUtjZoBVYp+aePyQMUGrKZ7xwbwX6vkK5oDgGCDfT
NypWYL7zs2ugIQPkZyb+cDaik/Oi7U4wQHPVo/qGDuwf156+7xgDfE8v8nb4
gXlKs1WkAgN+Npe354i2AT1HwV9zGQPqWnRDd15uA5bL3D8jF3sIbjP/s31R
O7CODgrdFbaDynOXXIz40Fs9py3nbYHn66Vpn1XtQAsFZ6FBW7jRbzHeuBnz
+D3dk69swfPn5R43bcwT72wtN7EFWz7byg9RmCvZv8x5aAOahx0fmMh+BppI
9VjuvDUElDiK3lL4DKy56FdHeqyhTM0p8vl+zH2GTqeUWYPKCeeQRSfQdXHe
fSHWsP+si2/6VbT5Wv4TEtawxcnDZqYIx3/GF7WCFfCk+e2/c+IL0JKjox33
WIILhxQJMPwCrOg4o14RSxgwLDp04wJaqTds4y8LKOWePOZxFb0/c0jshQX4
XDI9eSUKx9dKuzVut4BZyX0Wqp1obydJw9WXYCBq/M68XQew9u69nPnRDE6P
3Rb87dwBtH8Wc4uTzKD02KaIaRbmrRX3dniY4flxLuZ7GOaFDPNBOTMw0atI
an+BZuqvGrtzAZr4Ul7m/0N/F/faoWYKJX7G3+yDO/H+3iydlzQGn7sysnL3
0AbHFj9/cwboCVOMkQT0hPHrLuMzUFR059/lPPTFz43Pwo3g+eR7UbPPaOed
MytphvBJfqWMrHAX0ORMTga91oeiOM/zYhfRXDHuW+OPw/0Nvd6/LdE+O/Xm
CzTANeN4cpsN+o9C5tMadVAuFBm554TefVXq4R9VeN743EU4AJ0mqp1xTAWe
8PaH8z1D/zq7+sDRPRDpeqKCNo+mx4v0XRYjXDlf3gYu/Aq0+O/CbtLSxGn4
SoHIYnS23diQ0EZy6qx/srwAepwuxs8tR4QPvvUyXYdmfcm14lcm4RwKu9iq
6K6TXoYVR0iY/8pYrxA0L4dRyD1dsuBt0t2lEejKlIY6GT1Cze4MiIpGS+5X
evZSj+han3DOSvzPbk+OfNEnApr+Jztz0QEXLlRtOU1Cls8tglb0+a9n+/qM
SVDkF7t/Ut1A25H22m7EjKxP8/0wvBEtlKmVf/QiKXq9RbJ1C9qTefnSw4tk
qMelNkcR/Vv22aSeOTmmsHKXlTr6RWVF99tLhFajPVvPQJdlO59/dpk4LGFf
f0LQ1/gXen61I0vFLT9HFqNXvfynoGZPEuX5FH3L0T6es8ZZ9qT29Nm+8/Xo
3pQqb2AQuZRfakL96G91hR0CTNJ/eAefF983oA0d3x33liJn3BPv6Z9Dexd/
L9F2IjxzK3/Kmn0DVqnG9xh/J1LofPsEhyXmywLaM985EdGrDlxPGei+V1Sw
sjNpsTrmwO2L9f6HpQ+tv0YMTg+dKExDG7crJS5xJTo7d3JL/sL64++PC3B5
Elp2itn0H8znia+4mifJ3rbmTSVHDz5v7oX2AZ5k+WZOR5elaOv7u/qXe5Fq
iabuurU9wP5oLCC8nEWOL3N943e0B2geVkES673JsYG3jsNhPfi9RlUZWV8n
N1edT7KLwvxpywbPoOuk7Nhc3cR9zP0XCZZkXyfqyTvlfyVh/3XuW1/NXCea
Zo+GOPPRlsvWad70JbqffU3WtqMPaDtIZPqR8zWq6ifX9QI9ZP8efyF/8nD+
m3PDJrRIz6sj+/1Jlxwr5fTWXmCngNlGc39yIahg4XnFXmClqr+8kOtPzDU2
v7FW7cXnc9NM7qlbxLqYR8H3Cuacv2InEgOIc0GVWH4O5je+zo2eCSJd73wy
7xdgflj5UMbtIKJWpXyQ9Rp9c8/32KIgItKdYKL+Af1N47KERDApWOqU2N6G
1xOWGZvQF0x+nV8rQ1vQB7QK47ERCCGui+wV1HXQj5WrqNFQ0r18ffE2gz78
fX1I/BRPGNFY3aoveKYP4m/fqDi9MYys3n7Eqf1iH7DeX6p9cT6MvDJc9dLW
uQ9MRavj+2vCyJ90cjAsDs23o1/x1V3iocuv0T6C49+0RT9MjSBOfN8zbSb6
gL2ydr9raQRhfCwX+DeF/ew7Pl7tiSBmh6+3Ss7j+PMbDxRLRpJjO6cvWwj0
A2upTkxHTCThF/x8c0KxH7rq+rjWRESRxNrHJdxe/RD/1m2wOjGa3A/y3Rx9
Hd2r31NfHE3C1S8Eyfr3g+krg4k/fdHk5tvVBlqh/SDp+H321ZYYYvMsqCfs
EdZHbuz68SKGKIZeXbi2rB/obdWDtg33SZkOHNolMADxpz9endsaR9qcBh8/
FR4A00VFwuJ6cWT4wV2+zasHoCsp9vZllzjCN9jfLr4OPZdf6VoaRwy8Q5y4
FQdA8tXqzDCzh6T72df0NsMB4OcOe2t6Mp78FfRd6R0/AAyZHYEmiQmEb4+c
x+8k7J+Y+V6pIIFImrR8c3wyADUKqbs2VicQlfStz6yfD8C4oZCW9lwCCTjS
eFy/GMcXlmz9oJdIRBw2em8aGAB5vZV73JY+Ijsby4artg8CTZj16FdwErnS
dDv3ya5BCFlRFXMkLYkkNWt7+O0ZhHjm2pbskiSysq2B78CRQagJL1k8+SeJ
zHV07cg4hePNN98Xs00m7wZ+OQd4DIL8AnWhPfopRPePDKdqxSBI8n64ewZS
ye2/w5XSNYO4/mKWliappPjf04h/DeiKmddxXqlEiUNx04uOQWC35sgGs1PJ
aq5DGht+DAJj1cuYayp4ki03ClkoOgQh5mUn3uunEea6W2JsiyGgz4pxxkRn
kP1NVwvUrgzB+GMTVf7XGYTr1nn9WvshkOcVv5jXlUFiRhUCu68NQU3nSu8g
mUzy7mXHb87bQ8D4uVbYqzCTCOrsalfPGoJszd2pBf1PSY57Z3T9DPZfajYp
lZdNPLd/VDz7ZwgkP0z4yHzMJmrdubU9tGEI2X9vVLMzm3xWDVgyvWQYdISP
6YwveUY4Vyi6iIgNA3tLhkSq6TOi/yTA8Bx9GFjm5g7CQs/JVKPiqn7/YTCd
y9reEZ5DcrVfZ04HDQN99YNA0Wc5hPqgosJ1dxj4Iydz/apyyHiBHnNDLM4n
9c7kB1cuGbnPrLj4DPsX3Tu+xT2XdF/I9OpqxX4ev7XvMvJIQtuuleMdWG9m
YrU6JI+Y6hVlzH8bhviEphXtWXmkQ6Wide3oMHR1N0cuHc8jrZsGFc4tGIFx
NW7dfVdfkJrv6wdaZUfwe0nimJ1fPrljkeE5uH0E6BeE73ak5hPtTgXh2V0j
QDOtSLhbmU8qag4fFgF0+sDeT0IFpDTH9MEpPaxPcnnwKLWAvHZ5oFPvNgLZ
p6btbna8JO4/1vV3szB/PP85nauQ7L2S7vHDD62VHb9ueyEpOFuYJhCC1/Ml
ylzAu5DkQgunTtII6By5e49z8ytytcDkvskT7HfcSKtb7xXZuaN/h/1THE9t
NBDzekWypKfPBxeMAMN879G0plfE7r7HVOzrEZDMUsymLSwiW4UWBWa+G4Gu
W6NXC7YXkeHAQOnXHzCfZH6tO1tE/v/3gfD/vw8k/wO2ZYVF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.518974461834403*^9, 3.5189744665134697`*^9}, 
   3.51897486172714*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "megaprox", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"megaprox", " ", "=", " ", 
  RowBox[{"EconomizedRationalApproximation", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"k", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", ",", " ", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
           RowBox[{"(", 
            RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}], ")"}], "/.",
      " ", 
     RowBox[{"k", " ", "\[Rule]", " ", "0.30004578719350504"}]}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"-", "1"}], ",", " ", "1"}], " ", "}"}], ",", " ", "3", ",", 
      " ", "3"}], " ", "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
        RowBox[{"k", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"2", ",", " ", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
            RowBox[{"(", 
             RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}], ")"}], "/.",
       " ", 
      RowBox[{"k", " ", "\[Rule]", " ", "0.30004578719350504"}]}], ")"}], " ",
     "-", " ", "megaprox"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], " ", "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"InverseErf", "[", "x", "]"}], " ", "-", " ", 
          RowBox[{"k", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"2", ",", " ", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", " ", "+", " ", "x"}], ")"}], " ", "/", " ", 
              RowBox[{"(", 
               RowBox[{"1", " ", "-", " ", "x"}], ")"}]}]}], "]"}]}]}], ")"}],
         "/.", " ", 
        RowBox[{"k", " ", "\[Rule]", " ", "0.30004578719350504"}]}], ")"}], 
      " ", "-", " ", "megaprox"}], ")"}], " ", "/", " ", 
    RowBox[{"InverseErf", "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], " ", "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.518982127325556*^9, 3.518982320657267*^9}, {
   3.518982368867936*^9, 3.5189824825245857`*^9}, {3.5189825266553917`*^9, 
   3.518982532955077*^9}, {3.5189830648193502`*^9, 3.518983088920114*^9}, 
   3.518983121639189*^9, {3.518984041616767*^9, 3.518984086384924*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"0.020287853348211326`", " ", "x"}], "+", 
   RowBox[{"0.`", " ", 
    SuperscriptBox["x", "2"]}], "-", 
   RowBox[{"0.07236892874789555`", " ", 
    SuperscriptBox["x", "3"]}]}], 
  RowBox[{"0.9913030456864257`", "\[InvisibleSpace]", "+", 
   RowBox[{"0.`", " ", "x"}], "-", 
   RowBox[{"0.8059775923760193`", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"0.`", " ", 
    SuperscriptBox["x", "3"]}]}]]], "Output",
 CellChangeTimes->{{3.5189821552334948`*^9, 3.5189823210673037`*^9}, {
  3.5189823696555967`*^9, 3.518982482771586*^9}, {3.518982527621745*^9, 
  3.518982533505301*^9}, {3.5189830741851807`*^9, 3.518983121972725*^9}, {
  3.5189840440902033`*^9, 3.5189840866583776`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8FV0YB/BbIlqkKBRC9oQkSXVGlohCQqIsJW+phApZbyppkxTZ4iJr
4t6hCJ1R9jWE7FtIhWzZUt7HP/X5fn7Pc+bMOXPPDLEzV0zOLafRaBfhn6X/
JbVMHOLvfKNWRNCE1E6rEoGzmpYVnt+oQtXRi9dbdhNaoie/DtqD7cx/pjSr
ELlX7vwW2/uN0pBdk1g1q0wkz1WeSN0F3qhEORQqE2G3ePKUFL5R9GbDgJxA
ZeLq8yhfYhv034t77rxFmVCgWCtPr4X6yKp/i3o7iQTuLsHw3kGK9jz1utEd
RSLEili5twNctPJyjZwi4Z/CmGptBjvu3vVfvQJxRvPspy3V4N+L+d1iCoS4
29Dt2LfgWOFT/p/kifjOiV9JD8AVr3niLOWIEDnTTt0AsJiEgRaPHOHv/qZy
iD5I0bm8GqtLZYkz6z0S5dzAl4K331eVJcR0/lpm2EL9frqrtagMwUhfWfpm
NzhwjRjPFikieO58lrkS2Ob+6s5OSYJ+qJIxIwcuM2lwiJMkbHseeu0VXZpv
5a1kOUliK9+Gne9XwfhpjRte6EgQMV5C0cXdA1ThXY0dTlHiRFC5z71zbeB1
i0p/z4sTvhu73TiaBiiaP0qU2iNOWGfGHdOrHKDoWqYqB5vECOGvUiurs5fy
5Be2AmJEtP5O18/3ID/v5XHVZSshsVq/su425MQXq/fbthKvqs6I1/qBQ0K8
vzaLEHlHnjWUX4d6iYPGeYQI0Wo4o4ztwD9k+o5sESY2HX8/mbIX6q8wKyZm
NhMxvM0GSSqQn/K37367mZBsHE1IUASzSY/7u20mVMxETWMkwf12XoMzgoTJ
iVvZT9eDL/SPDywXJB5bHb7u+72foi0/v2GdGj+xSehMjVc/+K3oU69l/ERM
h6fkjW7w/S5petUmIuN0etPVJvDG1Ah9u01Etc061QsfwK5lvG+ebiQ47Zum
j0f0U/RIms61DXxEsMSo4bFnkGuvr4zq5yX4BziSDR+D1/vWHMzhJaQc1E4c
vgM2Xv+AzZqX0DkflYNcwEGVV1RZGwj/S3YesodhvP6xrO2X1xNdQdbReVqQ
MyUPWGqtJ9RZVoUGCHIjw0srNq8nJn6bcTrtAid2JJSU8xB2fvrhpHA/Vejs
0Vq/nYfQCNmVu2/iK0Wf49mVvJabiM5W6qge/krRHqyIEClfS8w276BZf4O8
wCnT9tZagrlFRo/eAflBvkn1hTXE1kShluJSyE9pZ7HNrCb+5bDPHo2CvOp4
USf3KsKybblQdyi4xye8v5GLeLuwSDgHQ30CCn8SxUU4HZy/G3IH8paZH01y
XERn5Sj/lyuQn/1vTZ0xJ1HQ+WWPrTa4R3i0O5eDEKA1WY0j8AXhjXaBHMQ1
8QY//73QP9Rww9GCg5D/r7rspQLky44dXjfPTkSPFZ74LgC+269xVYud8GJL
c3cd6aPoj2RFdEfYCKcIaw7boT6KFpE3gsrYiDOKvKFHv0I+/XRHeBwboW/l
Tcq0Ql7gd9vxBBshkGU40lXcRxVq/524UracyD4zecYgGurvGB3mzV1GpMwm
j6s9h/zigGv882VEVNApulQI9McHP/F3X0b455W8WBYI+c3L0zvVlhHHNoS3
5FyFfutbY7ve04jRD/sNJQzAiwcS2dIWUd+J8Y71h6CfzYR+yXURNY0kXlzU
AG/h7rfat4gKBNfda1MFuwULlNf+Qw9ceouCxaF/Yfncqz9/kYxYwN6/c71U
4fYYNutLC8iO/kmiOaWXosVZ6kow5pB5ayzqTOilNLybJ/zc55C+srNFfwzk
08ITKkZzSKWf5+HEs16K7jX/PWlxFnHqmUxy34TxFHJNHtvPoox1TR90T0K/
flZL7IEZlHA+sd3QtJeyPb5gJbJ5BoV/uP7bzAjG8wu//G16Gt28uknWXqeX
Ek3UGjRjTSPTLyeC6TuhXu6F9SPZafQnps36HVcvZSxNJOdI/UZjM2kehSt6
qfNsGr/8Vv5G/cZeIWWLPZTxynSfgKEpVLtcqLTpdw91cXNcisGrKRTvcHrH
RG8PxZwa1E7YNYX0FHr+yOX1ULZ3H7hNG06i0PcD4dGOPXBeRs2ypY8ja49I
3z3nIN+y7JjBk3Eks8vIvsEGcoI1W+I2jvJSchU5zXqoHsfychPNcdT19EHp
VaIH9rei8137GJJ23DmlzwdWaWAQ/GPIdcd8zIRXN0VfpT0nbTWCViScdZRx
AdeYJVxXGkFhAjW7rR3AiblNXBwjKJ+NUV1hDJ5+w1hODqMVbTrzDEnwS7xM
dO0wCgt4Ymb0qYuiOW37efbTD5TXLbMmXXzJFryn/YaQ9/5lryMFwOd4BT2s
h9CBiNaj97jB14s08IEhVGhy/7HDfCc8Lx3alQvfUFnJzw1iDeCtz541eX9D
ja8yBMNugm17de1uD6JRdxVpek8HRRvkn6/O6EfMxjXlTs1gL9PLISH9yGXn
wPnT1WCdPQ3ubv1o6kdomnou+HXl8TjUj/6cntnx+zG4ofrFf3VfEad2nooj
Ad7nevPuXB/axqOhaRrTTtFEWuRcbXtRkFKvp+NTcIjXmjSdXjRr7J9FDwRH
cXX8k+tF1U+KJV67gj+VWP773YOu8R5eyaELlq5iGD7qQaWbTKpzfrXB+yWB
WuXfjRyF7c23HAQrHXOYc+tApFygY9/XFopWPexFH2pGW+tt321vBXt8DvKk
mtFD972c12vBwZsvR4Y1o3PFPxJXvgNrnBrV12lGAtZHe+WDwHVkm+PLJuTz
ZIOFuxq48eqWuxcakd5stM6aR1/gfRv215S7Ab2Juf7MzB+cYu5W9r0eiesY
fo1xBx/xHbAqqUd/nizSd54BC0Ud+eFdjzK2nykw3wMeu9AeOVKH+Gykd8X1
NlM0tT5117RPqLuEJaqqCjYOcW69UYW8j89pq8mD6+TdjQ5UIYFejQvq4kv5
5dIFWhUyXvjEQtzgIeLnQmAlKlQe1dQdbIL9leB/ElWBGLFy5yzCwMzOg7OV
ZejMjYRUz+lGmP/AdX2TYvSP42eN9zA4vCogQKgYRT5TnvDtA2vIVswMFqGG
zA/qt2rBwewZN7yLkNZgd9WDJDDnWMhc6kckcVxoNNocrFa0pZv7AxqQD1Wm
3n6maKKtdv2L+UjON3F06BU4+MCBWxH5yOnTm7QNcWCNwcmoXflo1qVZ3OEB
2Dn1sfqFPLQqh593rS2Y8fqzbFsuUjoYOWnJBR4L8cpveIO8zGKzp60a4P1S
zcYhwkSFSZnOosfA9ItNZx9lohWzlLz+oSW3X0jtzkBBkT0vXyiBCxuk/wa8
RoxusVBtdrDGcO6HnjRUeuHl9ZCMesgLGc8KE9F631RVhWVgDQH1ZbbhKOCt
TDnPTB1Fo4UbMo2fo/nR5JOTw2B6UNCEZhjqs0nyzm0Ba9wRV5R/hsiDCR81
mUv12Ml3fTAyYX9heMJmyTzntA3pSFpQrIbm9Ql8h32RxxPz3N86VuKw5I/t
L+/64Nl5Yd4HJmD66A0Bbzou79h8cqPcktlv3/x6C59n8A3IttZCfX1az6P7
OE2a86/JniX32NenPMXyqr/kEyerYT5/RFYYxmIHBT+/d51g0apzouwMHCu1
rqGmbCmXbjxzhoE38Cu6T0eBbS1szDbH4ZkZpw+62mCebZv/+MXjj+9GzX48
q4J6OedI8US8wPJN+ee75Bx3yauJeHca958NF8A81dfaPibilEgFxr4D4B7t
9iKbJPzIy+nHw4FK2N/jJrGPk7HFgVFfRVVwcGNSQ1kqDtntW68lCjbemiO/
Og1X7eCWsFgF1lBRyTmahpGIQgW9qwLmXyFtU5eGty1e5m0IADNM/3BUv8Kj
hSPJ176Uw/5NeQu8eI2l3/nMB34Aa4wGv/78Gtuy1h598QqsNCjuyZWBP8ft
mCjxW7JOZL5rBs71v7yfXwZclz04vC8T39IeqXvnUQbfJ3ez3pky8Ue9YSOV
s2Ces22eF5iYdvRnbcZRcE/f2m4fJvY2+16dIL5U7/TwSSITuzkMlD+qLoXf
l1pw4hgTZzv263LmgGk3iu4sZ+EJp6+l/nHgcp6RVXwsfMW9t9jdDewhJ8yu
ysLnAzsL7USX+k81UtdZOOlhB9Gxaikfj6q9zcL9we3Y/HcJRTt/1PT2Uxa2
i2gtMKgEawhGDGSysGVaU+7ua2AeWnBAPwuHZzTuYVqXLP1+Zz+PsXAz+fmt
3GFwob1V5QILH8+vz94qslRvI5LFS+Ij1TVMrvJiWB+7714HSHy/rlrxNgnW
Y/cT0CVxeWNVxr9osO0tOVtjEut0VqRPuoBpqGncjsS3e8u3O50Ce6yx3u9I
4o8DZWlDh8CB7et2uZIYjZakdG4Bz1qskLpJYu+JYmkLDnAPvUE8kMR500VJ
DWNFkCf1VAeReM/ih5dlJUs+2SwbRWI3tg/bNJngwKMGnQwSZ68sjC+IBCuN
byaSSKzEgxmsK+CWK9+4mSR24nu/Vd4SXH7vqk82idMFCmKStMGFOR5RuST+
IZQvLKYIFthJXCggsaxYXnSUIDjYYN03isTnJd9t2bQC7Jyyc2MRiZNkcyOD
Rz/C+m//NVlC4v4dOYKrW8HGI8G3ykksrvw2/E4RuFzatriSxLaqb/hpGUt2
TXpbTeJY9ewwz3CwgP9ry1oSd6Gsjb/9wR5mFPMTiYW0yGdXLoPDuaXe1ZHY
UpfF++MEOHC7/LV6EocbMEPsNcFDO4X6wM1Gmeu75cGcyw+yNZB4o2lG8En+
pfm9HfgCOSn1IE+HDVxoUOAINp77r3/nrw/Qf9InH8YfqdLmFmkHK9k4VML1
78eIqa0qAzP/Zj+H+Um7/LObJsEeQ0nbakhcrNX+oC8GLMrv6VRFYrtNuW9q
7y/1R17yqCDxv6Fn3Xlu4MC0goNlJI7Kd+FKPrNU/yalspjEakGGu54agmka
V3g/krjJdvtpP3VwC7uREKy36y7OuxelwLY/AgbySbyOY4B5YgNYo8vsCuxX
esuHNq1/hTCfrX/ewX4O+ngpCDWDg8dKQtJJfMvYwoLzI7guwlEshcSi23b7
T70G25Z8dUmA9Swfbaq+A1ZzOX4ygsQzkVWLuS7gIY3KsackfnY5RTbxNFhG
bZMBPH+1G874+OwGG6cpHvYn8cUBlHxBrHDp/PMd8SIxZ+6WerO1YHpjotl1
Et/JSzt8qpKC74FJuut/8PwZPQl/LwumUSEDeiROmdIfDl0GLk+oyNQgcV/E
Cg2nVgy/rxsDhBqJzfvdv4ncA5eLNpFSJCZuWKvSh95TNIuG9h80EnuKCNy3
KASLttB/TrNwdlF9p1I4WOa5aPYwC8tw69zp1QUH55yO+cLCPAnbGzWTC6B/
fFdXGgvr6w1Ib/EDF1rwSsWy8O2RGK9Jc7Bz+Wo1OE9m92zY9pIDnKJ9Mt+T
hXurZ13YHfJhvTS+H9JlYXK6ZF25RB6cFwonMpqZOCgt/iOaewe/XyODq6VM
fNHa7/qbGrDSGO3fGyaWKFVrj3cDMw7zOzxj4rDQV0k+5bnwPdRbdt+QiT1V
nhzYdSkH9nNm9IdzJjYfujyWqgFm5uXfPJyJd0XrJ4huBIs+sc8Uy8TDbCu4
uPFb2M9puYa6DGz92a1xaB04JYI6LJeBNV1PXYzJyobz4mxwQmU6FpHaK7Ix
EJw7wbYYnY7/tG6sf3AKbNv6e8EpHWcf/KR6gx1Mv37o6/p0LLVec7npiSy4
Xw9tp+Ov8CqmdATXHxa4snpbaSpObB949P12BtzPyPvDV5Jwm/em2Be7wLmH
3gnvS8LcIrrMY32v4fnXW/eGIwm72aY0vCPA9LlDSi8S8aEBR/7786/geUo2
cix7iYdGfzHknFPhPNgd6LE+Acstn8+6aPUS7pe2rZgWi08fE8puP/sMrtfr
G5L1GL9b5dX08fpTgma8vX7roSDE2LHxc6b4M4JGq0TRRo9RgHFmXfQn8JQr
t7V8MDIN+1rlJhtG0Lwf9Q+rPEFjYkc+ynWGEzRGvHiU1lMktVc4M0Q7hqCN
OQ50mz1HFVk22qx7Lwla4ZkVWlqxaH+JfJF0D5h+xXMfFYuYzXMHY1QTCVpB
tJqjMAOFzT0lHnwFP5z86hzOQPZEufq5A8kw/p78rQ/j0GKl0k7B8VQYX/3Y
yQsJaHffMpGbFpkwXkzPxO8kpJB3YlwpFax0e7FDJhlJhbwu7pkDn7/+NNAq
Ga2OS9/NOMokaLn7mWKFyWjB2KJjcRRcuLNLPyAFdTIzZamdJNx/yMMJ9jTU
Fm3Jy28JHuNoeaWShpoD2f86+YON1ywTPpuGam2t6kQ+gwPNH0hQaQjzrHT3
vZZF0FK4h3KuvkKxztbFB3Ky4XrcDy7WpqPoU1wZod3gIZKymk1H4XrZz0dW
viFoPOH282KvUbDoqosvLMCFDmka114jet2b9X/nwOFmnT18GchOaa1Nwf4c
uF6z9qhOJrIWytXjOwdW2jbm55iJLDnPKl96BB7DtW+DMpFJTy67UBdYI7Zz
fXMm0gy2T/fyy4X1fZ2mqsRE28by59Q/voP186K/YDGRd43W7akRsICqtspH
JmpOq+LOEMwjaHphNsENTHT/XPs2MRew83Hl5xNMNNY2f3SlaD5B84j4r0mR
hfRz/VsKDcAayzgeIRZ6GbrqrKc7OHzv9pVHWeiE8WaPkVpw7ruXBy+wEC7Z
G//Zp4CgyRRElMSwkEDCB/lHqWCPl+TdVyzkSj+cc6gJLHr3IVcuC0nuO1n9
Tv49zO/FNoM6FnrI9JiObQdzrj1a8JeFBh/Rbp5cieH+17e5cpJI42Lgat5d
YJlPlwc3kGhSMlw04D44vNuITZpEllE5+pf2UrDev0JXHSFRtgfRJHkOrMf3
K9aURNzmZTbdweDwIsavUyT6wPPlmskQmPksr+ASida6Zy6yryqE63vf2HuN
RHnnJov7toJzk9EVLxLxaXkZRRuAAy89WHEP+ndSfDfswGq+F88+JpGTKFub
mftSPXO5ZyiJyv/et1+XAB67z1XDINH14VrZ4Vww7fBnziQSibdv+FVeu3S9
k5x/0kjklRt5w38e3FLpuCybRDLJXciG5wPU/5nkyyVRY6j4iv1S4DpeRmc+
iW7edqgQ2A82the2okikcDUt6Pcx8FjS5kcfSdRuN3q84T+wRd6hqyUkCjRW
Fsz0WcpfGq8tJ9Fuwq3rwVNwYe43y0oS9e3ISzifCqbfzLeqJtFjoX/ndSiw
2huvdbUk2r9aU0G8CSyj1XL9E4m+z92Z/PcDrOR0M6iORGFDFbnttI8wfrD0
yXoSaX1Z65u7CUw/4dUEHis5phUqv+TwHfA9gqKzQzldNcHh//3qhfxwQmuN
oQW4R9TVZan+ToZDyWVwSmnsGxg//PytxX23wMHpzelwfQ0Di3AyHCwzVW0O
8xvasWOnbAaYIbo3C+YfzLO8MrYIfL6i/gPcn9pk85lNrWDn/KP+cP89Ta/+
PBxdykXtp5bWJ5f+jG1FEcxnTzV/EYmUosx2eAqCOQMODMP6tvjIlY4pgAWq
r7gUkIhuu2j9nzZY9PfmZNgfGa3Gmc6T4LF9Mw9h/+okU4NNryz1/ykQZ5LI
g9NXtuo22Lhb4vwreD5qpK1yM8FDRZgWRyJn5sKkQslSv+jZ41EkEnha/zCx
DZzrGmQKz9N5Cy8cwl4M/Xvt7AJJxLPP+ATXFrDFhPelmyTKFZYc81MC03k4
JT1JxPm1Vuyy1VJ9xokXjiRiliTkfXUGh2uEnDpDIosUj+OWAeBZT5nykyRK
uSx+R5cFbmGaJ+iSSHf2+pDYyhLwMaMzW0k02qZ/M1wIPPZ43psP9vv91s3r
lMFDxwYOcpFo0L/CYOEUWG/sSsU4CwWsFc5sJsGB/yTKMQspjI3rHi0HG0uE
7WCxUHNDaU9RJ5hTS31fAgtJhTtvYHGWwvwHBQ0DWKhUvPj6A2twT81eAz0W
cmKP4F5+DZyrpP1zDwttGrqc7HFvySvu7JRmIYfX/K3nssEMG2bmChbiULu4
X2NVGfxe/H9czGcinaMb2H6/AQfqJ2fwM1GQHdf4XMWSh8b42Jio5Tqt+18n
2Dgt43hHJnKMGc3j5CiH82/E831AJgr6VekqZA6mjcZ0f85ALU9u9WlNgwvV
r601eo3Ekjzr9FZVQM6/w3/La+SY54KPioBtfzgYfktHC302kScOgXkS//70
TkdiKvtNLoaBx8yUlBmvkGPz1IcQ1UoY71VVbGkqyvrxM/O5PthZUNU+MBUt
/Ot7EW0NtvVv8DycioKk628kBYB5hE69qEhBWR6vd+Y1g5k/BzI+wPtws0Nc
r1sVjG9ah4MT0WObL3SlnGoYP+uXXwoDBQzvJwarwfS41vIjDOR7I/5vVB+Y
FpV8rScWOT297LmSuwY8fWD7hRhkWMZ2rcserFFzVc8hCnErKv33cEMt+PoJ
FncoCvoXeHTo8ieoz7ZJMfJGAQ9GV8fcWnJZ3/NQD+QrYFp5PGLJ7X0+jdeQ
k/JWXap4yaeuHvZ0RNJZlqJVa+vALTtHlTXxym9jgvH2YHqezd5jN3GZofBa
4w31MH8XAwnFSMyn0LvJVQhMj+5W1orCtmsTRZ9JLXno9BeLaDxfJa/Sor5U
b+/zNTAGyx/eb2V7FiwqNsvpG4eDtaxSnbOX6r+E3uNPwpZqETpPzBvgfnTX
TPdn4iT+00ZZtuC60uUntJl4clr0ZJMjWCmQOyqMiR++Sbkk6AcW/cyw2s/C
lHLu07jkpX7O6sKHJJbY8aWXNQvuec4mf/ANHhHb6NsQ+RnOr81n18zlYTWv
OJcPL8FM/9uK5vnYv3HHOWYGmCY/n5uVjzfdPXQk6COYsaiweKUAo2H3zfo/
lry103LkPX78tu3th72NsP/XLJg+hXinAeMXswXszK74gizC3i/lv8b2gTm9
2FO+FeHSv7nNQcNgAbMz34SKsSWz/v0lWhOcnwt9bIHF2H8j20MZGfD5nKtv
bEvw5+5zMgx3cOAdrpVCZfj6te12jzc1Q+7eW5dXiTet+lVgLgaefTvE+FOJ
c2NJARF5MDNuO2t/FV6o3FuXfhAsY1obQlVhfzE9ovISWK3zzunyahxUay/M
XgRmeJ+QG6zFSTIxrZ5XvhC08i6O0tR6/KWDx8ShvAXGZ5BBfs1Y/8G5lmsN
4KFgyZbEZlywN8/6Vgf4VNcnzepmzAg7e5ExBq4LNfQW/ILPG7+93SbQStAW
bDJuvfmC54uscgwvgPnWRrJNtWChV0lCe1a1wfqMCw48aMdBJ//E6/CBj8i7
MN62YxqnsaypCPgSr55/bzvut5/b7aIMRn+O5O3pwK9Fjhi9sgRvcq5YNtiB
Ucj4za2v2pa+F7nF9buw7Y3931YeaSdoKlWa6hE9WM6+vGnUHDye6aCZ1YMn
DU2Lm+zAERcUHWp6cIDEpbgEd/CW2vvLlvfi9E9RVkQCeL1FxKNLvXhO8s8n
t3nwieybirp9OKThXe5ASgc8b7/fO/P141PvdZKrs8Clsw4XlPuxZEp9aBYG
s9ZcCDDux7k+311vNoKFEloVHvXjLhnBHcK0ToI2V3Fai3MAy/l5xJmeACuu
Ga1lH8RF2/fcL2LvImh3t0ieFhvC1oqmCePrwJ+Mpww1h/CsskvB1s3gt9Y+
l84OYXn1V6NeCmCtm3T5pCH8TG/rcZUT4Hr16eod37HDuZVCiSngozfY53V+
YM7YL68DDLoJWtfz/IwXwzg+fqo026yboKf/y+ApGcb7k9b39NmA49fFZg4P
Y+fXBhuIa1B/btmW5P0juDWfcpuJhhz3+j/uHsFpLcnE+VHIv1PnB3b+wlJc
BUMv9XoI2u/WRe6V43iiTMEx/mgPQX90uuaTyDjGAXE/Y016iMJ2Td081XFs
vuLuaOSpHkIjPkmQ+79xfGfx2FSwcw8hOtPhiSvGcf/vb4ve4TCe8Q9h1vMJ
zMy2vOn5oodgBLKr6ZIT2PtqzXKPeMjfh61fVzOB+cZJ9qvpPYRx8hVClW0S
aw37rL5QCNe/y/ZwwmUSx/fx8psN9RD3A6/8TDk5hZ3iAsJNRnoIzuxxMs59
CqvbzgkaT/QQMuP35ptCp3BDZ5eQwUIPYRoTWjDZMIWXtaaKH+TpJXjaC2z5
jX9j20+Ewg61XqJux/tihvk0Fi64qMMe2EsUbu801oicxXyC8/NOj3oJDQtx
aefiWbzGLZDZEtILf//xh634NYsXFBO3pL+AfPTrAVudOdyW0DVukgX5lV3P
OWbmcNiDYzGMLhhP3N5m/5U/OGio+/iqfshnJBxMGX/wHR0nrmvfof/w34nB
+j/42uL9a7pTkPe6vrupuoBNrhbrj3L1EbSXkmXv2P9ibqs9M/t2g4c2b094
/w9z5JakJ6qDdWJ2S878w3/5TM+s0+gj6KX0wP07F/FwrXNNnz4YW9xQTl7E
lZppCfdsof6kh6faURp1V07Y+MsDyGethReMllG0+eWprn1gWcYTvSg2yvZr
66TfN7DY+5e5hWxUYTUTPRqG/qx9O+8NslH0WOvG5Gnw4K9dxrtWUIvaeYsd
q74SdJUXq8PqV1D/HruY6+76StCSupvWinNQ1jf04kzVIPeOt+M15KDwma3D
dgfAx6/9fujJQfnurrnprQu+sSm6t5GD+tsm85plBX5a9HzP45XUgmQPm9Bt
8JXAtNYtXNSpdTmGsvdg/MCoc5VGXFTB7KMI1SDIuRsyD93moryr9ikeC4e8
x8FlaJSL+uP83DIgHXJXpb2Llauo+XxD1lgj2Jhz2WLsGsoyUXLhbys4lHO9
W+caKi9o4dDqbuj/c48WumUtdcMurUPyO+R+LcYNEWupWQ4OTqu/kDO9iv1j
uKmZY++tSyT7CZoX10fdczyUf2tmJ9reT9Dtzlz89JCH4raLP5WrBHlWSnlN
Ng8l5XzX8tU+yPdmMVQ41lOmQcfMnxwDZyt9a8pYTzErB46e9oF6+Zi3dQK8
1H6Tlupmf/Dpclt/PV6qrLXSwDgQzGcuWuLBS3UNZR7WegqOXlBnb+el1qz0
1JFNBaNP5MskPuqCFveB340w/qd3EkKnNlFTlbQCpzbII551lYduougmk+pD
3ZA30ZdL122iwu1a1Np/gD9eDKLp8lOlfvEqH2gDBP1Q4+0LBwQo8QJV+Ufy
YPs1YruMNlMZWrKvOJQHCNphO+2NoZupvVVb5Oh7wPRL9Lr2zZRxG03mqiZY
Qd+i8+IWyne2cttJC+hXK5RhhAlR7So2WyRvQ+5TePQ/wa2Uw9zudXfuQV6/
wuT1pa3U2Ps1bANBkG8WDJ4s3Eqt0M378TIC8rbqukOqopTCyY15EpkDRKG0
oIPckChF96mykGgD2/S1RTuIU6s044/c7ob64E3l3BHiVCjHDY3+fnC8popw
tTiV9lhK5uUvsEaCO7/KNupz3M2ZbeyD8P7ne5m3WoKSKt0Ttk0JvMfieGS7
JMW8z33/1u5Bgu6udrlOQIpSNxrw+aoODkweLzGXooxaQs4l6ICHDyzONkpR
Hj9GVLZZgb/o2Ze0SVNV3C8/iweAjx/K1eGWo8w/e5b5P1iql7+RaiFH9Tw/
lt8XDNfTlMydSZCjpkQX4+OjwNEyH20ObKdEdlm6irPA009rsr3kKecTPOvF
O8D78saOyCpSZ1IUIyV7Ybx0Sj3fR5EymzPcJjsIeZpb3rbPipR61KPdSmOQ
n1N+766hRLF3r7JEK74RGi9S/O2nlKhIB/YES/lvcB7UmCm6KVMPcyTkrXdC
/jwraTZFmfLj1H5jp/qNKDTvZ53sUKbs0/zLzmuARV7Y/9DeRSmOLv50MwVX
xD3zElahiq/Pqzz1/kbQDtyWEx7dTb0tFcRhNyHnz1c33K5KTQRltV8M+Ea4
jJR4zzuoUv8DYnhbug==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 1}, {-0.0003418313542835261, 0.0003412496553231311}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5189821552334948`*^9, 3.5189823210673037`*^9}, {
  3.5189823696555967`*^9, 3.518982482771586*^9}, {3.518982527621745*^9, 
  3.518982533505301*^9}, {3.5189830741851807`*^9, 3.518983121972725*^9}, {
  3.5189840440902033`*^9, 3.518984086867688*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1mnk018/3x22R7LKk8LFFZIksZXmN7Nm3pMiWVEhCUgpJIllSSRJZKiJL
KWvvmy2yVHayvb0X7zUlZKv8fP/4/TNzHnPPzJ153nvnnDlnZP3OO59iY2Fh
Udts/tebti8d/MTChLIH2c74AxGQcSRH2HmRAfGWx35dygsHdkab4LkeBvhk
GDu8GL4Ar41uh4Z2MCDVLVCfu+DC5rjD1/AWBjh7TGXIBF+AJp1v6VfqGPBH
2vuaP8cFiIz7wZ9UzIDfIZ2rvw1DgSa6k6/oKgMGhOwd9mefg+wz08HPLzGg
9E50l/Ghc2DRWNxTGsYA3lcyQUGMYCj00bhTdYYBS+mrMVymweBZZsaDc2VA
hOHNm/R/gfDF+Dz3mCoDiE90swSen4GYe9pnJ5QYwJ08LiHjfQZUZ1c7p+UY
kK5yr1tY4gwkpSQkze5ggLfymS2Z6afBZPgR1yIHA06WLTcXJAbA26C2LQKT
dOjLfyIfk+MPB2RCNJ+P0CHF7I7oGQ9/aBgUP2HUT4ePKVvyFaX84YNRUE1Q
Bx0OSa79Fik6CV0Cwic7q+nwbY6006/OD/BvvD9cT6RDR3bwcRNOX/A7w83c
cZ0Oz80vL+0Y8AGy5Bvxqmg6JMqcaX741AfoNznPT4XSYSr+8PEEIx9YOvpK
ysCDDiMPW8Kr/3rBtj9rVxY16DBaWfucx8ATUquKn6eo0IFb8ED1C4oHCJ6y
75fbTQe/ofBxhwceIPq5QNlpJx20asxb3y4cB5mnVqOvOOhwJ64iNrzpGOiY
ZemcHqNBtIzawocrR6FuBfn+G6CBwuAzkTjdo6D/inbnwWcakM6fcxdbcANj
MSNSaysNXGsEGptC3MCaSsyUqaBB8v378YXnj4DPHc2fY/E0yN12heP6Axe4
UpOZ2HuNBhPHDp9Q9HWBBxMLks1RNNh9mn/7STUX6FJ9d7gkZNOfaqnG4w5n
2N+rXxR5nAafS026BticgZPfzG27Fg2eNP7nT8l0BBndZ0xONRqobeH00jzt
CAZenDfWlGgwoGU6tmzgCKEVnZUzUjQwYHbhqL0OMGZvx13FTYMHv94ocd60
h/J0tybbGSqIO7TKJEjZwsfaWmfjCSpYRo4uuQ3awMz0Dtr+ESosV7NHLKfY
gNi+cdFdvVQQBumOh3+tIfar93laHRXSU/BsIvTD4Cx0Vi4xgwrjDw95bZm1
hOCDXXWXU6ig7CRnUVBiCbd89zqcS6SCdK1qCSXIEpqqv0e7XqVC3FYb1uBF
C9jtHDYkd4YK3Kn5EVJ8FrCSGZ0EiArdN66F3fYwA4pkM91CnwoaPBnBRfJm
MPyc0+6zNhWi0sbAj2kKbxruCk0qU+F1fenhnlhTCCG8yFnbToWw7bZO2ytM
gKg5WK5DpYDoO5+1T4qHoL9RQuA9gQJar0YyfFeM4YO59wWzSQpk0YQGrncZ
Q94xuo5LPwWoY94tR0KNwf06C4Q2UYAQ71tsmIDg81fVvrIMClgf+kt/t2oI
TcfD9u9PoUD708knN8sNoYxU+6DhJgVsE67d1fExhKQVk+OfrlAgKqjvhnqX
AZjKHCPO+m/ad967ZFCiD3Xnby7JHqSAUMWzyXu3D8CL1a6jpfsp0MX/PNrC
+gBk3RBs2KdOgbmL73XfbDsA4Q8fxyB5CqRgWhavU/VAHaq5TvBRQDJKRpIn
VxeK+Kcksmdm4fS7ziXvUW3I9EBcBydmIVwvjf9tkTbElzxdHBuehb6Kz+/z
zmuDn8nJL7t6ZuGDRtIOZW5tkIukJuS/2+RfASEMk/1QOPnrx/OUWQg5+sC/
7YsmZKq4TlomzgLrUu3PgiJNiL/0tosaNwsLfr5a65c0wU8o6plK5CyotfzB
dslpgqz53+MVPrOgejHfnBG9D56Wc318qzMLnDTgt0tWh4zVM2/c9s2CPs/y
IWOkDnEWXU+XVWYh2uHHR9bfauCDvxN9UGYWuAKLb86eUoP/RIQ132+bBell
l8xle1XIi5bMbZsmg1W0tZ+LmQrkWmuGDSSTgapmW8lXoQgKPNZdXxPIIHqS
EGBxTRHKuv3kPseSIfyCdtwfW0VosL3f33mRDMYFlS/Gv+/erJdlLZwvGRaE
lQxMdHaDmMv7hZKDm/Z/Anz5Y/KQt33Y5rk2GYKj5I0lquRh9+BcUZEGGVZi
/z78mygP2kdkXPN2k0Hj9d4jLLry4Hz0Rs09ITK4NI2zfc2Wg3SPwxdjaCTA
PyO6VofKgpikX280iQTetGJPRztZyJu4svvyNAm+DXtbH1aRhYoT5UPhQyTg
K/dXMCfLQI+3gO7ZZhLIDg6F23jLwFb/od8uj0gQ0mCfkdcuDfHBvlHKh0nw
/pvEp11mu2AqzSu3wZQEf4w7Rox5d4F+tccHG4wEcvHhsX8Hd8KvpSNbQ/aT
wHWn0IjumZ3gG2ud/VqKBMpcf7yiH0iAceb+OoNfRPCIkMyjcu+A3Jp9Ez1M
Inws28L28Zs4rAyrsXhRiPCa8YNDrlwcqnbtsYqbIEL9hidydBSH/55JjrZ9
JAJPme8nrzwx+Fe7ZcXuMRH6C7O+7nQUhePf2CSnHxCBP9zQz3iPKLz7s4FC
M4gQF2ZT+oVFFEIOrd3KvEmEtFT9HMU3IjDZNSc+cp4IHDx2mQ8kRaBpckTP
x4wIU5djn8ewbodo9peXwr4TwNb65bADrxCEPPLi9KESQOWDXULcvCD4aWx/
YEckQMalrsPzw4Jg7XH19Z4xAsixy53KKBSEHW/sv0+1EWDaMtjotaEg1Pgt
+NnkEuCWIq8ofZkfSlZezB94SAAuS6us15/44XGaZ5xiJgGI/bxilMf8EN/Q
/oQ1iQDh5fMR6Yf4wUk4e7Q2nACeETlCuLt8MNdsaK9gQ4AbEU02+Wa8QDg6
PyFkQQCFVs9zRZK8MPT9WdCGMQF2fss+y7bEA00SAsnfdAnwl417a+9zHki5
MNOaIUeAkho2ziv8PLBHNvHg39UZ4LJIPOH/nRt8474oDJfMAC7VxymGyAVu
Y/nYZNEMVCuTyt63c4G1Vqg7KW8GPsdcjtcv4QJtkuCdX/dngLrD9g/tHBds
tXJe4L8+A7tS0ph8fzihQmCo2fLYDLD4n7g4KccJ63nfvOq5Z0AOV61+O4sD
fi6/jPrAMQPi9ZJc9rEcQHKMzuzYwIOXsaSY0RkO+Mwm+XFoCQ+PYMf3HH0O
KAw4ofZrBg9g5nvMaoYdrNTx6yoNeLhw+dU8hy47PHhPzs4NxMMVURaa2Bor
eEXlxOidwkPi+K0fg2RW2LPfwb/fGw+Lzbp27/pYoaGkTmPrETx4ehXbzpSy
wtS9lI/hCA/h6oHuPR6soBSouWgtgoeeifyknHYWCFNby/sVPQ1xOCaJ5LmB
4yg6GbjnwjRwkT7OVxps4LJ29Op4BUxDzPDT36U7N3CN7E97PjlOg7yRXPSe
sX84jm/ma093T4MZ3/oI5v4Pl5V494jDlyko/ZI55eT1F9cwvYe3XG4KiM1l
pJDEddxVQ9ZXOTum4P3YF+P5oHWc0aMxu2T+KajlZRxPc1rHfXC+nR6wNgla
gdoXxKXWcR3tDGHZ/kno0Q/77fF2DTdYViGRdX0SyLHO7Gfoq7i5S9pKcfgJ
yBAc50/yX8HJCxqbuOaNQ5HM2UDflCXca5WkQAJxFIoepts2f/uBm26vltHV
HYanx4UVUA4ZR1Z9oAXvBmAm2T+5+M8oTiimVFedtQ/sxk6PiPjX41R1f6g+
W+gBkoNfU+KhVixAPTa2frIHJsWEX7xua8XyFQX6ezt64Nk0T0eOZRsmLK5x
6ffjHhB8xPsoz7YdW14OabY064HHi9m7z7l0YC31c0fo97uhbZSuzXDpxtyN
5mI0dLvgrJDfE7v0PuyG2fev9VEdkD+6lHN8dhRrsWI6aJ/sgLpDfvwXpMYw
FjvG5wq7DvD8dU/R23UMu3qE1lMk1wGH004MNzePYZEB5M7Uno8gfdlNLS/n
G3YmafKDr8xH+Hxp9WuO2QRm29Nbxd3ZBsmaopa0qGns9tcejYTXbZCdHyX2
4eU01jnYXfEvtw0MihwMgiamMfPJT+ULF9qAqrshmP8fHsPm2ksmd7UB147W
4bPX8dg+QdzT6vOtkGmkvW/QeAYTda3IOCbeAimurzRKKwjYa8WUBnP2FujO
ce2xbCVgjqunSZo/muHUXmm5/hECdjtP9sC2jma4I9s5VMpCxP5R7083RDaD
MTczwN+JiM1ei1aXHP4AN05GP/k3R8RCHO5mv1cGYE8Qab+zk4yVLFozH7AC
VJZv5c9UJWOERxzGIWM46K/r5ozHyJgb6RJFOhkHL+X1abJ+ZAxd9tKNo76H
h987n/iUkDHBor2DJi+aYK180mJg3yz2+ne7QKdCA7yornvloUnB0l4WtmCr
9SAt/blm/hAFC/KKvfi2tx6+9RwsPudMwRQ+HhgvjKyHyYaAXeLhFCzrQdnz
a5114HpxMlnjDQW7on3XaH9wLSyHOt45r07F3KjnfpYa18KwoMNJHyMqtj/X
ukhGtBby3yQ/17WlYkx2Dm5+3DvYGxnheu8sFfMaiBykCryDXQ59N3mLqJhJ
mGdQ3psamGEfUFgRpGHSigelRZNqwM3FL8xQmoatj4n2pXjWgAdu8f2pvTSs
5tAX3ctbauDhr5s6p81pmKKQCZvr0TfQbhi2pBBFw7ZVKT3iXq8GYScz38RR
GvZsnJxKS6iAn2Fb2esT6Ni3q2L5T/ZXgPXvVTtGKh3jl7asciK8gjpfqbAt
D+lYpE9Jfz16BYPGt3TnS+iYBTlQ/PZaGThlOlk+76Zj1LkfT1VCSwFHZjt1
g5eBSWbIvJ6SLgXxu8dSNUUYmKOmU2tmbwlwTiW6dexiYHXhr8lrKiVgfVMG
V6rCwJJXIlS6yc8h/pd06mFLBqbCtvYmyKMYHFTCHv6KZmBeRSrt/20rhoWb
L/wl4hlYppnH8EBdEcydSS5WSmJga4lNKwZiRcB3IjBs7R4D6+aJNeLtK4CK
/efYLr9kYCyvKu0/xBYAvemLzHglA9O2x3tHqBeAIf9wnsJbBpabcSh+IuUp
aIrxVZ8DBjaqsjXtWGoeBL7L+TXSz8CMz52taqY/gTu2Pv0RIwyspLKrX9nq
CfRn+bGujjOwy9qp4mtsuXDz6mHzWhID24kJF+REPYIxpfNaPEsMLD4uvJVt
OBvazr11J6wwMEbLIDlwfzZcXDT/8PQPA2uyfKhiMJcFvaQe2wF2JnbCSbJm
/OR9aM69rSUgxMSYC0sHL7bdg3M2STxCIkzsatYX4N99DxJOnRJaF2NiuePx
3Ydm70LejoS8W5JMTDXG02nc4i5kCifKq/zHxBpldEciXmTA2mT91xpZJlbT
3d/u0JcGYk26T+MVmdigYGJffGYqeC/wfGjfw8QWjhycfOtyBxJpSRzzKkxM
C5+/uGs4GSwjHi1vqDMxp90uLA4PkwCuKhYT9zGx0EBO3nj3W3C/hiWsUouJ
VS4Gy1O/JcDxGzEhGzpM7PNBGY1duTcg9UDy4xt6TGwuZkDf/kQ8cJVglB8H
mBhfW6LFdenrMMql4GSmz8TchSOKz0AsuK8vjsQZMLGHud8aPx+6BplVw9HP
DJnYsOKhAe22K9DxQ9vwtRETE6l+Qc+xiILtK74SLzAm5mLAz8b66SJIfbUT
SkBMLLM9QuK0TTiYHetSOGzMxL46jO/r7Q2FLevWLr83WbrmRkbA02C4lVCV
m3KIiT3udAStZ6fhKHELK7cJE9sxKTX3r9QPDO8/uRayyXuJQwezTniAge0V
0aZNVuQNfah+2gnK+iS65jc5bnDP4K5WIyg3JWYKmG7GQ2AycIuaAhrWu5so
usnD8/H5gitWaKJU5zr7Jv90UPp1PswNsRiQHo5tzo++Z9EVpO2DqoQ5uh5u
8r+Yy4/zNU6hyS59Cex/6weWBw+oBKIqvHF8z+Z+2d2mjbgUz6OJaTYO001u
lUm+9UQwDFG3shcUbJ4vIUsuVC8tAvH+5jpO3dTDgrfJvY/nEgpR71AT32Su
+COHgpIvI37NbEn1Tf06l+eUt3BdRe1qkkpqm/rePpcknJ8Qgyz5quxFNvV/
Pp9xTfJ6HLI6dzOTuBmv06dVAt79i0esDZlh+pvxtJK7dPyGUQJ6kYYEWnSZ
2J7JVnvHqzfR2mHLbs3NfKA7n9Cjr95CVyTLCj5pMrEuvpd7aw8kIz+Qwc1r
MLGyzt//JVy6jQqtptdZN/MtGMvYKr10BwkEK01/U2ZidqsTf+j709DaFYPE
IiUmpl6jPF8blo4Y+wycXXczsZX7M8w9KxmIoX7dM0SGidVvix5quXgPecu8
dUsQZWJP1UQHKuXuI3mWyUFbYSaW6Fj5NffLfZSdHHh4lZ+JuWYRuyOVs1DK
sJrkP67N+MjatqhMZiOynkt27Wb9jpjNgvjtR6ggxX81f5GB4U7HvefQy0Gt
Hfe8gn8ysJRXNXVTGY9Rc9QwVk1hYIoHpSozzfIQ+bp+OmOQgfF61pbHzueh
2SwH+8UvDGwhxullcF4+EvBhlZ/pYmA+hBZn+atPUcJEpvjpDwxMfc+y3d+h
AvSZb1+YwuZ99umNt1l1cjH6+f6B7ekoBmbYrtqqhC9GM/vHil5fYGBVw6uH
8nSfoSErDyNCIAPLWr2HUojPkFORqtmcJwPzR536p4xeoEVzsX/1iIFtdO3T
lJgvRVoDZw3kWRhY2MTfynTLl8jw+H23mmU6Nvu9S50z7yV6eGruu/IPOtYj
eEp1wboMfdffVtAyScdy3B4p9RaXI9XDU6kv6+mYDoFV+rp7JQrUSnV1D6Zj
6g1H5/eVViLcp5TUGT86ppj5qg2/Wol6qD/4XI7RMZ6Ccp2ndlVI5PHA4pw5
Hfvj6D6xMVeFXqhI926TpmOTVZXKoPkapZwwcBv+RMPyQ73ajGprUOCGh9uE
AA3L9eSueDBdg07/0lqIZKdh2VY1D79zvUWfZ7UD135TsQyZbUFP3N+iu4y5
9cZJKhb39a3Q39W36JD2XxOVl1TMdx+fd5NhLbr97OfeOoyKyf9sXNVvqUf+
sjRCsxsFu9prmrD4vR4pZu9J0begYMMvu/krJBrQPKVlOluHgt0+NS4ve6EB
eU82V3CKULCf39bsuGQaER9vwdcXX2YxXPvBwoFrTUiIJf41l8ksdvxxrXXw
QUANc21W17aTsZooNLT7FKA9948WNG2QMH63Du/pDEB7lTW6CQwS1iw4EuFM
BbTQqtZIbCVhIqbRDrk2H9BE3AHl+jASFl2Xczl+7QNqTPF0bewmYoeLxnrt
3VtQWXVm+JkgAvbzZkVA+7kWdOUYnxfrEQKWfebGhsGNFiS+weFyAyNgVDU1
TeWKFnSnfi7JRIiAJdXF3WfnaEXkV2w+lW9nsM5eJY+6ylb01meiyXYNj1mu
XKTKcrWjg0HiyX3kKczcTph96W0Ham0fLmu1GsXSvUfi9tX2oD6BqmfPXrZh
HfZSfI7CfYg6I6UlrNKI+y4rGtOfM4C+Lm3R09UdxV2M2OubLjaMloP7y8wV
yLiRCUHngM5R5JoUb/wy5AfO57Ihhct2HHmYvLRMH1vEqfh3Ds25jaOphZFj
Cz8XcQv2rm1DvuPoDInl78mtS7hEheCCokvj6EgfR1WQ3hKu/MtjD1Q0jn47
+3PszFrCre5e/xK5No7E4jSLpd1+4zL76+vIJRNI02b4gjNhGef53vxFz5sJ
ZF4eNlS1vozbXdL34A1uAtkuDgrLi67g6q7Rwq4PTqCikrOYmdUKbmqPhJoU
yyRqORuRdL1yBacSG1XgenQSfYh+1awav4pr3at3u3XLFHqFnxB7rr+O89Jw
LZoXmELczn3yRkfWcStaF5r+2zmFTC86G/44v45T1S+bi1afQpVWfL+fPVvH
3bf6z0X76BQ6fFEw87TwH1zAKS7JZyVTaBuXtFr6/B/c1vyRV4k206jFes+o
9ad/uMLCxY81R6bRTHOnMCf1H87wuRCe4D2NUn/tBhrnBi70lY0wiphGjZ/2
haqab+DGGiFyOXcaiXyWyXnVuoF7OfoCnZmbRqydRx+k+LOAIncTtdgKjwaS
B4d6r7LCrw71wEI7PDr5PnrHTBor4BILGPnOeKRhenVNsIAV3DhuzeV44tE1
yYeLHe2scHPDaTEjFI+Sfco9cwXZgLRE2biajUdVnYEL6uVsUFVz/PqVJ3h0
DDsSovuBDa6G97JFFeKRWPLeoz6DbCAy/3pLeDkeKXL7cEv9ZQNT5jWesx/w
KOKAgo25IzsUEraLH6HiEWnwEq7yLzuEFCRmO3/f9K+AtgqKcIC+z6qE4y88
cj/57/EjFQ7on5yStPmDRwr+56+ruHMA61ip3CHBGcRUP/rS8S0H+HxB6moH
ZlB08CGiVNQWkGoKMt+SNIMu4mxjY+W5QERibS0kdQYFU+p9oky4gDcyqWo0
cwb5BKkWvPPlgj8az3aVP5lB6aOKmZwFXPCtaGre+c0MsplK/8cjvxWyUpzy
nk7NII0iGf9wHW5Io067bCPNoORlq78qx7jhpnkIdwRtBjmKDPvoXuOGiI3b
EZaLMyjzS8c124/c4BzeZj3HTUD3yi4FZXpuA34PvWUDHQJKCdyWdiGHBzjr
2suf6RNQzjnKG0IrD/wVcfUTMCagAXb8QN13HmB+Du0lWBMQWeK/xmwTXugy
eVmU7ENAP3c5zVvN88ItFSnHkRQCOlh4403CSX5gWWMrDSMQkKEkUe1avyD4
EMcWYikERLs99GSWKQgfeqqwVCYB0aHtZjqXEMTlew2++E1AV5R/Xiw0EoIN
s4aNiW1EVFzzwAJfLgT/0i+4We4nom8EuuGJbGHwumxV4HqAiBaL1R9trxUG
nN9/TF8jIvK5IL5HdFgYYnR6r1+1JKL4wSGhvyLb4e+3Pa+qPYgo7l3jcmTW
dvizG88umUBEjjam7n0lIuApUGuvnExEHs/3Xs7vEYGmldRHumlEpNet/eTj
TxG42m2g4ZRNRCkChTXy+qKwHvrweGI5EX1MTxDX7hOFtUb76p+DRMR5f4GS
KiQOy07vvdp3k1CclIV5PUEC4scqJ7G9JJQcJdvVI74T+H0LPev2kZBC1PDT
MLudoBh663iZAQmRKgwWoxt2gmuak9tdJxKiyB4Wf/t4F1R1ke1OXCOh5brb
252uSoGh82jPcDwJmbvpd3k2SkHHWJeNYxIJRSXokcXXpWCKWnnY9B4J2Xbq
2BRflQZerivmyqUkVPhrTtch6T84a8pvtDRIQixtjk6zMzKw2MXSFPKNhOrU
V9pPcclCnPOCPnWahCq4OI/Zq8lCtu/ogXE6CeXkpJd4X5GFj7GF2s0sZMSZ
9tX9mYQcyDXpqqaqkpHY7IubE+fkocJUuYxTi4x8/AxKbubIw8HuXSpxemT0
Q4pzsLxDHhy/sewJNyEjWXwJX7S8AsSsdMkfcyejSbHGM8YzCjCu7b1rdwIZ
re/USOyMVISAVR2Bm8lk5DDqOsdfpgg/3/Oyk9PICM+9vo0yrQgclg304kdk
JBeLX3K2UQL1Y6INCpVkZHMyuNpKeQ/EXet2V/hGRmmfTKJ02FVgm0mhbcI0
GRmJSq0HHFKBB5yXjUkkMhIoej9iEacCL9MV9xT/ICPxDP4kCZa9MFBwfVl+
yyyqYeu7ZLpVFRQ/6mXJ75tFziy0rBuG6lB1m//2DZ1ZdMneeup+ojroO5Cv
EfVn0QmZ+/8i+9TBYTTzVJH5LOomvHWtPasBUfTv2vIes8gu4qiXrvM+6OYv
HpBLnEUUHrJreKEmuA1c6YhPmUVCIVpvHn3WBPxDp0ZCxixyG37sZLSuCYsy
G4WFj2dRLgxvZ3PTAun9x8PkqmfRFiNpvjKh/RB6VFBIbmIWhSU0qg0VaoNf
iUbO7plNf+9upC8PaMORVXt55dlZFHoypSN3iw7oP07V2fdzFqEjrQEXA3Vg
y/S24xgHBfHEuLEn6etCTsCWouOqFGRaoyCYuKQHd2oVVL00KYjQaP8nSeMA
xG41e+urS0H/HbkfohR4APxfxnecMaag5QPb3hnNHACNuQ1GpCsFVfrmFLGM
HIS2i2va965SEJ832/YoggG8+yiBy7pOQQGlSm3blAyhVPygZU4iBTFZ91W4
BRtCWv2lYwUZFJTqFnBSbtUQjv1dvFZZvGl/v2Vf2y4M5hJ+fOzuoaCNXDdC
mqkxzAzxO37po6Dezz1M+WBjGFRUH+sfpqArz1LjlB4YQ31nMGMMT0GNCYEG
sVRjSOClC1AXKYhx/XDu/fuHQOI+yZ1DiooaSjCzzQcXHLjxn1iEHBX9ktjt
V6VnCm5hxweISlTkc/CTQnSwKWQ6frVr1aIiwd8ytowRU+DlazKJt6IiQh1/
wrl3ZvDv5j1Vlggq4jI5UNB9zwIkL36mnb9MRZMve6Ne9luAgT/3i+kYKupu
VVizELaEKJNYWUjeXH8HX1LLPUuY/xcoFpNPRV7usWlbn1oB6ZIJy58uKppi
hMdvx1sD2+lr74O+UpH4cO7M3702IONWd2V8iIpeZVUe/BplAye01Zca8FQU
eKIeDojawvBPCfrl31Tk4vJ8IeSYHXw6Oz+wLEtDOaonBOS4HYHqrnr3tBIN
JfclJovqOQKn1Wn7EVUaapDdeenhKUcwUZzsfKdHQ5P6Xkr2bY7QROh8f9GO
hq56TbY0JTlBhcfTFwtRNCRb8CMyQMMFtEfk1zhjaCjtnAAz8qQLNDq/sN15
g4YU9MXDZbJdoPNwxbxxKg05ldb7W7C7AlGvySCtgIaqLuAkRWdcYYfI6Jc9
XTTkme+yI6PJDfLSPeQMv9DQj6tHOZXW3WA3z3SEwyAN1Sv67risfxS02GYl
IqdoSGb7SUv3xqNg93PhZOsvGjIv6JGx+ugO8T0CKyd20ZHvIHjqsXvAVqt7
1hdk6EjxrGR6jb0HpLeKPUnYTUdmQgv14o89ILdByqRMg46Mt9pJ5ep6Qm3J
3jsrpnTUDkuli1EngJlgKXMvmI5mJ7ZxksV8IJylO+z5BTo6qsSplWXmA2vR
9u31kXR0l6IfPRTmA1zhRwLxcXT0KqJemrPPB+R8T9aoPaCj7PBP507f94Wj
RrFWne/p6NE8VY/94EmYWJoVaGmho8/UzCsXz58Evwr7kcYOOhItz8q6+/wk
BP8nHVDZR0fPL12u/irmD/Gs729kkelI4d8i9dWGP1S0r+H8+Rjos9ZnG9ml
ANCO8Uv0Emag7oZSFi+901Cv22XnLs5AfKPuGSFXTkPbi0cTNrIMpHdL2k6c
/QyMJR9Y09JhoJHsLQFT0meBwz5Sh/UEAzFvfdNTvhEEtzmn/qz5MlBO8W82
5cEgEADztsUABlKXTZPfrxgMO/eJulBDGajp1ZBUZG8waAjXhH5JYKAiVsmx
PcohcHx4vuxJOQPZjV3/mXgnFPBpx8IfVjPQoX/Ms+64UDhl2ax/9x0DsRxP
6+n/GQqhdRmfEj4wEHGhpbLn6AVIzNGgBA0ykGaai6WMehhUe52T0//DQFMz
jRY9/8Kh7d3GLSoLE/3//5X/A1zhH54=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 1}, {-0.004937053928676087, 0.000013476394274427384`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5189821552334948`*^9, 3.5189823210673037`*^9}, {
  3.5189823696555967`*^9, 3.518982482771586*^9}, {3.518982527621745*^9, 
  3.518982533505301*^9}, {3.5189830741851807`*^9, 3.518983121972725*^9}, {
  3.5189840440902033`*^9, 3.518984087209772*^9}}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lambert W", "Section",
 CellChangeTimes->{{3.5197793932517767`*^9, 3.519779394160562*^9}}],

Cell[CellGroupData[{

Cell["Original Recipe", "Subsection",
 CellChangeTimes->{{3.519940656259976*^9, 3.5199406578423653`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ProductLog", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "E"}], ",", " ", "10"}], " ", "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5197778952750177`*^9, 3.519777901729693*^9}, {
  3.519777986550323*^9, 3.519777986762527*^9}, {3.519778635510005*^9, 
  3.519778680717616*^9}, {3.519779425549452*^9, 3.519779431522346*^9}, {
  3.519856581768487*^9, 3.519856587824589*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVjns01Hkfx9ko1EZuSXLplydabYWiUp9vFolWkVtIUqOiO6k2SZKHZbIJ
JW0p6eFxLde09XUZMsZlRjODapgGgxlW4zozP8vT88f7vM/rvM77nLdJ8HkP
yg8KCgrJ3/P/ji8lPbySunDTRmmSzew4dvEp/cXOpwurRLnuCJsV4+XzJ6wJ
4ju/zVvDPC7CnS9WmaqNczHteO/11m0jOMO1XUdSw8UVOG0sY/cw9puIXdwd
z8VB9w/fmzw5hA0zbWbfe3Cx5r3Qw0vzhVgAo0O5hlw8ZXYpWHVuEP9HmN2d
LOLgXHtFG+LIID5D9aKHV3KwU6iaUzV9AG+2Vqvxi+XgvsTciT4YwNW3wrPM
9Dm4Nbov89ov/TjKzCxZXcjG18+8aBG3CzDq+BI184qNL9f8eId+VICbDZwC
afvYuISKOu6kfMXJDXK3Ah023taXlhq18Ss+GFoCqV8/4pdx2j3KHXzcXaVn
EnTtI64ysvZ/vpqPRzzE/WReJz5OPVfkns/DxbKnbEFEJ647aNP0wwoevpTt
2UhHnZiSG7HtcdQXLB979/JBNwufLZjwfBL4Gasl/nHaSoWFy6e55SnOPbh9
k6OfPpuJFdWXXlVu6capXJmLYjYT8zbnvlFw68b6645bdNgw8XzzznuaR7qw
d3RYL6e9HV+533GMl8bBD0QVIw5UBg6ozLErPNyJjW2NGJqm33ldcp2GjIXz
7iQU8v9qwVXGfWptmSxcbex/PmqUjl0O5GeZ9DFxt7fCdJlrM25pdnx58Fs7
1m9wUSDUGrHFBlU8Xk3HvgoTlhszadhx38pHhj/ScfquTIqNGQ3fa1Xu3n+8
GWtUD7W4OjXgG24uSpd0PuAlRXHpEbF12JdeEh2fQsPDG294JU+/xXR2U6xm
DsbH8xg12VpvsaOC7lZazHvcu1bfuGJLDQ6k2e39+dg7zFlZJeKdrca5nA4L
iflbXK8oublJWI4v6/gnlPVU4h0FdM/cogJcJD+0b+WBIrw5O8SofSQfG7iq
HHjgVYDXpy8SzZjm4RxHvbQVQflY++aum85PXuChcueEophczMsNPtS1JgsH
yBev9+Jl4ewCvkWtzB32W+V0VEy5w1TFA589bYVg5RJZccitAN5rb7VZH14M
bb5aEfPNhUDbfjopflkphOXqqCXtKQbqw8VhZ16/ArNOS0fLjFIw9t6zwXa+
HOY+UYuEEWWwl1WZ15H+FkLUY1j+Sm+gpZ/pcTOYBgNSIEbf10HUzuoWKYMG
rGs3IoPU62HT/af2l7Y2gtmRtd6RR+shzf6cJUWlCXCmcuLv8/UQ+Gyppmvx
B/jT0fDuOVsaSAKdWLryFlgeraM0nNUEy8Z467uamfBFXfWy9noGjF4xUU+a
Y4KK0rjfZBgDWn+gzOzezAL7Kd743VIGUPVGaS8fsCAn3S1k3rYVljvIj0WG
dILNxSWf2pzaYEWW7mMdJTYkLtpdn+PdAbr7Dmh4QheUXEn7B3JZYJJbK2VW
8IARd0RavJ8D/7KlVAnHePDZPTSuLZQDFgzVyDnTXkgB+8MfEzhgK/GYXJ/R
C+Exv1LTaRxw2zU4Fh3ZB0N/ObClO7jwXhR3MSOLD7dYiepHiS4Qx+aHOAQI
IKfzlHllfzc4lk0czOYNgikqPEI3/wLy4HPtqadGgcHQUC5s40NRkrIBH0ug
btJQYB7UD25c1p2RHdOwXPYbuvF4EM43azpo/CaFf//X29o+egiEdieuei6Q
sO+Rk1Oe3wh88d2gWOm8ANLPhxpvT4rgueUVo0akiAyO7iwePjkKCr8dk+1S
WIS06jsi8vljYKQTf6PxmRJS9XUdmDEfh1OS13/5hyxGX623Pe21+waixkDv
grUq6NHsfdjV/Q0s/nZ4pFqnihpOE3M5xyTw0McqMzJ2KQqg/BriMy6BRu0A
+wnTH1FBrVLiibMTYKBFfRk1uhwVuB0d/DQ+Ady4J5ZBXhooQ1S0zi10Ehby
tU4mmq5Am66Oz413TcK78WWy7Us0UbhnadkWlynwP0rwJT2ayKn6k4BfOgU6
rtci4vO0UJPrzF1tzWmg+BwKeZ6gjZZSuJWjV6YhnepS1HhYB4G7eKjj4zT4
DTS6X7DTRZYLpt6W1jOwsyomZ1Z/JSrJTj7XkjIDc2W+LvGilWi3lg+9RDAD
h1jlbo8Zeij17mK7ue2z8Lvez3lv/lyF9Bh+zI2Js8D7LCwuC9NHGt/ItA/s
WWjEhNZW19XoTWnDfN46KVDbbrS+W22AxHofjjidlYKY9O9v+8cAqaScFi+q
kYK5p8+BQeYaNBX/nDa8IIXbZqmnep4aospngVu+2Mvg0hr3Ps8YI2QwfUup
PVEGxk8yOGIzY7QlNsourkUGne+cRBceGaO9gnfqOupySM3K8BpQNUEXsNtP
AwflYL/8ctjniyZIqFsTPJ8sh133dDZnCEyQlXv2FKtVDmb5Dk/ZrmsR76e3
elZLSDC5qUVRLFuLsl2vmfgCCRTKix7JWgKtec/9oHudhEx+g5SSRKADPavi
ml+R8HcoLciWSiAHcef1mtckOEzTmtVSCDQdsTiosIyEb6pND0tSCSSTj4yl
VJDgbNVsK8skkMnkP0beb0iYudN6NTmPQNbiTfzeWhI8fuJIXzcSKKjyl6Gv
HSTkVXCC7nwgUFEdNYLFJGEeuM0+dAKFarz5u5ZFQr5n18O5VgJlrK7Nf/qR
BIXoHlsnNoFeWA3vCOgioZjJu9ojIFC5eVArq5cEJf9efsEAgQZGbcxr+0jw
G+x1jhYSyNaUCC/mk6As79MjRASCENT+u4CEAEJQfUZCoE/aY8/shSS8LhIY
wySBXl+sOrl5iAQV2/6EFdPf/64o1jccJqFs/4BvpZRAwRctnGUj333XQG2C
/Pvev6ZeKCIh8Nigmf8cgcJ5MRvYYhLKxYN/bJwnkLvq7Zt1oySoRQqlCwsE
6pE01BWPkfA/n3CaFw==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{(-1)/E, 10}, {-0.9989278539446154, 
     1.7455279892884532`}}, {{-0.36787944117144233`, 
      10}, {-0.9989278539446154, 1.7455279892884532`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.519779432003724*^9, {3.519856583681941*^9, 3.519856588327355*^9}}]
}, Open  ]],

Cell["\<\
General strategy ... approximation followed by Halley' s method cleanup (or \
Newton if feeling miserly)\
\>", "Text",
 CellChangeTimes->{{3.519856808884137*^9, 3.519856822027182*^9}, {
  3.519863775720777*^9, 3.519863782813797*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "householder", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"householder", "[", 
    RowBox[{"d_", ",", " ", "f_"}], "]"}], " ", ":=", " ", 
   RowBox[{"x", " ", "+", " ", 
    RowBox[{"d", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"f", "[", "x", "]"}]}], ")"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"x", ",", " ", 
          RowBox[{"d", " ", "-", " ", "1"}]}], " ", "}"}]}], "]"}], " ", "/", 
      " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"f", "[", "x", "]"}]}], ")"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"x", ",", " ", "d"}], " ", "}"}]}], "]"}]}]}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "lambnewt", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lambnewt", "[", 
    RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"householder", "[", 
      RowBox[{"1", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#1", " ", 
           RowBox[{"Exp", "[", "#1", "]"}]}], " ", "-", " ", "z"}], ")"}], 
        "&"}]}], "]"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ", 
    "Evaluate"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "lambhal", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lambhal", "[", 
    RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"householder", "[", 
      RowBox[{"2", ",", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#1", " ", 
           RowBox[{"Exp", "[", "#1", "]"}]}], " ", "-", " ", "z"}], ")"}], 
        "&"}]}], "]"}], " ", "//", " ", "FullSimplify"}], " ", "//", " ", 
    "Evaluate"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5199410333310537`*^9, 3.519941076658045*^9}, {
   3.519941121744061*^9, 3.519941129672967*^9}, {3.519941178431325*^9, 
   3.519941186204734*^9}, 3.520078533982285*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"lambnewt", "[", 
  RowBox[{"w", ",", " ", "z"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"lambhal", "[", 
  RowBox[{"w", ",", " ", "z"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Expand", "/@", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{
       RowBox[{"Numerator", "[", "#", "]"}], ",", " ", 
       RowBox[{"Denominator", "[", "#", "]"}]}], "}"}], "&"}], " ", "[", 
    RowBox[{"lambhal", "[", 
     RowBox[{"w", ",", " ", "x"}], "]"}], "]"}], 
   ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"%", " ", "/.", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "w"], " ", "w"}], " ", "\[Rule]", 
      " ", "z"}]}], " ", "/.", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "w"], " ", 
      SuperscriptBox["w", "2"]}], " ", "\[Rule]", " ", 
     RowBox[{"w", " ", "z"}]}]}], " ", "/.", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "w"], " ", 
     SuperscriptBox["w", "3"]}], " ", "\[Rule]", " ", 
    RowBox[{
     RowBox[{"w", "^", "2"}], " ", "z"}]}]}], " ", "//", " ", 
  RowBox[{
   RowBox[{"Collect", "[", 
    RowBox[{"#", ",", " ", "w"}], "]"}], "&"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", " ", 
   RowBox[{
    RowBox[{"x", " ", "+", " ", "z"}], " ", "\[Rule]", " ", "p"}]}], " ", "/.",
   " ", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], " ", "+", " ", 
    RowBox[{"2", " ", "z"}]}], " ", "\[Rule]", " ", 
   RowBox[{"2", " ", "p"}]}]}]}], "Input",
 CellChangeTimes->{{3.519779917910698*^9, 3.519779938081882*^9}, {
   3.519780150254118*^9, 3.519780153036319*^9}, {3.519829394921775*^9, 
   3.519829414681857*^9}, {3.519829576658743*^9, 3.5198296056489983`*^9}, {
   3.519829646399414*^9, 3.519829713112041*^9}, 3.519856645972275*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["w", "2"], "+", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "w"}]], " ", "z"}]}], 
  RowBox[{"1", "+", "w"}]]], "Output",
 CellChangeTimes->{3.519856612187532*^9, 3.5198567337765913`*^9, 
  3.519941228730603*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "w"], " ", 
    SuperscriptBox["w", "3"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"w", " ", 
       RowBox[{"(", 
        RowBox[{"4", "+", "w"}], ")"}]}]}], ")"}], " ", "z"}]}], 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "w"], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"w", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", "w"}], ")"}]}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", "+", "w"}], ")"}], " ", "z"}]}]]], "Output",
 CellChangeTimes->{3.519856612187532*^9, 3.5198567337765913`*^9, 
  3.519941228761944*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "w"], " ", 
     SuperscriptBox["w", "3"]}], "+", 
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"4", " ", "w", " ", "x"}], "+", 
    RowBox[{
     SuperscriptBox["w", "2"], " ", "x"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", "w"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", "w"], " ", "w"}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "w"], " ", 
     SuperscriptBox["w", "2"]}], "+", 
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"w", " ", "x"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.519856612187532*^9, 3.5198567337765913`*^9, 
  3.5199412287962093`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"4", " ", "w", " ", "x"}], "+", 
    RowBox[{
     SuperscriptBox["w", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"x", "+", "z"}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", "w"]}], "+", 
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"2", " ", "z"}], "+", 
    RowBox[{"w", " ", 
     RowBox[{"(", 
      RowBox[{"x", "+", "z"}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.519856612187532*^9, 3.5198567337765913`*^9, 
  3.51994122883125*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"p", " ", 
     SuperscriptBox["w", "2"]}], "+", 
    RowBox[{"2", " ", "x"}], "+", 
    RowBox[{"4", " ", "w", " ", "x"}]}], ",", 
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", "w"]}], "+", 
    RowBox[{"2", " ", "p"}], "+", 
    RowBox[{"p", " ", "w"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.519856612187532*^9, 3.5198567337765913`*^9, 
  3.519941228864121*^9}]
}, Open  ]],

Cell["\<\
Look for approximation with the same structure as the asymptotic \
approximation ...\
\>", "Text",
 CellChangeTimes->{{3.5198568320579767`*^9, 3.519856846279058*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "data", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"ProductLog", "[", "x", "]"}]}], " ", "}"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{
        RowBox[{"-", "1"}], "/", "E"}], ",", " ", "1", ",", " ", 
       RowBox[{"1", "/", "50"}]}], " ", "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "model", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", " ", "=", " ", 
   RowBox[{
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{
      RowBox[{"data", " ", "//", " ", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"a", " ", "+", " ", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"c", " ", 
            RowBox[{"(", 
             RowBox[{"x", " ", "+", " ", 
              RowBox[{"1", "/", "E"}]}], ")"}]}], " ", "+", " ", "d"}], "]"}],
          " ", "-", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"c", " ", 
             RowBox[{"(", 
              RowBox[{"x", " ", "+", " ", 
               RowBox[{"1", "/", "E"}]}], ")"}]}], " ", "+", " ", "d"}], 
           "]"}], "]"}], " ", "+", " ", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"Log", "[", 
            RowBox[{
             RowBox[{"c", " ", 
              RowBox[{"(", 
               RowBox[{"x", " ", "+", " ", 
                RowBox[{"1", "/", "E"}]}], ")"}]}], " ", "+", " ", "d"}], 
            "]"}], "]"}], " ", "/", " ", 
          RowBox[{"Log", "[", 
           RowBox[{
            RowBox[{"c", " ", 
             RowBox[{"(", 
              RowBox[{"x", " ", "+", " ", 
               RowBox[{"1", "/", "E"}]}], ")"}]}], " ", "+", " ", "d"}], 
           "]"}]}]}], ",", " ", 
        RowBox[{"c", " ", ">", " ", "0"}], ",", " ", 
        RowBox[{"d", " ", ">", " ", "1"}]}], "}"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{"a", ",", " ", 
          RowBox[{"-", "1"}]}], " ", "}"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"c", ",", " ", "1.5"}], " ", "}"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"d", ",", " ", "3"}], " ", "}"}]}], " ", "}"}], ",", " ", 
      "x", ",", " ", 
      RowBox[{"WorkingPrecision", " ", "\[Rule]", " ", "17"}]}], "]"}], " ", "//",
     " ", "Quiet"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", "[", "\"\<BestFitParameters\>\"", "]"}], " ", "//", 
  "Quiet"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"model", " ", "//", " ", 
     RowBox[{"Normal", " ", "/.", " ", 
      RowBox[{
       RowBox[{"Log", "[", "x_", "]"}], " ", "\[Rule]", " ", 
       RowBox[{
        RowBox[{"log2", "[", "x", "]"}], " ", "/", " ", 
        RowBox[{"Log", "[", "2", "]"}]}]}]}]}], " ", "//", " ", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], " ", "//", " ", 
   "Simplify"}], " ", "//", " ", "Quiet"}]}], "Input",
 CellChangeTimes->{{3.5197787893866177`*^9, 3.519778811957074*^9}, 
   3.519778885279708*^9, {3.519778954680908*^9, 3.519778958719673*^9}, {
   3.5197794471512413`*^9, 3.519779470931685*^9}, {3.519779722663903*^9, 
   3.519779787862896*^9}, {3.5197819417356977`*^9, 3.519781944619866*^9}, {
   3.519781988785515*^9, 3.519781990918586*^9}, {3.5197821583242817`*^9, 
   3.519782158556695*^9}, {3.5197822075779543`*^9, 3.5197822293430758`*^9}, {
   3.5197822782159557`*^9, 3.519782279054453*^9}, {3.519782342583887*^9, 
   3.5197823431785307`*^9}, 3.5197839248143473`*^9, {3.519784020976912*^9, 
   3.519784023146372*^9}, {3.519820310944602*^9, 3.519820361878256*^9}, {
   3.519820481622271*^9, 3.519820505597259*^9}, {3.519840807830551*^9, 
   3.519840839127327*^9}, {3.519841312317759*^9, 3.5198413616057987`*^9}, {
   3.519853680890893*^9, 3.5198536840146837`*^9}, {3.5198537283057756`*^9, 
   3.519853737710301*^9}, {3.519855782834777*^9, 3.519855789726836*^9}, {
   3.519856945862673*^9, 3.5198569487878447`*^9}, {3.520078542228731*^9, 
   3.520078564947443*^9}, {3.5200786301371202`*^9, 3.5200786500055447`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", 
    RowBox[{"-", "0.73776996948790007913032695796573534608`17."}]}], ",", 
   RowBox[{"c", "\[Rule]", "1.54686555719822416143927057419205084443`17."}], 
   ",", 
   RowBox[{"d", "\[Rule]", "1.68130680503622476074099267862038686872`17."}]}],
   "}"}]], "Output",
 CellChangeTimes->{
  3.519856966786442*^9, 3.52007857184925*^9, {3.5200786392467957`*^9, 
   3.5200786532316847`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.73776996948790007913032695796573534608`17."}], "+", 
  RowBox[{"Log", "[", 
   RowBox[{"2.25036684178565921376618230877293015241`16.902092484356498", "+", 
    RowBox[{"1.54686555719822416143927057419205084443`17.", " ", "x"}]}], 
   "]"}], "+", 
  FractionBox[
   RowBox[{"Log", "[", 
    RowBox[{"Log", "[", 
     RowBox[{
     "2.25036684178565921376618230877293015241`16.902092484356498", "+", 
      RowBox[{
      "1.54686555719822416143927057419205084443`16.902092484356498", " ", 
       "x"}]}], "]"}], "]"}], 
   RowBox[{"Log", "[", 
    RowBox[{
    "2.25036684178565921376618230877293015241`16.902092484356498", "+", 
     RowBox[{"1.54686555719822416143927057419205084443`17.", " ", "x"}]}], 
    "]"}]], "-", 
  RowBox[{"1.`17.", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"Log", "[", 
     RowBox[{
     "2.25036684178565921376618230877293015241`16.902092484356498", "+", 
      RowBox[{"1.54686555719822416143927057419205084443`17.", " ", "x"}]}], 
     "]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.519856966786442*^9, 3.52007857184925*^9, {3.5200786392467957`*^9, 
   3.5200786532671347`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"lambhal", "[", 
        RowBox[{
         RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
        "]"}]}], "]"}], "}"}], ",", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "E"}], ",", " ", "1"}], " ", "}"}]}], "]"}], 
  " ", "//", " ", "Quiet"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
        RowBox[{"lambhal", "[", 
         RowBox[{
          RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
         "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
        RowBox[{"lambhal", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Log", "[", "x", "]"}], " ", "-", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "/", " ", 
            RowBox[{"Log", "[", "x", "]"}]}]}], ",", " ", "x"}], "]"}]}], 
       "]"}]}], " ", "}"}], ",", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", "1.01", ",", " ", "10"}], " ", "}"}], ",", " ", 
    RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
     RowBox[{"{", " ", 
      RowBox[{"Red", ",", " ", "Blue"}], " ", "}"}]}]}], "]"}], " ", "//", 
  " ", "Quiet"}]}], "Input",
 CellChangeTimes->{{3.519844218369587*^9, 3.519844257776334*^9}, {
   3.519844552758594*^9, 3.519844564163529*^9}, 3.519844702125374*^9, {
   3.51984473246806*^9, 3.519844750354944*^9}, 3.519844803688114*^9, {
   3.519845133533556*^9, 3.5198451387381907`*^9}, {3.519845231413417*^9, 
   3.519845233874815*^9}, {3.519846584895502*^9, 3.519846604815877*^9}, {
   3.5198466403304567`*^9, 3.51984667871502*^9}, {3.5198467549410458`*^9, 
   3.519846805720916*^9}, {3.519846845294915*^9, 3.519846880467651*^9}, {
   3.519846914987132*^9, 3.519847024614786*^9}, {3.519853373039092*^9, 
   3.519853395336882*^9}, {3.519853464753058*^9, 3.519853485361961*^9}, {
   3.519853516195615*^9, 3.519853564738922*^9}, {3.51985392520618*^9, 
   3.519853925298788*^9}, {3.519854431856256*^9, 3.5198544769324636`*^9}, {
   3.5198545088763313`*^9, 3.519854509774551*^9}, {3.519854577708359*^9, 
   3.519854646500042*^9}, {3.5198558795504093`*^9, 3.519855880797325*^9}, {
   3.519857313925688*^9, 3.519857390313856*^9}, {3.520078584490748*^9, 
   3.520078592001586*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVVnk0lA/3F1Ep3rJF8syYMUz2vVQqoryiJG1CQlrRIhJRSrK0iCISUnZa
3hKJe2cYE1km88wzUgmlRZJQXyHf3/z+uOeezzl3v597ztX2C3HfKy0lJdUt
kf/Xn8Mt1LcliYGr6uoitU8Ofa8dPhV2XgyFC2dW9ycqYFfZvbc3TouhR2Wc
+evqfPTgd696GiYGu4tKex1UlbCtd2GeOEQMZTMTxoPDldFpyk1mfL8Ykv38
L6o3qiBHLXGvup8YliUVLleao4aPN0wt2ekhBmWTGc5B0epoHGiVHOEqhq5B
YaDNUw0sOhM8dHOdGB5uZhKmI4sw60nPo65lYmjZMv7zY7gWqgg0VCfNxHDn
ZnRREJ/AywPu4ZoGYtj0iFcQvYCOsTTeCi8tMcDh41lknDZO2UxnR6mJYasj
p6nWjYFhHkulsv8jhpWJncJ6fSYOBx/xq50thkfN5teY6jp4IKG44d0MSXy5
JQIhwcK+/D7d6QkKhocF6aXrddGrTjOBGKOA98c5qyRXD6lOj2+rvlNg+Kx/
Wsl+CbqNXnLd/YkCPTf2te+7DLBZgX8/5j0F3GKW4ua9xujAllLK7aSA4ic4
eTHNsc7eJhRfUXCle7l7Ps8Cl3ofo3qaJfaPrz3/0WOCD8JLl81ooKD1wpBK
XZ0h6l/7mKldS0HOqP+Qxgt9vFum9deukoL5icrdqj5LkOBv2+13nwJY8lz3
myMbM3qvcGKLKDCwV+E4+euh0tQLZn4eBaWO6/I8C3QxWU36Qn0mBSOc/Jt7
ZHVR1mzFlw+pFDDEok3DESyM3hDqPPMSBZ5ed/uu/quD43vLy3QuUGDjsY8r
n6qDx858UnSMoaBYLXPjP2Y6OJhJO7r3JAWh/3P0ONPFxMAnO4RxRylo9+2x
tU5iYk97ilXBQUn8hzreY/ZM9BxoTm/0l/TPsPjdKsVE4cyZE5+8KLBqbBqU
amCgC83Wa9Y2Cs7/dTIeTGJgo01Ynd4mCmRLCwpn72Dgs+AvsfvtKGD2Kucv
ntRGywTt/ovLKZBu/zfd55U2VuR7ri+2oOBRVY7RnhJtZNelFjcZUmC+bXhO
v4QfeZ0tcwdYFCT/4RU+8tfGRaOywfI0Cv40i7VurtXGNIXVAn11Cr43OtCD
WNp40f5h2iF5Crrddw+tH6KjtPfA7yQZCirGFl5WENExKpy5s2xKBD7RM3bZ
1tIxpOy61vchEVwaPf0mIoWOXxrbYhS+iECxPcZv12k6+vXO6jPqFQEZG2Lt
dpCO29ROFQQLJf4etT9N19PRsspZbvKlCOLtOnXLrOio5KkZGN8ggrHCpRMM
Fh1bs5+zcp+IYH7opwy+HB1LVl+KM6wQAY89MPX4Jw0v9nr3VxWIoF5ry/e9
Yho6sP69+ypdBEHiw37KhTRk8Ntn+lwVQcOWpl9frtJQ6kBuwMBFEdwLXRoz
GUnDmjI7HZlTIuj/tmV+xlYaZmxUOn/lmAi+L32lKetAw7Dhvg+ah0Swq3Hh
r1ALGppbns+39BLBUev9mkaqNJxPechwPETwj/Epj92zaDgUzvJ3dRWBidhO
Zf8EgS0av7mvHSX9v9cbsx0isLimkRG4SgTlR1yIzj4CL3inx45Yi2D15xR7
404CA/7d1xdtIoI3K4qSl7URSF875046XQS+NuFhLs8JnP74eoaOhgjyFv1I
dHpM4NsLJXseLBDB5EeH3HdlBD5jR3JWyotgt8ICUraAwPTmDdpN0iKY8OhM
rckhMPTw4rNbJ0lIqK5O/3OTQHfF7z29oyR4bk949yyNQNMHtWuCB0mIr954
d+IKgYrul3MnPpJQ7qy1/3ESgYOjPlLx70hI8V7V/SGewObrJr7KFAlJo/d+
nj9PYNFSKcxpI2GhUimkniUw7rWAZsgnIWL7dNq8GAL9IvNiqoAEpbrOgW9R
BK7ROvbeoYqEo8k+AcaRBBJgv/rVAxIMIs1aBBEETvkq53gXkzCyw1hJcJLA
LumP01/zSIhtdv/vEgmuuvvYJyyThKBw/r3X4QTeWBdXJ51KwvUt8yK7Jfj4
l63ElSQSEjlrl1tJ7N0SdaM1z5MAzzOPvJFgY8N/3hVGkZA/6yWvTZJvXhvf
1vIECb3+lRPzJPUMhGRkYxAJAl31L6mSel8sOPDXJZAE2ZsbTu+JJrDgfzbe
r31IsF2pC8fPEHh+q3zt3u0khBR/aHwRS+Cef7oWj2wiISeWwfGJI3DVzdKo
aCcSstOHBy0uErh4RdRbeTsS0l/0Z66TzLczWusW05wEv9CtSsQ1AivpQ5P3
9UmIGt/Z+v46gWncul0rmSSsiWINdkr2t0nOV3OrCgnrdiaQh+4QaFhkGtk7
jwTeLPa0dCGB8s4z3gTJknD55jHnllICGy/dybzwWwip1vKXhp8QSJFVASk/
hKBRlU/7/ozAz5rtxre+CCFmc+i5BUjg7JJJ7sMuIXQl7fRvaybQudHj29s6
IdgtPBcjLeGvp8KhJ5+fCqHHwM9P7wuBhzzOxow8EMKRiUWzgyV8T+4rV56d
L4SXOf0yPpMEtk7LrbSIFwKnUb/kqRoNux215FadEYJcdPrB11qS+0m2EDhF
CKH1drGNOouGipq+AT6HhPBrdN7UgOT+3JZWJydsEoJ+EbNc7E5DMuTQu/cL
heC5ZzQ76DoNP1aeLRyYLwTbhLJ4/ds0/PU3/eivOUJI64nt+VtAQ7XkBtm5
Ux1QsJif8amKhjuKtIytezog++SdB0/f0fBtT3t0clEHhO8iuJdU6fhhsyXd
xqYDlK9gXPkBOvZ1S70JNO+AwULXBI0QOvYcar2eZtABp/bFz7wUSse3cYFz
h7U6IFBvPjMxho5UdcbvAukOeL3R3PfNdTq+0P7botLyCh7+CTNsq6dj2U9e
xLDPK0iq1dtQoqONoSnbhYXnBVCz/eB90bg2UvdqkuxOC2DRrJzao1IMXPaM
5vDmhAB40sBTmc3Av32fHyvuE0CWu0lTyEIGXrA8eePEfwVw587n9ghrBmaI
M3auVRTAp7C11j0nGHhqxWOoNWkHeqeLnOoEA1cFRJn+pLdDdEuiXbo0E2Uu
OeTpKLXDyJOu+dpzmZjcTcYmjbXBMUe1yxsWM/H22V+OO6vbgM4VSf1dxUQu
37plzL4NVo7YRnfFMXGuR3WnwbZWmBO54WGHhg5a8ucRXk6t0BhNP1nN0EGf
5b7+yctbIezBcvMiAx18RJ81NEi0guly3tNsWx30/O4hU/G5Bfa/uJo5sEcH
Sy4MG5lGtEDAnCNsjTIddK7WO2d56yW4cnr9165nYahh5IuAyy/hdIn5JafN
LLyd06Zw/cxLaL1G/7F9FwtH4k5k/Ap4CTJvW2uuh7Aw072+vNLoJdwTabKv
ZrBw4JtP5zJohncHwCp9kIUJxA0j274muCJ93wKydTEyVz3YUdgEirHFN21K
dDGIkVXh2tAEbRZTWQ2VurhZN9fEp6AJUh/KOysIdFHDuMQs5mATuGft3hEi
o4fFtnVWnJEXoMRoTCsJ0sMmr0+2jjIvYHNR7o5vm9lY070/2nWMD0XNW5z/
+LKx3Pdb3dZ+PqSrutpqH2FjSsDw6kA+HxLGT4rxMht3Hp6wi0/ig3913IYN
rWz8Gqm4rkmZD6XmP7smNi3BOVnWG111GiF+RkjJdIg+UkWsI1mqjeASYJAq
d07yT1WqXPsq1wimMe29K27o45qOEVHcVx7IXrUtMa/Vx7A5973rKniwvA/z
gxUM8EO4XpCJDQ+qb9v6m1QZ4IM4tSun9Xlwyvjo+pttBhidKvvwpSYPeKMO
axz7DXDR/Q9j+6YbwOqzXcRBZUN0+5QTlVvfALzZRAjtuCHWeqgnL9jYAByX
IWKJvREm+s2q2L26AX7tYDQ/9jbCHUd+t5ebNkDp2/744ggjHEsilZ2VG0Bt
92jE20dGqF9/NSu2sx5e7857Tukb47ggplbQVA9N91uPqzsbI687+D1RUw9O
Ufam/QeM0XfChVmTXQ+y5NJEq1JjTDebUzrqVw/P3YzavK1MMGD1eIudRz3M
kHv1M2+nCZq7fh664lgPh5wUCwqiTbBtP8/ckF0Pywwqb6m+NMGZuWefBXzn
glriijNbl5piR/mRt4+6ucCOJgSzXU0xp2b3tJSAC7kVto7O/qa4XGxrn/2I
C56NsUsyUkzxqOJEkyicCwvhCivktyneDQxF+kEubN3M4zf8xww764YqD3lx
wTnB2rZviRmuCvmQP8OOC25hVQmlvmZ4lO+d6WLBhUcyNWfDTpvhXVrn1XQW
F1ivU6fXZ5mhvKDltJE8Fzo+FLHdu8zQlr0+9OQUB5ruMUxqJs3wyBnOwfoh
DoSps7clE+ZImVZu3ynkwOqGDed+7DfHOQmmG+/yOOBp0JbacdUcV/aWOPx4
yoHXi61kuM/M8U5KjlncLQ7ItFMONaoWKPqqwRZc5sCa0PORXustcLZ9GqF5
lgOaq/qkV0dZ4IpMRdXA4xxorrmr8eaxBQaPXJz7cC8HutTPzef9tMA8Zxnp
qe0cYPeM1VdaWCJ55/T4OmcOTOnNPJodaYmzJv8ZSlnJAZBdllfRbIkx38zT
VMwl+VifKr4qWOH/ASJvV5c=
     "]], LineBox[CompressedData["
1:eJw12HlUTV8bB/AmlFKJEmkQ7mm4TbdJoSeEqIgSmvw0SCoJSUlRlCZpUNGN
Zhmax9t0Hk0qDRo0aboRmVIRSniPP96/zvqstfc+Zz1r7+9zzlln537QkYuD
g+MkJwfHv2uaYO+51O1I6m98m/N+mSa+CBLQld2EZPLabOb+Ng3kHglSdVNA
UvDArqjkQA3U0uYkytYimak+bvcMNNA58pIktxCStd77B1M5NZD5bnbFPk4k
aSvv8Zk3quNi1Zecjc9JUqrj2BHmcXV0HW2atMkjyWcVi5011NWx81b1q6+x
JHm3sw1uL1HHe9MPiqVtSbI8qYwVUMpAnlRmavF2khQPUA+PjWbgqYNRkUYE
SepsPUL3dGegVqGPs9dUNekZtqKbQ5mBTHt3i2Uvq8l6FaFQJyEGcq102JHG
qiaTttU1i8yoYdt5E8n2gGoyXbsHesrV0ElLpoMmWk2uOOK6ceawGtrynCty
/VFFik+4W54ANTTvrI8v6K8izYdrnhUQaqh/2sVW714VyZHZ/+7evCqKZ5Z8
PERUkZNCsrwRWaooeJ6vPZGvimzuDT179bYq8my3LmB/rCS/yWpOLASo4vQQ
p7dbXiX5a9dP7dPHVLFZ1GTxdZ1K8qblQFeCpCri6/vvmyUqyXAnye/SgqpY
kj/TIvyngjzd71Gz+I8KppokxDBrKkjWx6nU+7UqeOn6a5kiowpy8FuJzTYL
FaTPem9+bVNOSlW9mfKPVUbZ2hYpef1ysi3i2IShnzKKR0lzucuWk8XC/ple
J5WRR6m+cf4ti1z8/krn3FZlHHIQthA5wyIHSkFP/7MS3uzOPLMtoIwsmtPe
n2+phNdS58yCHcpIc2IznblHCX3OGGu37ioj3xZ4nny2SQmdBGZ+H+EvI/MU
ZeP7VimhvsHWsDOxpeS7KiHlyj46Thd2ZdzPLCEThQ0SHRzoWCC2lTESWkKG
D6irJxym41nvzGop9xJyQFL76sxeOn7T8+5N0i4hves09MQZdPzZJMXHbCwm
Q94H2q3koiPHqLNrwoci8rBvm4l+liI+3d71s7etiNRrPeYUmaSIARlbrq8q
LCId7U0sfkUrIo+L0L24S0XkE+njdYSfIvJ+L2qPFSgiRzV9FuoPKaKwAId6
lHIhuarDM5fFp4gdp53JFyKFJN+a4ZcpHIoY3dFpJPyjgHz2s3dv8g8FXBmf
4RBJFpARQ55tw+MKKC5rFBdhWkD2j911OFqrgDKb4uZCzuaTt5e2hnAHKOCx
xiNXFrnlkvb3L+a5CCigadWQFFMrl7SJHrVkLVJA/QK7KgZHLmm1pebryr/y
KMN0nT8Wk0MuJDbtmZ2WxzH3K+fLWdmkT4SupEWfPJ5YlXXSffET0spU19Dr
gTy6nvhh2n8/i7xz3CXTZJ88Wlv5fnF3ziK9aWf4V+6RRxNTzpuL1bNInz/L
DN/skEdlXf7n6g0PyEDud29SdORxapn0zpufMknlwxL8kRvl8VzxLp0dOhnk
8/WG4pJ/5dCHJ25ddmcKSWvmZV4sk8NQjd4nafEppMSBLX2zhXKY6CC+6a51
Cmk2cbbwUq4cVtbd3Rf8NpmcOvZlNjlTDv/wwY+ab/fJ6+1vAvfflsMl/Acf
KxowyawS2gn6eTlcs+ziit9jseRlq9mC09pyuNltXv6DaywpciN875C6HFq3
+ur3fo8hA+56uR1UlcP7EVfd8pfGkL91xGRM5eVwg2DYM0dGFBmguaQ1XkIO
LaW2/GByh5G7ejeeMuGk7m8gHOkfcJE86bl4NVcHgaoigT5tTRfIscGmKKs2
Au1GZh0ll3uSwUzfINZzAuu9X22puO9Bbmh7UR/QQKC4jcnLz96O5HEu4/Y9
lQTSYVVbhIEhfOgrGUvLIrBpZRxXWowf+KvFq1leI7AlLYpfgXYFoq8H/9EM
IFB9a9/tAK6rsM5VyFv0CoGcZxwfqVcEwFuTRcdHLhGY9NK/6zY9CH60MU7c
O0dgT3LRRkuhCND8aVNRZ09guoSQo8ep22AeuuvurV0ErpphvRhi3wbBqM7I
QgMCQxsdtuw9GgdHAkPXD2wn0MOzfMV6w3gwDogSZgCBeu2ONd0b78Bkm6qH
wCYC+wIqpTexmXDtEt/sCQUCjY46haUfSQLTbZvPPpUjsFpF5IfwiyS41q4B
0gSBGYNObe+r70FmglPJm/UE6iSGVJvsSwaTu8eS4iQJXDyr4fZXMRUifNxD
o5cTqP/f0rRip1QoTuibkxYm0Pv5SJ9LWirUOYl55gkS+Ckl1KBvTRpEah/y
H+AnsGvfqEQ+Xzr0ZKZcOLiYwOSssGa7dxngxXH7YdsvGupYjxENqQ/B0qvD
f2SChjwJi/ochh7C1kr3Sy3vaPiiS+4Gt/gj2LEk+1fFWxqeMHKf0I94BPSq
RL/UNzSM1l3IqvB6DJYcjyFilIafxMUU8o2z4fLmeqPePhqWmusM7A/Ohoau
2F0fe2kYcMs6dPJpNkicHb7LSVmcN+2DonYO9PW27tR8ScOdP1QeZ67LBdt7
+cfKOmjY/mGD2L5LeWDs3xOs+JyGRTe0Ticl5IGhz5rv9s00vEszbPhUnAek
U0n8vSbq+excLoRN5cFhJr/rmkYaLvTn9zQ65gPDJ0+CXk9DuSa9+B2mBbAu
LKGsmKShoJPpl2i3AlD65ndUmPJXHrvdY6EFMLB5it+tmobV+td/XKkvgPmg
kCR6FQ3Ny54frtYthKWWHFvryml49cERcZ2NRTAttrrOrISGzDyzZzf1i8Ce
iLnaW0zDEta+C2+sikDjWeK0NeVPzw26I6OLQCkz5bVrEQ0PT6neevu3CBpf
LZlILqDh2TlF2CJRDAqtriIMyuFcxGSUVjH0uqu9qcunYc1KSeOtbsWgHeZ+
8UseDZV0+HhjB4qhL+Go3pFcGhpu5yl9P1sMR8t2+n3PoaGd0V9HWF4CG2p/
WsZRTrCZrf2wuwTWfY0aH8imIXcA239bcQk8fSa11usJDfubWT8mI0uhkyY0
P/+Qht+6ijINHpeCdd/4mQLKgkO5h+42lIJn0MwZF8oGXzIKd/4uhWG15bxj
WTTMXRHtzjxVBlN9QWfZD2jYvDZCauZ6GdwVXr8ig/KbjTdad6eUQWTXZ/VT
lNds8lP82lsGLuq50z8zaXjd+tS7PTtZcIv7EchRTnZ0jLv/HwsM/3jW/sig
Yfnp/3bOXmKBgtdodSPlqSsWackFLDiQfkrcnTJ/6IGD31tZsP/ZpfMGlGkx
xpzG71kws1LQQIKyVcb2Yz+ky4F38LFOazoNL+RsFTTZXA6aHiU2WZRvlW6q
SrUoBzt3/elrlBualCX2RZSD84HXdtspszvlm9OyysGPxQvrKS+82uA9V1sO
EmENQYsoq02u6U2fL4cYV61DbWk0rOwvjdwrXgFTrqk1BZR31ZsbTmlWgOkH
rd4Eyh150xxxZhVg8KEm6gpla+ZN1maPCrC/s2ramfLbYMWz7JsVUGDD+82c
sse5RoXgJxXwCk/d2UZ5wdbxNb25AsQ9xEZVKAft5WJ2vquAXIPxBmnKy7Xu
m19cVAk7hQuNl1NmrtuyTGp9JXRP2ZzhoUxb1l9fq18JTeP1qnOpNMz/6enn
bFsJ62Vaw79Q3vJGRFvItxIW+g4HvqPc0J77pehOJTToGa9gUz5QYZxlWVoJ
R5nRmwcpD2a+/4/jZSVYmIr+6qN8IjpodeZMJZAX0LSX8vTl9VTDr4Jcv4DN
/+zrjKHTSlVQesOo/N/4xYdsdsQbVcFCy7KWV5Sj9Od/bXGugjL3KvdRymvp
8UVjQVUgEGGa/pZy5ioNtxvpVSAtTJ6cpKzG3bFRuaYKmr9yVf6gXDnpNtw1
UgVy31Ylcf2r/8DSeO/fVWBc/2up0L/61z/YLy1RDflz2TyS/+qfb8Bbv6ka
1KZUQuj/6s9k4ymLatj/5Vr81n/1v+HnLXy+GpqFC5RN/9X7WNkHq9xqsKIX
fPWmLGx0KI2ztRpOnEiQjqKcqDVj9eBDNfw0uPziIeW8ZfTWmY0kPJ71rRqh
vHmu8XrCDhKyDrN+LFBueOOop3echMxt2oUS1H56VXE/N4RJwvCEySMbyice
bDmpUk5CEZfYmyuUp6L7ZV72krDP1i8xgzJ3Md+eW3wICYYp/l8pi4fvKH9l
gNB46AFPCrX/hzmj43LMEDRXDIm8oJzmNXr2qh1CpPDTeA7qvCnbX1YkriDE
dutwnaC8Q7eUebYCoaG/Y/t26rzy5i3y3tmMsDXnwBdfym0bzQ+J91Pjv37j
Z1E+snx6WfV3BBk5v2hNKg9OTyj48zGewtBgfzVQedG2YjJoBJ7CWs130lcp
K0P+zWKTp/De0bKylvLkbe17x52fwpPeJRnGj6j5OwyqWMlPodi6e4PbYxq6
3bP55SxUAydT3KwnqPxqaZLh1pesgR3zqUpbqXyjz75eKqZYA39NRdRiKH8y
OrWmZlcNFH672LKdykfXuQs6a/xqoGLn7V15VH66mt/yav5UAyuz27prC6n1
/M38k+drgHPfrjBFKp/pj8WCL/DWwhl6t0ss5U+cSXGyG2ohadTooTOV5y65
D4t9rGphfuIWr2wpDU8trf2q0FwL5ZoFM01Uf3DGWfewB3Uw/maF19caGnIM
hfiGlNRBdVLxkbBaKo/nJEOC6+ug66LPjQ11NGxk7EoNfF0Hy5ViX1j+61cZ
cd2XpOuhOMTse88zGk6EaOu4xteDj9xarWWt1H4w8+YyCW6A3IjL+aepfvvH
fZmQUVwD7N1CD1bpp2FceIrEnowGcP9kdG+ackN9k8bO2gYo7bgZ6f2Khhs3
rXHa+rcB+rQYngnDVD6vrXiu5PUM0q6W8IqMU/3j7UKsoFMjGCd8tpuZoaGU
1wZs8GyEoopfCT1faTiwxPij37VGuHOLuVDxjYZm8onbvqQ0QrZdu1Hod6o/
uOpMtg82QpIBi0dznsqbGc/dUQebIF36PKuGk8APvyfnVug1Q6jJwrpq6v3m
nCjbdrVoCww6Cu9V0SSw2epycbdsC3gUWd3co0WgTOpqgVuqLbCc4O520Caw
Tfkga7FxCyRXedjf0yFQwbB2xbeAFhgO3RwjqUfgqE9GY9tUC1zn+bnZeDeB
+0adGddaWmFJ2+/fpyyp8Y9nFn0JbIfmNZ0PCwIJZI0dO94Z3Q4mxuHcitcJ
NFzTWlmc0g76Xnuj04MIPBHy4Jwv2Q5J957sTwwhMMXJms33qx3MTyqZxkcS
KCBibyui8wJGWvWZTYkEBrS16CjlvQBmdpja6mIC3XcnT9nd64A6D+7Pnh8J
5NFbrmGR0QFdlRpXpT8TmKAR4LXnSQdIR//RaJ4ksGadwx+V8g6I0Xm5IDtD
4MoFQuD3yw647yAmPvaTwPK8XCJ+WSc4xrd0xS2Ww8VrSNvnvp3Q/eHyjiFZ
OWR+GmpRt+oClfQg3p+2cnhILPSSodBLeC25cVnYazkUcDKvs5noAfsNu30t
wuVx7Ue13B1fekC043YHd6Q80t2F7sp/7wGekTsDBVHyaOzV7D7L3QuCNNNl
YvHyGBGsLxEh3QtShY1rp1PkUTCLfrbSohc6IyJov0rlcfl7HhmJ+l7wWCTp
7zwuj2IuxZf6UvrAZR50lu1SwBqnXycPPuyD72rtjV57FPC0wzaLlrw+2HDl
d/8bYwVssGlVRbIPFvluCG8wU0Av0/HxB0N9sNl9/+Ws4wrYpylq6rW6H4rW
y614f1kB73J4bhCL6ocU+/27z5YpoHScRqvZlQFgXXT57KCliMPGdU2PggfA
PFKX44KuIjK5zRs4IwdgXPPGkVA9RRT3OEfmJg3A+atrPlbuUkQR44J8/ooB
aFjfvXLvYep7l0s1rnZ2AJ5Ll1/l9VbED26Kx9RdXoFUzwfdTaQiFu2UnRax
GAQXWZnxZOr7W/+wa+BH60FoX7da0sKajs9PlojW2Q/Ced++C0LH6TgWtlfX
02MQ/raWPLx5io7LO88G9oYPQoxjegN5mY6nbWtFmbWDkH885fVMOh3lvBx0
N6oNQcHUnuwX3+nU+3BOy2/tIehe1cYvvkBHuPvTtkdvCCJan/k7cCqhRVV4
YLDxEBgY67QICCjhde7ilvdOQ5D9n85c4jolHItcdCzn3hCQf7kEqkyUkJmV
GagtMAyTLlb7zR4pYR3jqHj6imF4sC29pDNPCT9W8mcLSwyDbl5yztFSJdTt
ONPzXn4Ygmwhxq9OCfvndOWZu4dBK/yGAG1ECcWM2ts4Aoeh0ezQ2V+iynjr
84/VzXPDEMt//6ZRqDKWeT3K0eIcgcdhqX/YUco4wmmzI413BIaJwtiAO8qo
LFbj6rtqBNpYDoljWcrYqhdOKmuOgFyj4aJ1jcq49JaMY8yZESBTPPfm8apg
IGNPnvW7EXhxaaRrPloFL64qGdg7OQLn7RsPXkhUQdcF2UU6syNwquyb+Z80
FVS0//MklHMU3DWvntMoVkFRpT5OJ6FRkHk/rby1TwXfY9hjacVRMBL9+dRD
WBVvTcz8uWU3CpweEtJjtqq41Ep+Je+JUQh6l8Qt4qCK11uPyfs7j0J/joiS
kbMq+hS0mLmdGQWx4u8d/edU0cE3M2uP3yjcEHq0zjVEFbWFLQ9y3R2F/V4x
xtdLVHFY+2nGuY5ROHBZFKpXq6FdMHN7f/coeNdm9hjIqOF4j9eIXt8o6Let
5higqeEnT+XVS0dGAWdSBNQ01HC+MDE8+dMoqK8iI+/sV8NVqhfOtS5hw8pb
HoNxIWp41/+AsDo/GxY+F6+Vj1JDqXZ6doIgGxZ7nZpsS1BD2unXb+1F2XBK
eXDIIksNNZ6YWs7LsoFVt7rBvlENTeUUtxF6bBD4lJQ7KMDAbq/Fw+Hb2DA0
3r11RJSBh5+xfWYMqPmEvPdvKQbankgoqjJig+rE3qxINQa6pi+SMz/Khl5C
kyF9hIFTX0frWNZsyP940WiFHQPP7ag8Lv0fG95qf5CXd2Wgz9jZxA8n2PCi
q7e/6goDb8iMCl49z4bXVxpzMh8zUOBMxeO3XmyIK42zrSthYCQZZ2h8iQ30
J5+UBWoYGGdrErAqgA3fj48ZSvczMJ1ZPpsdyYY2+HzOh08dn4rfHhx4xIaS
2Fkz3/PqGJ2e7hOaw4bBrG1autfU0UG1SFy3gA0/v02NG8eqI69hl/kdFrU+
98Rp/2J13Oe1vPVwIxu2FzFUIxfUUYZ7ncuSFur5NhHKJ4U0cPqmKl9pOzVe
RUCiQlYDYzP37xTrZUOufO+Fib0aOPAyoqp7nA3KbttyNFI18MnxJKtr79ng
Xx0lnMPSwMufn8ypf2bDFV6RmPEODZRZ1KIZ840N/JtGG5/yaKJl2HGpnlk2
/P9/8/8AeCtGYQ==
     "]], LineBox[CompressedData["
1:eJwVj3s4lIkex9Vu1E5WGaRJLeltCOOdC8+Wy6/FMQYb5klGZbfc6xSdLNPW
0objYEexwoYQjlvtUC5dUL8uLtvRCWdOZ7dUzPvOuHt12UiLY//4PN8/Ps/z
fZ6PRWisNGK5jo5O5BJ/rpHk9VHxQzXsJLTKUX0HrC5zZ7ofqaH89bxL7RsR
DgaTsu19aqh3m++efCZCU/bGu7UqNRhs7tw68kCE6X9/92PmMzW4tKybUv0k
wujDtY6+o2oYKE9buCAWYZllfmnbhBqODUWvyBGJ8NeB5JV202q4Q65VzluI
UOK3/6n+jBpy9yaabF4Q4jaRQdLjjyloMnjuZNgqxNDJD1pYSQHP1XwH77IQ
C6tG/BpYFIRwf08uLhIia/09ixxDCl4UupqEJQpxYv6bDqk5BQWqSLaXhxC3
XD/Iu29JQf5cUEuloxD3H9tVIORSEOops3C1FmKPmnvIiEeBWJdv+pmBEH/u
err6iRMFKaoNaRHPBaj9viveEyhYbeGdF9cnwE07ml60uFHQbd/6VUOHAM9e
yWookFDA3arJalAKMCZn5+7gIAoG9Tm3q5MFSO6rKho4TsE/5gtaE/kCbPHv
WlGQQIGhxubbz7gCdPYciQ04ScGWI3mJtJkAJfxtHp1nKGhb0LuqWinAUD3l
RH02BfTFe3qOaj7mNja7pCgp6Js7ahhUyEdO7ZNql2sUdHRZnHycw8eykpm1
s80UKIa+7/86g49XMrZrj7RTgMahnp0n+Pjg6/aze3ooKBrvuVEs4+M7VsdL
6zEKvE4Ikg3M+PjdMq2EnqTAyKF7steIj8tndJtKXlHwPsCipkKfjwZqr3T2
ewriHmY/OLVIotWNHnJej4aLo5dEUxSJweGqM70EDWz6Nau0nsS2NspSfpCG
FDp+VbE/ibUvh2Svw2nwbuyWHfIhMX/5YNbRaBoKk7KLwJPEWK+BmbBYGhre
y5J1nUncrFL9yz+RhpIDTZVzXBIzxjvitl2gYc8vPmnhy0jcw6m5/7yXBv/i
wTlBnD26u1TNylQ07CLjjGsO2yN5oNJO9T8ahqTWUutQe/ykqqzg4Qsaisf+
VucXYI/t/At/vT5BQ3we8YUVaY9bJJnsnJUaYOVe0p1iePhKfiTMY6cGLh9L
jWfJeaiVG5gr3TVQcj7u7HQsDwfk1wbWiTUwipuMX0TzsFs+Gzj+pQZO506Z
9e/lYZk81evHfRr4pfSxjhnw0F9ebDeYoIF89+zt3FU8VCb0zJz6WQPVpz0c
asrt8Ei8raKRo4WRiKQdu0dsseHqR95Rm7TgcL+rJUJti28nn+pt2KwFu9uk
eeKALX4XmZGSbK0FS62Tor3XFhVB2pMBn2shLLImK+WmLV7eXnaICdSCyWje
XY7CFsfm2WKbHC2wnaVupIMtRqV9WFahNwwTzjp5nDwbNJyuz1zHGoaK2ltp
ymwbbAsOZys+HYbFU5ce/UWx5O0ebYk3HoY1J1LFSSlL/j8lYrHlMBDR6yJN
jtvgGgu3rHHXYTApkLq/9LPBm63ppqKEYSi8+sa0Wd8GWa+M7TvoYRjn//fA
hZxtyIuF2ijVCCw0ERt7K6yxwL5s9ZU7o/CHc5nk2VMrrJP4ci2LxuDczaSY
dgcrdJbrneNkjENpt8LHKJ+LJxb0lR5RE/CgmHVJY8DFuS6fljVfTMJMChE2
W7AVP1T+xAqxm4KpsL6Jl+ZbseoZaTqwigFok3xTcotACXG+ukmfAaeYqW+H
bxA4ETPjmLWWATFHh82/TiB/+e1A1/UM6Mx8stDRSGCblU9umRUDutOk8t0V
AvvjIz6NEDNg1utrE1dK4KJB4cdTqQxoTMt9n6QSWB48n9uZvvTXz9nATyHQ
o+KAZamCgbuGOccVZwjMdOS6+Z9nIJDt1OqRRKBJSNPpaxUMVIl/r2uVE2hb
9++5hHsMjDIheO8wgY/f8DP9Ohlw8ZbMEYcIPO6St97qIQMdsrAbGVEEXu/d
9/lvfQyEdc3ekYYT6DYzEu80xED/lz+8HQshULPTd4WRZqn/nz1i6X4C0zPr
z0+MMPBEMWl2ay+BjzYmNF6cZiDPs87nhyACj0X95pbwloF3Mc2VbwMJNLzq
3L9rlgFv46Skr3YT2DxXepD7BwNFkrZfu6UEyjw+erW4yID+OatGYQCB/wfg
bzSe
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->
   NCache[{(-1)/
     E, -21.05434697264468}, {-0.36787944117144233`, -21.05434697264468}],
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-20.72326583694641, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-16.11809565095832, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {-18.238359187158412`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.58777162101726, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.196905312330248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.916603347176093`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.69791414621126, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.518573217555446`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.36655701025682, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.234629467214273`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.633189001170319`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.98260143502917, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.591735126342158`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.311433161188, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.09274396022317, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.913403031567354`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.761386824268728`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.629459281226179`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.028018815182229, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.377431249041079, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.986564940354067, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.706262975199909, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.487573774235079, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.308232845579262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.156216638280637, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.024289095238088, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.422848629194137, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.7722610630529876`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.3813947543659757`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.101092789211817, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.882403588246988, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.703062659591171, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.551046452292545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.419118909249997, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-20.72326583694641, 
       FormBox["\"\"", TraditionalForm]}, {-16.11809565095832, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-18.238359187158412`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.58777162101726, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-17.196905312330248`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.916603347176093`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.69791414621126, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.518573217555446`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.36655701025682, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-16.234629467214273`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.633189001170319`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.98260143502917, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.591735126342158`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.311433161188, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.09274396022317, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.913403031567354`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.761386824268728`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.629459281226179`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.028018815182229, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.377431249041079, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.986564940354067, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.706262975199909, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.487573774235079, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.308232845579262, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.156216638280637, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.024289095238088, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.422848629194137, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.7722610630529876`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.3813947543659757`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.101092789211817, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.882403588246988, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.703062659591171, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.551046452292545, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.419118909249997, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->
   NCache[{{(-1)/E, 
      1}, {-21.05434697264468, -2.800293537237594}}, {{-0.36787944117144233`, 
      1}, {-21.05434697264468, -2.800293537237594}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-20.72326583694641, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-16.11809565095832, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {-18.238359187158412`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.58777162101726, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-17.196905312330248`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.916603347176093`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.69791414621126, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.518573217555446`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.36655701025682, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-16.234629467214273`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.633189001170319`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.98260143502917, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.591735126342158`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.311433161188, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.09274396022317, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.913403031567354`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.761386824268728`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.629459281226179`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.028018815182229, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.377431249041079, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.986564940354067, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.706262975199909, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.487573774235079, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.308232845579262, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.156216638280637, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.024289095238088, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.422848629194137, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.7722610630529876`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.3813947543659757`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.101092789211817, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.882403588246988, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.703062659591171, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.551046452292545, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.419118909249997, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.519857317008432*^9, 3.519857391656804*^9}, {
  3.52007858752439*^9, 3.520078593089219*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVx3k41PsewPGMUJah+M2MdZafqaTFZDmP0833i5OWWziFJOekGrmRoxWp
bFlKtuRYc861XEwJdVW2zEd0bEl7GSl1VZYwY8ZEYzlz/3g/7+fFPhiyy5+y
aNGi08r+/5YtPdKpVWJ0/LTFzcn1XLgb9oXhaCNGEV4PKOMruHC9bGFTMhKj
yUq1vBlTLmRoWF3keImRTUlSM9bmwsG2dBO3C2I0Eld29dKwOVC27Npc3i9G
uc9yVPtLzcHJ5WWWT4YE6ZaTWSGW5mAXOtbwnwIJ0v/hnCPT3BxWl6p9EJdL
UNdw+Y8iE3NYrm5nmSiUIL2f9v95nGoOHx9mCf/7VYJuHd+3lJwkIXaz95D2
lknkHFcWFt5AQvNPffZCxSS6M8aZcfQkYSRBkjqnIUWzb7/9UOpKgkGHxuBG
AynyPRRna7CVhMM7bVJr10jRzbO/a+tsJEHbK+XjrV+kyD1S91oImwTvAHS5
RChF9v1aLwcnODB+qfjtpQsy1JDvxFW9ygHGozpee5oMxbzo3haawgFH6pME
9Wsy9Kn//V1xIgcyM2atLtTIUJu/wFJxjgP2+Z7x5z7JkIuv9Ck/gANxFRrr
QrZModRLe3+M3MQBo56gKA8tOYo/IPALGmeD24ckZgtNjizDrWpmh9kQJxUI
eRw5Ohp3RpLxiQ3j9KEFqr0c7f04rvb4LRta/PjRHYfliK95s/h8FxuOTvrG
ODyQo+AD+vwGARvuE64XVp35hhiV/cURR9jg52uVOPt5GoU6VaikyljgsyBo
4k1OI1NbijNPwoLdRaT88Nw0Us/KL349xgKXIZr/U/0Z9D2drF77hQWWp+ac
SvEM4m4MCZvvZYH8cue8W94MaoguG1wHLEhu4IcW7/yOStuNrCpTWVBrlOu/
vUaBtk67HdtjzYIvPXrdJ0CBbHMC3/zLigW0+Is2+Y8UqC1guPfcWhacnAhT
/TqoQNmXC/MqVrJgXatXYQoxiyb6/KtWm7CgJNig/0noLHpDfcz8Q40FVyDN
Y4/9HFrvfDUkq4YJgYcTnPlN86ivLzbV2oAJJaPq8saOefSX5m21Fl0mvD+W
WE68nEf3+zWbPbWY4HH2ok7b6Dxad37PVByFCQ7pSa8tDBeQcXHY2FKJGSyr
Tw2aOLmAwp8Ff7v+2AzeJnRtu2+wCE+4dh/lJZtBnOj58a2di/Bqi4mJP3XN
IKa9tLl1NwVrBm6oOckxBfWerln9V6rY+5EGY8rXBCivNXOPOqjh9PNTTVX3
jeEGV9vW8qE6tt4++nJkhTF0nV65Qcpbgscr+RmMG0Zw6l2mUWr2UrzGN2Rg
1MEIOlNaKWnGWth3+ZeUxa8MIcuBuiM3XhsztOjZ9EhD0LMz+n0plYqbjlSc
1F1lCPou4R070nRx1WbHxuo+BvxlGV6146webq5aYt2YxwDRHuI712EZVkk2
VHX2YYAgDk2pypZhyuyWXA2SAT0vtosN6pbjIwalh8WjdLDnLfilRehjYV1B
ELOeDr+m4ljqegN80i/0mXYaHUTUQ8UwaYDJ5BuGFYfosCx9+ekwAYEbawNO
KDbRIcU0qDHbl4ZtOKNTR4zpsP9xieqoGR0PyGUyj2kajEUFKZxe0HH3jmvm
gl4aPPXQl3bnMLCrdZJfeD0Nvtvy/R7sNcQP6oYTmgpo8I7uFNmgY4Sf+S3W
jo6jgaGpyrUvT4xw9NgxWUUgDXTJnYGMRGPsGt6JhnfTYJutU+VtexPsaz/S
1uxAA1EgYzJKYYJHpN5vVCxosKLw7Oefq02x5tBNrxaCBh3fhSKvU2a4PkfP
VK5Cg5WeV6L8LJl4yafFAn8xAZ0NWnnP3zHxQBPff/Y9AR+KrEWN7iyst1Mz
T6OHgI1DZSjjBgsP8ga5k0ICsFCbq0Jl418FWRKfagICTFwelvzGxs9ir8S3
FBLwdebh/c52Ns6M1doAmQSYHLGzS1rNwaTXij6cSMB17zH1R/EczNdpi+Gd
JcDncXiG03sOvsdzWtMbQsCdl7KCXZjEaTnublp8An775Z7KpzwShyQt0YjY
SwBlIDv4zDUSDzAm2v+pdPbB8F6dP0h8O2cqw1RpCLC/ZVdI4qIIH9TsTcDy
Ew1+F8tITNu3Y2aJ0ncThELLGhJn0OjiXC8C5qvazp/oJrFqdkFf824CMjaU
D6v3kLgv/05BptIr71z0zH9CYiuHqoAApd3rt61tfU7imlqkr6N0UWvXW0JE
YoHzv9u9dxHg0tuzse4ziT8E37sucSdAtK+6bOcQiZcVqY20Kh3yLl3/4zCJ
L9vQeTlK5/zv51HNMRJ3TJ975aD0yNjzPF8pibuazSKT3QiIPFajLpGRuLZ0
t2K/0vrSzBPxchIHUzZFWyv9j2nP7ZUzJPao4xaKXAl4EmF310lB4l0H2Jsq
lebP0TivZ0lMGHcOxCg9HfUtJWiexMlUs2RPpVMob2YWFkgs8jdGFkr/DXmj
fCc=
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwB8QMO/CFib1JlAgAAAD4AAAACAAAAcTBSHxaO+D8AAAAAAAAAAGBcMIf8
5vg/DbY+VOezz79a/6m+MfL4P+whQJTjzdG/U6Ij9mb9+D85C4OGwsDTv0bo
FmXRE/k/EYdHUGuj178rdP1CpkD5P2zB6y0aXd+/9ovK/k+a+T/Ts2GGCVPn
v4y7ZHajTfo/VHwPzW8o87+4GpllSrT7P+NljYXc0ADAamaGQ2S+/j8x7uvr
WqAPwITa03FIygBAeSyfeM6NFsA8JhNjbtAAQN4JUQZ+qxbA9HFSVJTWAEAK
90nJNckWwGQJ0Tbg4gBA5koB4r4EF8BEOM77d/sAQA1t0yU+fBfAA5bIhacs
AUBkgdRiKW0YwIJRvZkGjwFAVkeGxZ5YGsA6nfyKLJUBQP7iWmXYdxrA8ug7
fFKbAUDOV2JOI5cawGKAul6epwFA+OfZYe7VGsBCr7cjNsABQMe4hKFjVBvA
Ag2yrWXxAUDaXdDXH1UcwIHIpsHEUwJARBGmDONoHsCcXJP+zVkCQNWzYj1x
ih7AtvB/O9dfAkDZCKgCHqwewOoYWbXpawJASerukNXvHsBSaQupDoQCQB/W
xkrNeB/AIgpwkFi0AkCcqzcXt0ggwMRLOV/sFANARKAONl1xIcDe3yWc9RoD
QAX+cJW8hCHA+HMS2f4gA0CzHp8dOJghwCyc61IRLQNAKkVB/4W/IcCU7J1G
NkUDQD0v0k2ODyLAZY0CLoB1A0CbsUyE6rUiwAbPy/wT1gNAa90futchJMAm
yzxftdsDQONqbL6eOCTARsetwVbhA0BogCSzmE8kwIa/j4aZ7ANATZetkip+
JMAGsFMQHwMEQEHcC9ns3STABZHbIyowBECad/AqUKklwCSNTIbLNQRAOz7x
W/3DJcBEib3obDsEQMJ9IuL43iXAhIGfra9GBEA4536B5BUmwARyYzc1XQRA
gQ+kVNeHJsAEU+tKQIoEQE5xBXLofifAJE9creGPBEAw+L4A4J8nwERLzQ+D
lQRAJ2H+D13BJ8CEQ6/UxaAEQPqot8H8BSjABDRzXku3BEAJjT5PeJYowCQw
5MDsvARAoujnCUC8KMBELFUjjsIEQLX4+dHA4ijAhCQ36NDNBEAbtvzrDzIp
wAMV+3FW5ARAze0Y9vjaKcAiEWzU9+kEQNGBoK6aByrAQg3dNpnvBEDQgFEI
TTUqwIIFv/vb+gRAmym+ZyGUKsCiATBefQAFQN25gK1lxSrAwv2gwB4GBUBx
5MJm//cqwAL2goVhEQVA7QLNPIphK8Ai8vPnAhcFQLbacTismCvAQu5kSqQc
BUAi9Fj6hdErwEZPd3eOIgVAYo/1AzcQLMAcNsuu
     "]], LineBox[CompressedData["
1:eJwV13k8Vc0bAHBbdtd177EL5147r8qaiCdkC8kWpXiljZKfF9FCWpDsCQkh
2RIqtCAjS0Whkkok2bIma8nym/66n+/nzJl5ZuaemechPU/YH2RjYWFxZGVh
+ftbL72iYBTMCZ7x8+y6VDU0Ptx6cuQ0J3xZ57lNck4VKUzo+7Od5wTGdL/d
reeqyOPnnWProzjB5Nuh7XcyVFHXnyv/OiRzwg5WSPpqpYqorMt7fdM5oSLO
LGmIqYp2cB5zvpyNn4PTHvFVFYSo1jvqSjhhWV/T73WlCrojz6+t2sQJCYW6
jqMbVdBEEovTlxZOUDsmjYboKkiNZT4gsYMTLrnbP0xaVEZ3u3srFj9zwsvM
5D39SBmVxZdpNc5wwuOhVu6sPcpoevmW48lfOP5ddr2HjZXRRu+0AJVVTnh6
SVDnvooyumcaXpHAwwUHbWetqpaV0IPf9lr7ZLngh+PBAJ58JTR3yNyRqsAF
Xf+ELnsmKiGtTv2ABlUuiI9iJ6XPKqHKUrkKZV0u8NYipe46KaGHBxY0F2y4
QJ5jeddXXiVU/fq6ZvxpLiATYygxFxTR8pY4B+NwLmBZm2jr+E8RGRSe/28+
ggtO+8cqOHgpotrzPg/2JnHBZNg3b14zRVSnu1VTqYgLqj1jOSX5FVFDzleN
+i4usG5R0yzOUUAcgu/tA3q4wO5jfZvSNQVkeualv+I3LrhpYJj9JkoBNTnf
vx87yQVDv1gdsvwU0HO+ixp7OLjhfkNdML+xAmoNVNSY3cQNHTKusVfH5ZGv
6svMy7rcUCqukBTdL4+o/d48slu5QXpqkOPmB3nkbF361dqCG8bJXaLSjfLo
K0M7Pn8/N8g53hg6lCWPFtqNJ1yvcIOTQdHPmt3yKO3S4O7pBG5oH9zHZr9T
HunrRzREpHADD5/x8RUzeXQu/2X6gxxu2KH6aeiajjziO2tnKfCIGxjf+L81
iMgjWZX9+WiQG8S/HBJv65ZDz/rWhHaPYfsbSea+k0MHr+WcnfzBDSaWqhmR
r+RQMcuQo8Qfbrizd5tkxFM5pP3Bhz1AiAcKc4KcrW7JIauLIR6KhjxQ11D9
tfaEHAr4kiwRl8oDFvXGsEiTQxqZ2tJZmTywVTdMXkZADv3Y20WW3uKB8Q35
Fx255JD3J1HltjIeEDtLrA7/YSL3znRdygseqA5hKOUPMZFVS7Zj3C8e0K69
LutdzURcl7e5ZK3yQF7nQwvnKiZqNP+2t5SDF6ii9wNt7jGRURPzQBuVFzbZ
1ux2K2AiLZT/P4oyL/hsrr/76yoTyVSVxMW58oJB7bZ+6gkm6gmwScpy54WS
S4l3sryZKF1z6lrpQV7YvcDM0D7ERMS9DZlt/+OFy4pHokL3MRFvyf07lGhe
iJWfeR1izURzOY9exD3hhcWy4xasakzUEtvIFi/JBz5+eRJ10wwUWzGqqkvy
AY/GbbfwSQay+0xx6lPgg0GWg/aWYwz0Qcm1YIMGHwyFKcqNDTDQYMPkjg4L
PlhwFFo8/oGBVn6LXBMK4gNxfvGE/+oYaOOho4rJHXzw/O2bAsWrDDQbE2dn
0MUH1mkLEZcTGKjqwYOQwc98QIG8hz9iGWgr62qr1ggfXHM4PvoiioGsMpL8
3q/wQWG5WOrdUAY68Lb6sYgqPxx0WF+62YeBUgwp1tcv8YPI1dOr0uYMFOCr
IVB9hR+mXW4ef23KQPZZzm09ifzwKuzu6zBjBqKsZtnJZvFDek+v0fRWBrpU
u8GpoIofBJbe8a9p4fcNdu2vHOGHsRibpNdMBnLYkuz3xlIAtgw2FS2z4/l4
P9o0u1MA5ijXxyXYcH/pPTOEswCkPd5oZMDCQC2/5QJdPAWAP9qBI2qZRMaP
K0P6TgmAhrjSIZN5Emls/nB+8o4A/Hf4WIXpCImoOhLXeCgU+B0iFmvzmkR2
peM5FIICZzhLhltaSZSgUFtKl6DA7Di6btWC24t6vFivQAGqpPKy3XPsX7f/
bDKkwIN0IeOQehIJPdnkuceXAhYdfn5aVSSiGVpuuNNGgZ4o5xX9HBLZV0kY
lHdSQP3okvnKTRIlqU9YVHZT4OBKfwjKwu1l4j3rhimw55RCpHUGNsv7a+9W
KTA2mzJzKhX7mcfyH3VB4BXadko9jkR0s+CX1vGCYNlkPN5zhkQuCm1/RpMF
4an3iuXIaRJlccqpR6YLwqxGHsfsKRKpPG9Pqr8tCOMdi5coIXh9LBTddGoE
4duWHRecAknkb9U1JTMqCALzCS9IXxIdUZSIDiGpUJ5hpVTgQaIrotuZFnJU
+PBP04VP7iQq5fKrEVGkQnViMLsA9txI09QDNSqo8O09enIfic4V/s9hSpcK
POZuea57SJSq/FLqgC0VjvKaRts7kqhZNbjM+jQV1FW61PktSRSUnUu4hFKB
Im3+bJcFiRSEX4ccCKfCJolHwWnmJIpcJU1PRVLhYcQWC2UzElm8af1YcJUK
h2Lqt7uYkKg1SIaNvYQK92r7DoxtJVFHfbPj4x4qWObYrHRq4nh0fj5u7MPx
c07wG2BvvCMp0/GNCrcTo4TyNEiUmOw3OvydCgtVN+aCNuH9OiwRSszj+amg
VcUNJHrP71twQkAIbMXiKVUqJOreLbwkbygEEV/1+0MYJIplYfNfASH4HsZy
YR02FE2NdpoIgf9a96dEkkQFS88/XbAUgqaiY7dKZEkUkHnqcb+jEHQJRsWN
SZOIMtAXnOkjBK2C7/kjJfH++BYvEteFoL/mhPJWYRLNi6SemLghBKGRI329
BIkK6y6MNGQJgWxwgkYYtqDQvg/+eUKwLya3qIFOop4Hgg87yoQgwHZLqwMN
r+/vgKCYZiEQGuA0SRAkUdFFo3n2OSFYkOQ4HshLorF7qnpii0JwPZVllsRW
6RM9q7YkBAWaI6LtPCQq0ZvmcGKhwY/KE/qq2KVT2UQ+Pw2e70npHOMi0X0X
Ni0LeRpsdhEsiVhHoplLUyfdlGhQypH8wgBb80F3tZ8qDbyW/gue5SBRhcAD
k+ubaGAdEhHvif3w2QGHsa00SFidiTRnJ1GNWpN/jDMN0r3YBNRYSbTseq8q
25UGn70+UsZZSLQ1MnOpwo0GN1fPXC/GftofeL7XkwaDHmVmqtj1KQpJ6ido
wFnr8kNjTRY1s0Td64ikQTZP6s89K7KovdNqmnhMA8P0XXk8S7II8gW6JWpo
kC/ndubTb1l0/2RHg2wdDc7JBzUXYadIOKeqNdGAtvqpdAe2m8e/hqZvaBCt
nPAs+ZcsGhs/GfPfKA3ebnC8rL+In9duCQqZoEG1UY85Dft13Ip72A8aXOpq
9BtdkEXlmy5oXpmnwY1v/Wtp2CdPxnXnstJBeDiZc2VeFnGw31Z6K04HxThx
+49zsiio8zDtoxQd7rZ/OFeJPXJbZblXhg7SzQO0q9gtFuXto/J0OD6o6b4T
OzGuOohVgw6Pi1diXs3KImmJt40brehwPtug/+OMLEoYTy7VsaHD/1Y202uw
2Wp3pxnY0aHm35Wcm9hD7r0+Fs508Gux7TyMXXL7O83Dkw5o2CR8+acs0tu0
5hF/ig4mXVcKdLBLdS7u+/csHdZCETuJzTDg2aN5jg4v3c/c4cPmN6c7fLhE
h808+3v6p2XRFzfF7TKJdEhbKqxOxLb3LNn28yqer8m8Tyj288ObDBtS6EDv
Cznog13ur697OIMOmb94Nc2wz0ftVC4roMPYXNDGtR+yaCG2Uz68mA4DA3cZ
U9g+V10ZDnfx+LYDe3uxHbMOSC7ex/0Va+TWYCtWnBQwekqH8bbOoFDsV303
f7Z10iH79D0OQWwYkpvK/kCHZutGMzbsyrGiMf9uOpz1ymydn5JFWfMPBkS+
0sG6NSujF9uP78X7/eN4Pwo6HcuxB6k2bzdO0cFiHSX/NraryNs2tp90aCkR
2HwD25jseZ6/gPfb5OD6SGxh3enHU6wEBH8vGv4XO9ogsApxEHB9p4WuK/bq
tqX7SVwEGDx62myH/d2ao0RHgADD8G05gO1mf7mQm0rA9rD345ux3+ym3O6m
EaD41C5gE/YTT7GsUDECBqQEDZnY6kcy0+0kCQib/hwqhX3rOCOVIU3AjsO3
loWxY4LVEpqZBITEbC7lwWYJvReTpkDAwvfEfnbswAs6l72VCeA5vGK3OimL
9sfBecoGAtrH5QZmsT3EmqzWaxDAWDG4OYXtmWtJV9Mm4MnnvuxRbC+1ts9b
NhPw8kzTyCD2oSr7PEt9Ah6Y5//3FfsIfDjmYojHf7vFtAfbu2Wv9uFtBOgz
DFw/Yvt+8Wq+aE6A2gPvnW+w/Y6Mxl21IqAngm9jG7b/zPHduTYEbPZicWzF
DjgzI3PPjoC9vezVL7CDOE9+r3Mg4O5Qh1czdnDCn/I2ZwJuNjB2NWKfkjgX
0utKQC1HZdgz7DN5HMYTbgQMRZlMI+yz6pd5/7gTMB8enVuHHfpI4B3PAQLc
T5mlPMU+Z5x0Q+wQAatGWq212OdfiXgpHiXAZIG67a8vOt9Q0zlGQM3q9cUa
7IivMvOmJ7DlYqf+Oso7r9bBnwBh70L5v+2j55QiPAMJ6FQtzvjrmNC7tv8L
JiCIe5fD3/HiuDVEz50mQGJmr+XfeBKSqvriQgnIYUSH/o03SUq/MDMcxyNz
Y6YeOzm/zq/kIgFRyPZ2A3bKRlO96kgCWqQOpjRhpz15wdoSTcCL9Kym59jp
pjYtH2Px/MarNVqwM9reJI0kYK8L7X2FneXivHfhKgGqavlN7djZ37qZ61IJ
CPgxP/YWO/eY+wQ9nQDe9RtsurDzFgYqGJkEBLbRJz5h5587cnZTNgHsPoee
92IX8k5uh1sEmKeOfunHLpFe6NpXREDfjdj6MezSwlM3j5UQoKyoHfMDu1xj
7fDpMgK+FkkkzWFXmHH/TqvE43WV2a5hV/tKSHbWE2C2++JFUfz/rfmVNfCt
kQA0l86Qxn56nlny8zkBpjKiS3LYz1LUtgq24e9v0MVRE7vlqaG7VTcBGfW1
ZfbYrywaFF17CfAtfkLbi9321nz68FcChg2d7h7AfjtsF35pmIAlu4tRgdjd
lAO30AwBYrdqO/5+/32vikJvzOP+P3tt/Xs+DEZPuwb9IqCIle9TKfYUZyhV
bZWA4vq8jGfYrGtpZ1N5hOHg5x12E9hKP9p2+8oKg/aZcRMLfD79c1dY05Ip
DMQOuxhHbA0fN4qcgjBwZvKy/ottMDLa+ElVGIICP/uewt7Zx6GxXVcYrsYF
7y7DDmrfwi9lKwxOLWf1SHy+no4NH1mwE4bejbZaG7HP7Xjx7I2DMFAOzbsY
YUc/dwqJdBUGGVV1mf3YmXV+wzNewlCfKXEjE7uxLB+9PI370xvbIIfPf6EE
WuDJIhxvps9rW3yfmM1sWDApweOXlDp7Yp9xtDlJLROGEc1X7EHY38WiQooq
hKG9XORlJjbKWTn7uU4Y1vWfWJ7C9nvwPcKoSxhK3F+NpeL7rb3raRoXuwhQ
WESE2P/en3o94p3rREAvse+TBPaWG7/Ts7lFIHZXzTMN7Hx3rUw9igiI92yd
88QO/V6U4yMuAkdfWr9rxFZfSi5u3yACV4ptj8bh+zl2vU9NqpsI7FLp0t2M
73s7jiieHHcRiDeMV3DGJsbznIs9RcDUn64bgJ3+6Mt0zRER0ApfrinHLnSw
l/8WIILr63cuqjh/eHZZL04tVgS26QlXKuD8Y2Gey6O+VgTGbFVVtJdlkXtb
Hvu4tCgYP9J5/De/URi9cACRosBKnSt9jT3BfqDhmpwoXFkZrZ7GDtYjL4CK
KFSJqkvq4nwpIS+TLUVbFIQf9000Yj87lcK6zVoUnK4dbR1kw/0pRq2lhIgC
Olg3oYXzs8kwnz/GnaLQMDpQQcP53xtH+uzrNDG4VTvddg3nn0vaXh7PXMVB
wJHgmsH57BdR49BqAQmIPbM0vFmdROLrWTNGOiQg8MfM1D8GOB9l2niLRUrC
0yfhb0txfm+pbVx6X08KPl6X4jXdjfNnb7GZsD9S8Jh3rNn6EI4n5/TwrvL1
ILFofD4qgEQvl+q6nQOkodS2Uk3mIokUnRLDPFRloFlw4FVzEolaqvnS332R
gYXK4SANXF/152p219jJQv29lZyechLpfy8wSrojC249pSEhdTgfr+OXZ6WQ
oGx7e79ZO4kOS5k15fmS8C79xNMnX/B6/m6qbXlBQrxi+iB9kkRSR3V0olUY
MBkd0HgF15PFLpOcry4x4Notfv1BXgba0xacZNzHgMLINzafxRio8v1cpj0w
IcAi5uWAIgP57nvIOpTOhA6b8O+vtBmI7Wvq8ZAMJoQ4vann1WGgVM/gTwJZ
TKg71pxmgY0O693TyWHCC9cso0Zsmn+1R1QBE7Q4//hV6+J6PaKuTrWCCadd
RTyL9Bhotez5Wf/XTCiY9Dh9AdfTSRqFo5ztTPhn3S3uemzFyiinGx1MiBQI
u7qKbffE8p/Gd0wYymPPDTFkoNzG1h7hbvy8Vzv3hBEDmX1q1388zITW6kX1
vdsYqHtveYHNdyZ0Ft6/loZ94ksC/dsoE3KPsi29x04b2DXOO8kEu2D3ajtc
349Nvkt3m2WCkSQXaWbCQKF+FZw/55hwE3kEXMCmzyb7X1pgwsNB6yaEbfDL
yar0NxNirnx21zdloI5TOlXGf5gw4XW2KBjba0WE8WGZCesyyqcrsX+FLcb6
rDIheCBAexY7lu3j77U1JkhNvTy5cTsD/R9OGtRW
     "]], 
    LineBox[{{1.2851955383999225`, 0.}, {
     1.288092161762407, -0.17863557018195803`}, {
     1.2910812940436025`, -0.4120543393227488}, {
     1.2940704263247982`, -0.7286977269419438}, {
     1.2970595586059936`, -1.2166534539613296`}, {
     1.300048690887189, -2.2802976307485348`}, {
     1.3030378231683848`, -2.29636495474773}, {
     1.3060269554495803`, -1.158685100240068}, {
     1.3090160877307757`, -0.6174210720439686}, {
     1.3120052200119714`, -0.24969025181322313`}, {1.3146271881655018`, 
     0.}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.01, -14.031669734693143`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0, 
       FormBox["1", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0, 
       FormBox["\"\"", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{1.01, 10}, {-14.031669734693143`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0, 
      FormBox["1", TraditionalForm]}, {-13.122363377404328`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.716898269296165`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.429216196844383`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.02375108873622, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.86960040890896, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.736069016284437`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.618285980628055`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.819778284410283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.414313176302118`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.126631103850338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.721165995742174, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.567015315914915, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.433483923290392, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.315700887634009, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.519857317008432*^9, 3.519857391656804*^9}, {
  3.52007858752439*^9, 3.520078593426557*^9}}]
}, Open  ]],

Cell["Find the point where the asymptotic formula is better ...", "Text",
 CellChangeTimes->{{3.5198638527388067`*^9, 3.519863858136507*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"model", " ", "//", " ", "Normal"}], ")"}], " ", "\[Equal]", 
     " ", 
     RowBox[{
      RowBox[{"Log", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "/", " ", 
       RowBox[{"Log", "[", "x", "]"}]}]}]}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", "3"}], " ", "}"}]}], "]"}], " ", "//", " ", 
  "Quiet"}]], "Input",
 CellChangeTimes->{{3.5198548429811296`*^9, 3.519854891525576*^9}, {
  3.520078619675535*^9, 3.5200786207476177`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "2.264451366539433`"}], "}"}]], "Output",
 CellChangeTimes->{3.519857414014103*^9, 3.520078624966267*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{"Abs", "[", 
      RowBox[{
       RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"lambnewt", "[", 
        RowBox[{
         RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
        "]"}]}], "]"}], "}"}], ",", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "E"}], ",", " ", "1"}], " ", "}"}]}], "]"}], 
  " ", "//", " ", "Quiet"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
        RowBox[{"lambnewt", "[", 
         RowBox[{
          RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
         "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", "x", "]"}], " ", "-", " ", 
        RowBox[{"lambnewt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Log", "[", "x", "]"}], " ", "-", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "+", " ", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{"Log", "[", "x", "]"}], "]"}], " ", "/", " ", 
            RowBox[{"Log", "[", "x", "]"}]}]}], ",", " ", "x"}], "]"}]}], 
       "]"}]}], " ", "}"}], ",", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", "1.01", ",", " ", "10"}], " ", "}"}], ",", " ", 
    RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
     RowBox[{"{", " ", 
      RowBox[{"Red", ",", " ", "Blue"}], " ", "}"}]}]}], "]"}], " ", "//", 
  " ", "Quiet"}]}], "Input",
 CellChangeTimes->{{3.519844218369587*^9, 3.519844257776334*^9}, {
   3.519844552758594*^9, 3.519844564163529*^9}, 3.519844702125374*^9, {
   3.51984473246806*^9, 3.519844750354944*^9}, 3.519844803688114*^9, {
   3.519845133533556*^9, 3.5198451387381907`*^9}, {3.519845231413417*^9, 
   3.519845233874815*^9}, {3.519846584895502*^9, 3.519846604815877*^9}, {
   3.5198466403304567`*^9, 3.51984667871502*^9}, {3.5198467549410458`*^9, 
   3.519846805720916*^9}, {3.519846845294915*^9, 3.519846880467651*^9}, {
   3.519846914987132*^9, 3.519847024614786*^9}, {3.519853373039092*^9, 
   3.519853395336882*^9}, {3.519853464753058*^9, 3.519853485361961*^9}, {
   3.519853516195615*^9, 3.519853564738922*^9}, {3.51985392520618*^9, 
   3.519853925298788*^9}, {3.519854431856256*^9, 3.5198544769324636`*^9}, {
   3.5198545088763313`*^9, 3.519854509774551*^9}, {3.519854577708359*^9, 
   3.519854646500042*^9}, {3.5198558795504093`*^9, 3.519855880797325*^9}, {
   3.519857313925688*^9, 3.519857390313856*^9}, {3.519863505797621*^9, 
   3.519863517245406*^9}, {3.520078663052806*^9, 3.520078667401381*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVVnk01e0TRyEJcRfLtXNtIUpJWbK0WUodCSFJSkqEpEKJsialFAqRJAr1
oryZuXZZutz7/V6VlCWKUFJvIf3u74/nPOdzzsx5Zj4z88xHzff4roNCAgIC
w/zz/3s0YrWcazIPbO1KLROFF6HP1aOnT8bxoPDbbzicJopvSu/13YjiQdPm
KqueZjF0aem3rD7Jg2033O5M3RXHrgHZfN5xHnzLUnaxdJHArfPOi34d5sGl
55n7uickkUVPOijnywN/n+AHH82X41OHeV13Fx6wPtcZ+KI0GvqvSYl04sEF
tz2OgrEyWHwuaPLWZh7o2YtS6jZRMPufD5Vv1vGgcUKoPeU1FalsedqcMQ+k
8l8GPC+l4eWxXRGMFTwY96j9HphAx1iVpg2eSjx4oG1RbuIrh/NmC7fP0nkw
L6Gov8xfHk+6mArcluLBF8szHkejFfBrULDviyU8UNhl8/1HOQMDEh80vhPk
Qf+6jiOZwko4WDCotTBLQpfh6DZagjJ61jESlWdIqBbuLE1iqiLZ6zJuOUHC
mppATripGjp/T3XaN0LCTdd6CfYtdXwp0fI45j0JrqI1UvPZmminIyCT10uC
wIavObkXdLDOxiwMu0l4WD81cLpMD029TpAfXpKQu6XnTlwqE8sjHq4TbCTh
o8STRtlQDdS7Opyl9oKEPxeuXjylqo6FpUp/rKtI2NZdpFC5Qg2VW1z3+T7m
+5cHWGQcU8WbA2ms2GIS6gobAk8XqaDMfKtGQT4JPZwiD4tCZUyhC11syCJB
iEpJCm5RQmHjDZ+GrpFw5+GTkHOiShjtEGa/OJUE3SVHJ095K+Kvg2WlmhdJ
UDgwIy7RysAT50YkN8WQkGRkTIhaM/BLlkrIwVMkDLg7zM00K6D/P26c+BC+
v54i9fMeBfzwKn1N0RESyMFlRZ7T8ugx9jKz+QAJNs8DPshcl0fO4sWzI54k
dOTmkKJW8uioYuEp6kqCQblp9YEpOWw2O1mnvYOEjGanwyH35PB50KfYw9b8
eDk2v3epyqFJotrHhPUknA91EFo9LIuPCjy2PFhNgq1YxlvioSzm93aIjzFJ
MD53JFx+kywqfBcOWqpCgl2Q3XkDuixmSFix9eT49XDwWBj9TMcEm4qMwKUk
5CVYj8bfpKOQ19jP5EUkOK9bskY6lI5nIzTcS+cJsPxg4Ja+g47HS68rTUwS
IPAlo2Vcgo6fmrtiJD4RMPuj50zyFA19B0QHDQYIuBp7T7Wkh4au9NNFQRwC
ggxDHcVu09Ckxl5krp2AK291H9BjaSjjwfC/1EjA/GQFJe4wDTtv/8vM+4eA
bVtqLQzMaFhilRqv/4iA0PCLK+00aJgw4PWxpoiA/B+VFiGSNLRj/i3sziTA
SU2rsWeUiuotrxZ7XyFgU9qLyC8EFQUC8vzGEgiwpQ1eHWmkYm2pteai0wRI
MVdbOt+j4s3tMnFpJwhwVn/S9fAGFU9+HRxiBBJQ5cjMhQQqrjKJKzDxJGDN
UFL7ZBAVl5Mui1guBNya/tM760vFyQjmAScnAgS7vMLy9lDxQW2zur8lAewl
Ltfu2FDxoldm7PRaAjbe+socX0dFv7+HBqNXEvBExMf12UoqqtqK3c1UJaDk
73LzZmUqLgy/FtSUJ+Ck1YFTc3Qq9l0s2V8uzedvRb9rrhQVn+ucYZkvJWB3
NKO6bAkVM186qLUJ8fmQLX+sLkTFsKOK53fPccHmfWrS7BwFd0lOfBj4zoWh
5Mcs458UlNx1OW92mAtyxSVLK8Yp+OW7t8Cld1zwKDAZmR6h4MvrK30oJBe+
Xd1bemmQgsWmApjbxYXInie3j/ZTMP41W0W/hQsbX+Ywct9Q0PdMfkwNcCHT
xKVIkUfBjUon3tvVcGFDqP7bQQ4FlcHGqrucC2/Eh05MsSk470PJ9XrABXY+
dePGLgq+ERpe+JzPBT3xDgNOOwVrCp96n8ziwipnPcuiNgre2BxfJ3SNC2Qu
M7G6hYKhn3YrpyVz4X2A1wbhZgo6J2lFM+K44PBX8HpqIwUN9f97d/8sF56a
dX3a3kDBZV0tFibhXLjaJZ29pZ6CY8dv3sZjXPCRalc9yaJgq3TAH0d/LlTP
dC30IgWLnph5vfbmwpGAhdYgPo7bvfTFwT1ccBu6pLaWj/f/90ZxegcXmvxN
agz42PLWw7PRW7kwpQ3bXPhYccPZvqXWXJiWMs0t5uPZPkfzTDM+/2EBqbr8
93qjlXI0VvH58N09Q/Bxlerk3GM9LmSNFNWV8uPLqK/ba67BhcROs4FSfvwn
/NJqWxlcOOxT4EHw89sh4sPYTeVCRW79KiY/f/1iozMDy7hwPMf1dDafn6X2
gm+PCXNB+3yWvSmfv+bUu1kXf3Ig85qbTF8HBUlujV/6FAe6pDU/AZ//UcYr
w5xPHFDXvZvP4tdnSclcfcUbDpS8DHBUJCgo90069V8OBwzXeiwP49dXd53O
npYODjj1jHmOvqagfbPLeF8dB54E+B1Sfk9BD4nAf0arORD3+hpjYICCgS7n
Y6bLOUA05dm9GKZgymAZZUkBB/LKfy/DMQp2LoiYr77Ege9De4YG/6Ng/yYl
EctzHPh7uDDNj9+/kymr2VsjORDbPLpufoHfvwwfP+9ADkzfPSB4VISKzqbP
UhJ3cEAvkRNpy58X7vHAd+9lOdAfaRuSZEbF4arz98eWcyCywnfG1pKKP/5k
hvwQ48Be89A4SVsq0lMahcXne+ApM5ogHKnoVqxkuPZDD3TWdL3V2s+fvw+v
olOKe+Bxa4tDYQoVh3aaqJqZ9cAa5d+qfRNUHOwXeOu/io8fwt91M1T8ENh5
PWNFD/TvMDbKn+X7x/uLf1XqgYy5GfVrojQkn938WSTUAx3OjS9m1WjYqvan
g9rRDY9yHus2u9Gw9FtT5FfvbrCtmHXndvL/v+irJspu3SA6tXwunKBhsfi+
KYed3TB/SLRX9R0N7zF/+d237YZzMZ0qV7/Q8I67nrO3TjfoiJR8GxCn4xXW
Za2Ob2zYr+oubuRIx7D0PZz7cWwI95YK38+hI3mvNtk6ig3Dtout+/rouO65
it3bcDYUZPuZ7h+h45/B0aeSh9gwmpZxN/E3HS+anLoRvo0NSd5tMS6qsniT
d9PdVpINcQOfOJzjsnh6w1N4sfIVTEStbLhOl0NLv7NG31RfwQhhVbhXTQ4X
pdrla8q8gsXbbm/R15fDlH5ubPJMF/xeUfJnwloO75z/scn9WRfYklYuM8fk
sL5lbceMTRfcHxPQl22VQ3GXZ70rXDuhPcqrgREvjyYty5Q9t3aCtPeWl7FX
5NF7vc+BlPWdMOZV3jeTLY+VqqKTX5Q7gen6+chsJX8fT7gsejTaAblpi41S
B+Sx5OJXA6PIDugx3nFrcKMC2j/TvmCS0w5+WtF1Y0sYGKZ/ptXvcjskjyyE
99EYeCe3S+L6uXa4Xn1Ir0+dgdPx4Td/+LWDmqutiIgFA7N2NZRVGbTz9xdV
SvQEA8fGvXvXwUtoHX4b3tfPwETlGwYWg23gtEegerRREc/kyQVt4rTB56eR
79QJRTymnv3IqbENKt48ig37qIg7tfJWehe1QU2Mma+niBLKG5YYxxxpA2Mx
tYjN25TwgUXdGtZ0KxhZN21r4yhhm+eIxaZFrcCK2HtSbkEZa/sPRzvNtIBH
9AWVTmkVLPMZr9v9sQUq9Q3qCpkqmO731cq/pQUinHgK4KSC7kdnrS8lt0BQ
2rnX5bkq+PmM5OY2Sgv0sdw1Uvl6UCx77XYnzWbQquyP7Bnk68NiZnA2rRnu
szOPuE2pYmEV9epnkWa4nFP07/ycKm7smSbiPzfBZftjegU0NTwp9tir7lET
rIz+M3vaXg2HIrSPrTRrAgvuLFW8Vg3L4+lpUXpNEPxdTpHbpobR14Qr2hlN
IJUz69DWq4YKj4dmDi00wvrm46T5f3w9OpJ7Nq+hEdLvzK44ulYdX7jIpUhv
b4RjpgOr14M6JvmKPtpn1Qg0s/Gnwd3q6Bb881WZUSPQw0z3Tgyp40wyl2JP
aQRviZ036sX4+rPhSnZsbwMkKTQFa7lr4C92zAt2WwOU7kYZ3jENbOoPeq9c
2wCCbeTp4VgN9Jl11Ki93QD+I046mo80MNNY7OF33wZYnV1+/4GYJvpZ/eqw
dmmAd24Pf1WoaeIqp9HJtE0NEKYnxlq/XhO7Djet0tdpgI7oF7kfj2ri4rzz
z/0m6gE7qw7uf62JPWXBfZX99RDHu0bR/6mJubX7FgTY9SBmk+T9lMLE9TwL
m9uV9ZCbfMhQdycTQyRn24iIehAQHzoqwWNioX8Yqh6ph3yj4Jwnv5jYWzdZ
FehZD27FcU5+DC20PD5UIGhdD6/LpAMM/bQwpMUry3F1PTDMClxCkrSwUKX3
SiazHnTTh9xkKrVwKbsjymAp397srEG/sDZa6GwJOzXPAs2esrBtq7Qx+Bzr
SMMkCy5r6/7O8NFG0qhqjzuHBaFRa6piG7RRLNFoe2ETCzyj0+ev/NJG84ES
u6lqFmSWJ0Z5GOng3fRc4/gcFhimzpn6P9BB4rO8DvsyC8bdzjqeGNfBJTYZ
yozzLOjQ0kkgjHVxQ5YkzT+UBWXOR6yMonQxaDpBvOIgCz6mFK7a2qWL+faL
hOb3sGDs0zcjmpYecu9G/dpszwKWOjONE6+HonP/Taabs6D8325B1Sk9TNsV
ujPchAXzTFi/z2QF/g894o/h
     "]], LineBox[CompressedData["
1:eJw12Hk4Vd/XAHAyJAmpkM7FveYhSUkkS6GUlKIkU+aITJXQlyIpZUxClBKp
zPN8ljGzyDxfSiWplIpKv/P+8f51n8+zz7n73LPWXmvvS7d1P+awgoWF5RIr
C8v/fepdAVY7bST/SJEa1tsV8NV1Hg3GTiTvawbdTv8qj2zj15Xd5JGM7pL9
+i1cHneoscqUEkguza2PsNomj86R/jQ2PiSNO9/W20/IYdK7hXWHWZG83fXr
yOgdOeRU7mVtaiXJkELuwRfccug60TxnmUuSf87UYlabLHZHVQ9/iyXJEZ7l
9Y4xsvjg69MiMSuSdAzbke4oI4vsj5MeF+0lyeemRfTVP2TQ5Vh0pIEMSe77
ZF8t/FIGdxT4Oft8qSZZM2tP3nOXwSQ79xNreqtJjt3NWln7ZHDFenud1LJq
Un/KYtZbTAY7zhvSOoOqydfqG0tjeqXRaYd4l/SGalJyusRg71FptGL3LnT9
WUXeUrmgeEZZGk26G+7lD1aRIaoTZ7L5pVH73FkrrQdVZOp16waTHikUTi/+
eFymihR55yXs4iiFvOdXdd5fVUUe95kWnj4khex7LfKZHyvJ3YHndgpul8Kv
o6y+brmV5GENu83u7FLYssGQM0S9kpzm2+yvmCmJOPXwQ8umStLId0ei6z1J
LM6bb+NfriBzkhJ6ZIIl8bFh/J2k2gpy3xcxvd/mkugfMiVeaFBBvtslsSVe
QBIVF3x3TVmWk/FTirsvR0kgo65NVE67nOyXWi0SeVUChaPFVrgzysmScPXx
t14SyL65oWlpuozcdbWv8MQJCRy15z8h4FFGbo6areMTl8CInnSPPUGlpLn4
ClavKgZee7xoHGpfSi7+oWV/zWOgn8chtfZ9pWRo5QrjpHQGOvHM/z25upTk
tF/SOhfFQG3d3bc8YkvIu0opY+8dGPi14HXaw/RiUjW9oOaiEAPzBXerjIcV
k2f8Nu3v4WWgl296tah7MRl+wCHdgJOB37V8+5PViklO5+SvIQt0/NUsuiqp
qYh88uj1f5t66cgy4ewaP1NI2gm2cZ+Np2PN3te/+jsKyWu+ox+Uo+kYlKYZ
IlRQSPLl2/Bwh9GR/Szfgzj/QrI4l7vruz8duX4UdsbyFJJvn24nU0/TkZ+H
ZVu0UgHJYSFlJbuZjl3nnMlXAgWk2nEy9p80HWO6ug34f+aTm+osCt+K03H9
vTT7SDKfrGNntI+up6MwwyAu3CifTPEtDfD5K47iO+MWb3rlkQlPa05KdYmj
ddPJKxxuOeTxhf5luCqORlWjokk7csgW57VjeZfFUTvftkqFJYe0GbrJt/kS
dX+S65L1nWyya/3zRS13cZx0v3K+vCyL3Mxd/6vdUhwdhTLOuHNmkilLZreC
NMXR1fGn0eDDDJI7UOm+8T8xtDC//NndOYO0eedTsOWXGBoasUZwbssgJ7XI
JeGvYqiksbp1W+NTcs3awWiBKTH8skZML2I2nVzz4IDVg5di6F20T11HPY2M
KrrT8TdGDP3Y4+hZ3Y/IA6odOoSKGIZt789MvfeInJUvsZlREMP79sI7Ey0e
kW+SJnnrpcSwsj7xcOh0Chmf1P08YaMYLq+Cn7XfH5JHWxO4WlnFcOXqYy8U
dJPI3Xd+/KfcI4oiay6t+zsZS+5jLow5XRHFXW5LcjOusWRaunSDr78oWrRf
1u7/cYc09xM6H3tRFB+GX3XL475DPhDc9HbKVRQleW+9dFCJJv3vd2z+YCaK
p0Q1fyax3SIvni3uDVAVxWVd/sjAoEtk/f7f/K7zNFQWCPbraL5IJmUfq6uY
o6Ht+IIDbe0F0sVzw+W1H2nY4DusWfHQk5xRejfQMUVDYUvD3k++DuQb1geb
o3ppqAhCHeG6+lCTtZ5NqpyGzevjVqTeCQAiWJf9VCgN21KjV8tLX4HtNuff
nbxGw227B+4GrbgKxcvfKi2u0pDVw+H5toogyA9KoHv70zC5N/D1XcXrcD92
N9eQOw37UgqlTvGFwzW+5R1hZjR8sonPwdPlLvAf8EvZp0xDofmyV6PMu/An
7G3C4800DGuy1zxoFgc3Tn71ZFOgoeeF8nUS+vfg2e6pR6+laKjV6VDbI5UA
1UZR2lmbaDgQVCm2k5kEq0+TT4GLhgZmTreenEwGmfvadtMcNKzeIvCT/1Uy
sHNYxEaz0TBtxKnjQ/UDqCtgwMIyger3b1YbHk6Bwzwq/F8XCORc2O72T+Ex
qCn63y16Q6D2ae7UIqfHwH43ey5lkkDf1vGBs6mP4cW4s23UBIGzj8J0B0RS
YaHH5pr/CIGvD09sylv1BHp/q9ODeghMybjVYvsuDdyOtJsdaqDms5iUaXz8
DJpSdMiCZwSyx3MM2I8+g4z3Aj7iGQS+ei17g034OawbnrkTlU6go4H7e+3w
52DV5/DJL5XAGI0/GRU+L4Bn6+pin2RqfmFB+bxDWdC1xceFN4bAEhP1oSOh
WRDvyVaSE0VgUJRF2FxNFvAP5yuZRBIozJU6o6CWDcLdP6LTbxOo93PLi3R6
DmS+eNPiEUpg54yk4GH/XKj92LE1/j8CC2/sOJccnwvZWaYZLpcJTJTWb5wt
ygVVzm5BbX/q+WzPXrz1JRcMkx93frtE4J/BvL4mhzzoj5CwCjhPoGyz1j0d
o3zgsdrvSnMlkNfJ6HOMWz5cuKDLKXqWwG/stvsnw/JB1rndhe5CYLV2yM8r
DdS4EvOG8hkCTUpbTas1CqD3SFmnuz2BV5+eFFaXKoSFCzqGHpYEJuUav4zQ
LoSll44Rzy0ILC47fPGNeSH8lOQXeWdOvZ9W3Z7ImELwurdvldMpAk2/KEdN
/6Oud1EVCDIlcLP6Kq7YoSIYt9ypLHGMQP297CUfFopg2mNR/epRAm0N/jnA
2mL4obrowTQiMN5yoW5mfzHo23RYZxwhkC2IGbinqBhenpJaa2RI4GBL2c+5
yBIwFow+zHGAwO+vC9N1X5RAcrW8XYg+9ftHc44nNpbAf1fyw1ZS1v2cVqD3
twR6Wk15BPYTmLMuxj3JpRReJ2/KAT0CW4hw0fmQUrC7p6r8SpfAN1I32vc/
KoX1dUKltpRFdgYofOsvhZa3R/vCdQgMsXB5d0CvDEYrv0n82UPln4ND3MPT
ZdC8LjY/iXL5udN6C/5lMBZzURMof7lyIjUlvwzuJrtqhmkTaJ621/qnWDnk
ZdxsVAMCL2bv5jXcVQ4rzO5xvdciMKpkZ9XjE+VgG/NLI5FyY7PSpsPh5WB5
y/ksO+WtcyL9T5bKQe+3a99nTQIrB0siDwpXQEv4BZHnlPc1mOh/Ua0AG9eV
iY6ULZIiynZ5VoCDhrXe9C4Cp0MVvJgRFXAv7JfbM8qe3k3yoZkVsG6spvUc
5esHVyR1v6uA7B/PxVkor93x0OQSRyXUrCxa36ZB5QNdc42oRCU0PKtTS6Sc
9+tCgLNVJZiwTbLvpqz5RkCN73IlTBnPv1hLubEz53NhQiWMWXBdfq9O4Ej6
h9MsvZVQWWsfnUTZMeb6xvT5SgC3mte+lL/+J0E10CrgszVSN6N82RnDvm6u
gtKzqahBmfO4pc49gyrQ/H74jCjlaO2l35rOVTDAOqPETplQvFc4eb2KWr+8
62Z3EpgutN3txpMqKMwzXddHeStbl5RSbRXk7nFQqqVcOec29nq8CuzkBmxz
Ke8b4r7n+7cKZNRMclIodzU8PSK2qRp4KgIF7lC2yNPlathZDcrBbLdCKU8n
MdHlRDWo9ocJBVD2vBHgy3++GszP1xVfpPzHe5NKcXQ1XLlp6eRJ+bp16Yx5
TjU4FqyWPUeZ3+B4Kmt7NRz8FfTTlfL9HfPmT2eqIbPer8eNsjQjcr0hFwl3
pzOrPCjnrlFsn5ci4VpYb94FyrsWm0LidUjoVyvIuUy58Y2DlpYNCYJtnMUh
lI1erfg5FUDCykt36qIoD1c8zLmZRMJMhWh/MmXHp5pntpSTcNLO43Mm5S8x
g+K9/STEBh1bXU3ZP+DioN8CCUFe0XJdlNmKVh2IWoVg3/Zbf5pyk/xJKTth
hD4n2zN/KUekpLPukEH4dzz+uiAVD+HbOuXDugghgc3lhymPscbEZRsjXGVe
6HCjnOoz4XXVFuH6qPFIBGUlu/8UZK4gtL4Sneyj/G2gdeVSBIKpekf/X8ql
h0XetCUjLG/cXidN5ZeORkmSVwVC9EXyYgBlrlwOX70WhBL9Us0syh1SJseF
BxFq1Xm/j1I+ufbrmuofCMkfIlT0qPw+914+cJVKDVx/H9wlT62XjnVz18eh
BkqFR17ZU1aCvIgiwxpwPX3UL4Xy3F21BzbO1Pi3I03Ebup+Hd2qspQa6DDd
qCFHrc+OcysbIrNr4PT7Vm8PykqJLW0OldT1ZruOllGe+2I0snagBqytNb8f
oda/2wPL3858tSCkHNoQRdWHtmZxNm1aLRRP9q18S1lxYYpbUKEWtPaOv9Og
6smsgYtI7b5aYF5QCfhI2XXxorpIQC1cNh76bE3VJ1eTKJ+W2Vpw5jQzuLuP
+r5A48CUpVqYPjm6no2qf4ovBEMvctUB24KQpxflWdbkOIZkHUwdoY0fp+rl
2ZxnRX7mdUA8ywzccpBAF+66b/ItdaD7UOTA5sNUvVS9/ptloA7yfpz9VkBZ
3uYAW//bOqAnlUlrUvV6pqRTIJi1Hni5OaWPUvXcxWFk6/DOejh2ttUnnKr/
zrjgfutpPbyRFvt8mOoPLKM3L98srgcGfc/e35TjF2k3QxvqIetU1clnJ6n8
Utn3OHiqHnrK9rRzU/1FNi2ux1+sAcxMNOsmqX70/qaauuu9Bph8zmo1bUvl
s7HvCsPQRnDY8/z8Tg8Cl93X8BnENcKyyE8hwpPAuNuPNh1IawQn4pQbqxe1
Xhqat+vVUeM+CYpd3gRK7RRx2v2vEeq2tHy55kP1A6KidbPPS+DY0qSyO5Dq
V9N/YnmdmkCjL3LxE9XvRX0ksfFCE1yLtFxkjSZwaOWhjwHXmkDomF6UELVf
MJa7v+fzoyaoHDAK2h9L9SNX9bnOkSZocBDxKI+n1vf8hf3Rx5rB2tNUc/YR
9f7+zi2u02qB+KBrjIAiqn5FCEq1HWqBFbk34+qLqfnFtIyumbeAQM2++zzU
QXtYOzz9+6UWyHjkdOJRORXvYAXj3oIWWDv0O3KUJDB71ZnMOLlWiLn9cjGl
hUDvDUyrjRva4MlBUDRmUvE0/6+oh9EGfE4M7Xxq/yX+eCNPlHIbPNi/IUeA
2p91KB0r4zzUBv86VB70T1Px1q9b9z2oDaT1i2s8Zwmc8Etr6vjSBgsGwxLv
fhJ4eMJZ5VpbO9SUpuf08dFQ/sU8x+fgTpBPjPbu0KFh2aS1TXdMJ6zRXjny
TI+G+iLtlUWPOmGdfcGb6/tp6HjzqfdlshO2dbT06xnQ8JGTBXPV70749mzp
UP8xGvII2FkJqL+CW/kXSvRtaRjU0aa+OfcViEHCJ6cgGrrvT/li+6ALooP9
2XNe0pBda+32E2ldUHv6NNnRTMP47UE+BzK7wOIA79/PrTSspdsvbynvAiG5
shVqr2i4/o8Mz9/eLmhJ3abXP0DD8twcmXtruuH3oeSNNjM05BQhrVovd8Oq
1JDuZF5RTJodbdtm/hoMbJcXR81F8bhgmL8+Xy/8ij4rtmmlGPI4mdRbvu8D
YmKk1mJSDImPW3N0PvfB4PduzcG3Yqjozpco96MPVskfXTb9IIaHfFrcF9j6
wWunvrXFFzEMD9XeFC7WD1xpV9qvLIshb4aiV+WJfoiMO8aevEYc135gF9/U
0A8b395YraUgjoJni/wHHg1ASfSuIUsXcax1+n3m2LMBMOfQzE1wFcdz9ntO
tOUOwO0Yx23958Sx0bJdGckBqI67qm/qLY4+Rm/fPh0dgD6TKOZZ6rw5oLrB
yGfjIGiSzr7vI8QxkeWCpGD0IGzVUbPfXSSOYnHb242vDFH1V0OibyUdxw7V
Nz8PHYKl0rqQq9x0TGIzaWSNHILbZ6aFtqyhzr+e3mRO8hCI7HvcFyVAR4FD
+XmrK4bg4PTqte406vy9QjmubmEItujVySZso+OMm4L1trPDcJ9jy2i5DR0z
JCvMw7yGob/ngHW+PR0dhw+eZPoOw23r/Zczneg4pe9yNPLGMETIXInLcKPj
iMQznY9pwwCEUAX60rFzUFo2dWIY6vNYrM/H0LFQj/FV4MQIJI+e3sjVSEdt
U9fgjxYjYD2/9yO9mY6tZ4o31NuNgKqdVaBWGx0nbx3UuOA5AutbE/4FdtNx
bbdXcP/tEfAS+jYsOU7Hc1Z1G5LqRoCTR5Fr6RcdZX3sNaS2jkJxcu/gdyUG
td/PbvurNgr/iIBdHioMhMRfVn1ao/D3RjvrZ1UGnqi6HRx6aBTcfN17fmgy
MIStqO2D0yicUevdrWzAwMlIDuvsB6NwzWao4sgZBiZlpAer8YyBz85P273S
GFivYib8ZN0YFK5+/6XyGQM/Vq7O4t80BnU1ymU82QzU6PLo+yA3BvYeC4kV
xQwcXNSQS9o/BgNRqUzTJgYKGnR2sASPgdZU1nzsLAOjPv3c2LI4Bh6KIpIB
6hJY6vM8ewfrOOgmanEHa0ngOKulTirXOEy8uVEUoSOBSoK1rpeFxiGY3Pqo
3FAC27Vuk0qq47DEF1rnaCuB3FHiDnc8xuHVkVNj4uESGKxyINfi3Tj4Xfm4
q+C9BF4SKh46ODcOK6+/fnx0TgJd/zA41BfGwZNF1fbXNwlUsFvODGOdALP8
hIPW/yRww+YBVie+CVD9Mep3V1ASP+CtF2IKE6BA3k8q3yeJUe/nl6NsJ0Bu
aT65KlsSuc3l1nM5TkAF2bH8oEgSQ9qt5QKdJ0DxUlDl7UpJ9MtvM3bzmIDJ
wtN/w1sk0f5yesaBgAkocZyNVnwniWr8p46tSJyAfdteGHBISOGYWk2adxc1
flVfC9Ol0DY0ae9gzwQVv5QBlxwpfNvnM641MAGXrrZOyJZK4ewFpY3c4xNg
eYQ3bqJZCpcK7t9OmZ2AZy0e8fpzUiikfNG7fSUT+DyGO4x3SWNi4FH+bauZ
YOZSamqnJ42inYpZ8bxMcBgif90+Io3S56am7TYw4ZNV6mNle2ncnml0aonB
hD1vrGybI6TRSFZhj4wWE7rNJhQ6P0hjjw/n2O09TFB79a6neUEaTV8y/eZ1
maDpleDwgVUGrRzjC6sMmJDK860nUUQGXZ9wyJqYMYHX5uJPpqEMfvk2UV9m
QV0/P10kai6D3jqVNmKnmWAj88P/xhkZ9Jv0uj/jyAT6XNniu2AZvCE+wXv1
PBMGNr5P/F0pgzweFS+mfZjw2XxWtqFVBiPJOP1D/kzYpsY51Tgkg3FWhkFC
QUzQT/md5rsog0+SyheyIpmQP64a+EpdFmuE744MPWdCZ5Ok084mWYx58sQv
LJsJX49v3644Kov2yoXCGvlMOEg/uC56Xha59F+bJJRR83+C0hpROTzss7bd
tIkJbwyrv5v/J4fibPSzK9uYVP7qffaOk8OvEcqrSjqZMBZ77D+lXDmMTT+i
J9jPhMZXxx5mvZXDod7wqp63TNj5NHfuk5k8Ztokm1/7wIS/V3cztvrK43+f
Mhe3faLiFXKyxzNBHsU52lTvfGdCaJNR4JZReZyPGn699xcTcgzvvuxmUcA6
4qPn/G8mWB0LyUEpBbw2szba+C8T/v//9v8BP/2WYA==
     "]], LineBox[CompressedData["
1:eJwVkHs4lIkex0OtapJbyby5zbwzZlxjjzoo/VrmxCyL7GZZCiXSdvC0x0wu
0x6lE47axDLZyqC01iUbshutX22ilkhTSy5p3plhM3pDuRQ5zh/f5/N8n8/z
/efL2pcQdEB72bJlMUv5PyeJ8PDcOwqY57a4R7jY4VWZF93eqYADyXkGO+/a
4nCoU4jbIwUYbPZ6L71si6bG5rcr5Apwai4LGjppi5knp89l9ysg8XiSySpf
Wzx4qGKL318KqNwbf0U6ZIMysqC4WaOAZRfVSsdWG+wdOL7S4bUChG8X56Oq
bFAYEP5Mb0YBUZGS0vQ0G7R10T/WtZwCyVGtmLdsG9w3/l4NKymgHji9bdaz
waLy0YBaBgWH2BMek7N8ZDDvsHKNKBBYlj7O7+ajZuFfrUFWFJifusMNyOAj
pzHK8XeSgrLS7ws2HOFjeKJ/4d94FDQMMo2dI/nYoeDFrXOkoHMv393Pg4/V
bc/WPN1KgVbSP9SD73io/ndb0k6gwPCPTV6jL3lo4V4/dMOTgoHpqXGnfh6e
qTpdWyikQORH305q5mF87o4vQr+koNcu8PnFdB46hZX/MHCEAoZXjwG5noc3
AttWFIooyLNftdxbl4fbdo4m7EqhIPHvh7SK5qxR6GwruJdOQaodw7V9yBr3
6dZorp2lIMs0muZWWmNeXYPHiRoKklOtV6z2tUai4ulVj+sUTF37Jr8ErFF2
acZwtoGCwQuEQaiLNVZluakP36Ig18J+LdfCGu9G3DoT3EFBe5A9aTnFxWlG
63OblxQ0RRh/vrGUi2laaqFynAKNDksWJ+Wi9sxH9ZcmKKif7NLqOsNFfYVP
pvEcBTeNzYMGU7nI/6XDaUFXCb9Ikibmg7kYGi1P7+YqgZi6NzttwMXmZooU
Rylh8sM43szlYMXzFyGT0Uo4dI4vuJvNwQLt4dP/PKgEi+n4xr4THEzwGZjZ
n6CEbZsTO3giDrLl8j8CJUoYSU9P9AvjYNZY6ze255WQ/MkVbSmPg8HEj78P
diuBlsTOhbWR6OVRPhsiX/JX/1SX3CbRKfKyg/xPJXwuaRmjm0hcXS4rfDCk
hN7oqhdltSTecj7/daNGCdOD/kRcEYkcYbZx7koVdJ+P/i04gcQJ8eH9gh0q
aJ1bc2y7BYlqsb5VjZcKonpdFpOZJA6Irw9s8FZBaorEsmkdie3i2d1jn6lA
4Wqzyp9Bokyc4XMuTAV9nV1mDbNsDBRfcBgWqSDhv861Ejkba0QdM6nVKiDT
rBoqv2Pj4ST7nDpCDV95FlimGrGx9medT2Mt1DCzEB9zbC0b34w/093IVoNb
hrjk5Go2psVknThuo4a6vuAnxdpszPlSnbLLVQ0haeoo7SkWVrrJ4ujdakhu
q8ZkOQtfLhh72+WqYb2ZlKVTxMLY/7zXKtMdAYevwvd4OrLQ6PW17A2METhl
Ri73sWNhc2i0cc7aEagID1YG8Je8Qycnaf0IuBKGghj2kn98ydubXNp73OdV
m7DQgOV5emz7CESbWjyULVrhr02Zpi6iEYjMsw1iPLZCxsT6Ta3KEbD+TBi0
51srdEyAilj5KHg8bt5cecsSCzfJ1lS1/AW9wg1nn1db4E9CPx75w0soHjnl
9vFDc9wm1v2OyBqDSw8E1Lm3Znj0g16NIFYDAuy77AFm+K7N94bBJ+MQpemv
Y1zYiO8vSxl7HF5BqHQqomWOwPJ+J9OBVTQ8PXjl1cfxBAq5+Vfr9Wgo6dmb
2P81gZr4mS2nDWmQzz9qzIgj0Fn7t93bmTR4PdEv6IsmsJnvmyfj0/DGjn8i
J4zAnqQDaw940/DqvmGTiZDARf2i5a8yaGjXkZz9lUNgaehC3r1MGrQ1kePJ
bAIFZZFkcc5ST9HX3mpFYPYWnmdgPg0tUt6ulo0Emuyp//Z6GQ33Vz9J6TYi
0P6nh+9Ed2jQq3hUsk6LwK4p5+yAezRsPnr30+EPTDzi8T2T/4CGm7tNrlTN
M7GxO8y17xENXHufw96zTPScGU3a+oIGDkvP/STNRNUOvxXrVDS8nrDYHzzO
xMzsa/maURqAn+LOH2Nip7mo7uLrpX8MMic71UxMjO3zFL2hIcgluadEyUSj
n7f1+M/SIL7oFCFSMLHhXXEUb56Gj/z9pb7DTAwR6EwsLtJQKT0iYQ0x8X+o
wyrg
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->
   NCache[{(-1)/
     E, -13.602289043267767`}, {-0.36787944117144233`, -13.602289043267767`}],
  
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-11.512925464970229`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-11.512925464970229`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {-13.122363377404328`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.716898269296165`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.429216196844383`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.206072645530174`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-12.02375108873622, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.86960040890896, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.736069016284437`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.618285980628055`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.819778284410283`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.414313176302118`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.126631103850338`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.903487552536127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.721165995742174, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.567015315914915, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.433483923290392, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.315700887634009, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->
   NCache[{{(-1)/E, 
      1}, {-13.602289043267767`, -2.3777031799623116`}}, \
{{-0.36787944117144233`, 1}, {-13.602289043267767`, -2.3777031799623116`}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-11.512925464970229`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {-13.122363377404328`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.716898269296165`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.429216196844383`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.206072645530174`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-12.02375108873622, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.86960040890896, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.736069016284437`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.618285980628055`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.819778284410283`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.414313176302118`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.126631103850338`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.903487552536127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.721165995742174, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.567015315914915, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.433483923290392, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.315700887634009, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.519863512471314*^9, 3.519863519110214*^9}, 
   3.520078668447301*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwVynk01fkfx/Ebfa/9uvvWpfiO0Q8lKmXE50OLEpG1hTLS8kuWJFtiVC5l
TSprZ0K2mkpJoea+C2NLGKnJVDMtSlFd7nWz+93fH6/zOo9zngYBoe57VSgU
ylHl/v+Njl2yscVSdLoyJq3kpgBqoz7y7VdIUdzBteudSwVQVT5nm4akKIQ2
1a2ZK4BstWUpht5SlFpf59aaIICAliyR60kpiq/2eWTrJgAVR/f1Fa+kSO+8
qPKlnA8OG/ou7MgeQZrrnzWFbuaDVeSXhitFI4huJ+wKsOeDSRnxRlqhdP9O
2t5VfGBSrUyTJSNIN6sw7QLJh7fNFyS3h0fQrqjGLZXTPDixftugtuMoQtu7
ZcHVPHi47m9rydQoMlxpwsj4gQefxSMZM2oypGDeGQ5dwAN2m9p7G7YM/VaS
P7SLyYN9Lisy7pnJkF9f8597KDzQ9k5/W+2n7Nk9/cQrLmzbj1JLJTI0qj6/
LyuXC19Pl7w8fVKOsu5e86DyucB/XGfRmilHT9pbn3jRuWBP6xZTC+WoO/6q
wQ11LuRkTy87WSNHcXejJ+MnOGBd4JUUNyBH10d2rj77NwdOXVNbGuo4hjrD
YqtDLnNA2BWU4KmlQOcLJo9nLueA65szCxu5CvTrvePWe5coe1mlxMJQgciR
wUJ7Yw585Q3O0awVaBdSNaMt4ECjf+AvbfsUaPZag9GYCgcOjfom2j1SIM8l
rvXSXjY84Gw5uTjmO3pO70r0imWDv++y5OkP44h1ZsenF89YsGOu8neL0XFU
Yuu59oc/WeBRTCr2zYwjzijtVXgnCzYMcvf2sCbQinhFraiJBaYRMw5leAIt
cq3YXlzNAkVq+6xr/gQaiFtmFpbOgrSGwMgSl0l0W8RUfHVkwT1h3l6nmim0
pzDCJ6CFCR+76J3hMIVsndStcSMTuEkpKwoeT6HmT6jCQMKEI9+iVIffT6HN
EQaib7VMWNrkfTmdM40izA/03i5jQmkw+1V35DRayK4M+lfMhLOQ6eljPYMM
Tnj/XL6JCQf3idcG/j6L8mTlHrS/GFA6RFXcb5tFL9fdogw+ZcA/YckVnL5Z
pKOpMdzYwwDPYyk6LUOzKKA29ciJDgbYZZ15/h/BHDIPdaMIJQxg1GcEfTsy
h0osm6U3yxjwUtyx6QGbggVOV4aDoxhwqr/38MZ2Cj4wWGr5mz4DElvLHjZ5
qGCbw+cSv0fQgdrVMc16porHi1oCqzt1QeW5Zt4hOwJvOxrF2PiRBleNtFea
NlNxi0azHV+bBh1HjS1lFup4RCVM8pOPDkS8zhFmXNTA52qWRKbc04b29CaV
zAVaOPmUr8+EnjZcsKM55yVpY0H3RPa7Ai2gWwnPa9BoONjbD3giLWBtiG5z
ztTFqe87Ai2qNOEP0+gbzsfomEMx+yzfqAn9PpxJIzsGptPll3iDGlB5Co2p
yhk4Ni7FpydHA7qeOknZdUycb1moH22vAdYWc/6ZsSw858EqeTamDrsy8Ama
ORvzY5o6bGrUoZ+2pwRG2Xi96BgpP6wOjCzm0ahKDmaznBnmq9UhXS/o/kVf
Lt6YdklfS1Uddj8pVR3S5+H9yfUa8sdq8CUhaMrhKQ/3DFiHi4vUoMeTJevM
5eN10yFnjIPVYHJloP+j7QL8bNVUXgxWg9c8h/gGHSHOLfq4TihQA4HevMKP
3ULc+K3xW62UCrqky0F+8gJ8MEdEmd9JhU0rHa7fshZhM2NF48OrVOg/yB9N
mBJhKD40Hn2aCj9ePvZh6009nG6VxtUNokLbpKTfO0Ifr2sanri+mQrGXmcT
/E0XYm1GEbfVnArtDVr5va8X4riB42+ucKjwpnh5/323RZj52MMpZ5IAm8Fy
lH11EeZv8SsIe0sAlmgbzaMZYJxQFBPcRsB+0Ybm0hADrNNuKR6rJmB4ovlB
e6sBlvQ5Fk4WEiD6r5XVGRNDfCSXt9skmYCqbV+oj5MMcfimuy9+PULAjifR
2Q7/GOKHo2b0lT8TcKdPXuSOSVxvmyKddSEgxO/uvIF8ElPCFtc+XEOAyr8X
g2MKSSy8NWAeqfTFgOgXOpdIPD/ZqNZEadhvXW11mcR5GgaD52wIYIY3+KeU
k/i6uObNvp8IqBVLJKY1JO5l1S3WXU3A7I2W4+GdJObZ/DFyYDkB2ZYVn6hd
JDbp/VGhr7TxnRSvgm4S8yXXqH2WBLjVb1rS1EtiurGes73SxU0dLzn9JL4U
gw8ILQjY8KLLpu4DiT/pcd89WUpA/86b5S6DJOZYRlUkKR36Oov19hOJ29y7
Y9Yonftu65DmFxLHi3fjqiUEfP7Sm+8rI/HoLyW+YjMC4sNqqCNyEo/fj0y0
VZolywlPUpA45I7pLbkpAWvGvZyuT5B4a5P5qj1Kd8da1TpMkfitW0yqUOnA
Ga7h82kSF4jzhnpMCBhP+J4eNEviquJ0n9NKp6v8NTE3R+K179y7sNL/A+yU
bzo=
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwBYQSe+yFib1JlAgAAAEUAAAACAAAAFs2/BXHz+T/EOy0L8WfsP8Gjl7r5
8/k/HyJRFutZ7D+Mu2R2o036P9XliGr30uM/hl7erdhY+j9NDiJxy8/iP38B
WOUNZPo/X5BshFTP4T9yR0tUeHr6PxGt995arN8/V9MxMk2n+j+mYreUjwHY
PyLr/u32APs/svCrzfTqwj+4GpllSrT7P6XEtA15LdG/588QzXLA+z+IOQoo
OOPSvxaFiDSbzPs/thdnKUWW1L9z73cD7OT7PzSti4eK9Ne/LsRWoY0V/D84
irPMcZPev6RtFN3Qdvw/1tVid1yz5b+RwI9UVzn9P0DlF5RZ7PC/amaGQ2S+
/j+a4GsMZST8v4Ta03FIygBAwXKSy9fNB8A8JhNjbtAAQPFr7TSU9wfA9HFS
VJTWAECDSGwTVSEIwGQJ0Tbg4gBANY6W1OV0CMBEOM77d/sAQOjf5v5OHAnA
A5bIhacsAUDnzSZGnmwKwIJRvZkGjwFA2wkMz0YWDcA6nfyKLJUBQBHfV8to
QQ3A8ug7fFKbAUAf/AuunWwNwGKAul6epwFA/DE+O0LDDcBCr7cjNsABQDwJ
fluFcQ7AAg2yrWXxAUDb5hqIcNIPwIHIpsHEUwJAPJFlPxdVEcCcXJP+zVkC
QFDQJqr8axHAtvB/O9dfAkAs6q4h9YIRwOoYWbXpawJAKFEWyyCxEcBSaQup
DoQCQHE4F31uDhLAIgpwkFi0AkDVJ67kRc0SwMRLOV/sFANA3NMVAn9fFMDe
3yWc9RoDQFTM4he2eRTA+HMS2f4gA0Dy0qTKEZQUwCyc61IRLQNA7rm7LzrJ
FMCU7J1GNkUDQBuT8UVmNRXAZY0CLoB1A0DmAsZD+hUWwAbPy/wT1gNAGSiy
DykAGMAmyzxftdsDQEXE+vbLHhjARsetwVbhA0CeRD00sj0YwIa/j4aZ7ANA
9rv4kU98GMAGsFMQHwMEQDM6zpMB/RjABZHbIyowBECt/0NcHw4awCSNTIbL
NQRAsG3pcuwxGsBEib3obDsEQLwRMXohVhrAhIGfra9GBEDeAcwj0J8awARy
Yzc1XQRAlWSvuKE4G8AEU+tKQIoEQASIdbe9gxzAJE9creGPBEBxSABq5q8c
wERLzQ+DlQRA+CZLrcDcHMCEQ6/UxaAEQPVBjgGmOB3ABDRzXku3BECPhyQi
EfodwCQw5MDsvARAqynyVKEsHsBELFUjjsIEQJfh0dsnYB7AhCQ36NDNBECx
2NzARcoewAMV+3FW5ARAfZtD6TWsH8AiEWzU9+kEQNEyhpjl5x/AQg3dNpnv
BECH49wzgBIgwIIFv/vb+gRADAb85ORRIMCiATBefQAFQCvaqATTciDAwv2g
wB4GBUAkH32XpJQgwAL2goVhEQVA45YnHizbIMAi8vPnAhcFQNpfVqcCACHA
Qu5kSqQcBUD0DLsx/iUhwILmRg/nJwVAtt/Cvrl1IcBGnlsaVzMFQDXh8a3Y
zyHAB74DLA==
     "]], LineBox[CompressedData["
1:eJwV13k8VN0bAHDbO2MdM3PvnbFvUySUJaJFT9qQSllKEdGuJD8RXqSQlCVE
EdleJCVrKuXYohQSKYlSkSyJ7OF3+ms+3889994zz3PueZ6j7Hxq1yEBPj4+
O34+vr+/vasMhiwO0ED/86+775qUEV+LWKSfCw0OJo/MvqpSRqvb/cLij2Ff
dF7pl6qMvDoHzhecooGjtKyBd6AyGuht8O7zo4Gx95L9AuuVkergag+B8zTQ
rDxreZynjJx+3TkhH0aDT7N+zBaaMno7e/mAVRwNiMqQ+oPNSojJ/2efWyIN
tLIufPAsVUJbaSdsL6XSILpi4Pb2ZCWEmBZbK/Jo8ISJhlacVEJ3Fovra9TS
YEzRe9krUgkNxvDZdL3A98sTPuf4lZAm37jn1WYabPdLLtv1URHd7fhYPPmB
BrwmJ7OrcYooPyp/Rc0oDZamWJhfFldEI38yrL2naGCwvSF096AC0j5+3XPp
PA3K9IWHG18qoIKNQcXRInSQfyNFz45SQEXTu1Y4KNFB7orofRc5BfT78BZr
piodUhlhjGE+BbSidbVntQYdOJInD818k0cl9xYVq6+kQzqnrTGsQB49cJnQ
m9hGh9oiQ0Nquzx6/OqGXpQfHUpbFklrJcqhP6sirUyC6ODz3fPxhhA5tCbn
/P/GQ+mwSsbIOs9dDj0571q0L4YOC8L26q6mcqhi5Vq9JbfpkNQa9uTYrCyq
TvukW/mWDoI1ErtHT8oiIcm2XZ6ddCg+RC+1cpBFG/997qHWQ4d8wyzDIQtZ
VGtbWBgxRAe90Q191ZqyqE4sWHevkDDIlk3f/DQsgxrOqOmO6QhDmcRdm0k/
GeSm8Tz50kphkK/SD09zk0HMz8dFlNYKQ86GN50eB2SQrcW9TxamwjAqOSQW
tkUGfVLRj8raLwyWaLrrGCWDJppMBu0uC4Pi9PU1Fx5Io+shX3ePRAvDTvVN
WVZ50mj16tDq0HhhOLU3oHJ9mjQ6l/U8sShNGLTErZacuSyNxPwtzSTKhMFq
VRZL84A0Ulq6Pwt9FQb9iWXG/ixpVNW9wNr9QxiOpBoYj9Ol0aFraf5DP4Vh
sEvKJ3heCuXyfbOWmRWGhE215n0DUki/3VXQkyUCQ/dnTpTUSSHzYB8nNWMR
+NxycofOBSnk2RUnE5kgAonu0qs+0KWQbrK+QkqyCCQdPDJL8Umhn/veKt/L
EAHnaeebzlNcdPw9V70xXwSU8nqitPu5yLE1cSWjXgTOBHrPXG/gIvMXqdaR
UyLA92iv2MlYLqJfWr8nZV4ExBJ/iOZd4aKaLT377gmJguip7/9Nh3DRulqe
SyNTFKw3n5qtOMtFK1DWaYa6KGgUNB//vZ+LFEvzIiPtRMFutWTTOy0u6vTc
FpPiKAomErO0YTUuStQbvnbvkCj8bDqyX1KFi8iC5cmNp0XB/R675wyHi0Tz
Cu8wwkXh14kN8Y0LHPQ7raw+8pEoBLtOy8W2ctCLiBqBKFkxCD3gMJ4ewkER
xf0aK5XFYELyseHOIA6y/MCw6VYVg7SCHGG6Pwe1L7HLXq4rBjM7eumXPDno
a/XQ1mZTMTjXJZj51YWD5qY511heYrCWF8s/uIGDtA8fU4trFoOiuzeyWoQ5
aOxKpOWat2Jw4TpSt/6Hg0qLiny+fhADm1M3XD7wc9Ba/vmGFX1icCr+eMPM
DIXMb8a4t82JwYP9wPt3iEIuLY8fcjTEQVFLRC7wDYXijRkWN0LEgVXZH702
g0KebroSjy+LA32fWR4vlUK7UmwbO6+Kg4ZC5xwjmUKM+RRLpRRxmFpkLTUe
T6GQJ8ttskvFYauVjsB8OL5/zc79JX3icEiLVTv9PwpZrYpzf20mAf4POrft
NqPw/lGmM7ZDAnaraZu83oyfl9g5StpKgK6h4aYdGyn0YnrRmT3OEvAJ+e/Z
vY5CJg9LfLp9JSCnva47Xp9Cuobt54fuSMBchiLjlQqFmAYy10QYDGB1LXbs
XSCR5b2BNAbJgFCG9PKuORJFqz65R8gwIEVxTvr9LImYXKd6eVUGvKhga7yb
xJ76b1bHmAH/++yfNfOTRKxHOs573RhwjHC59PITidjGZsvvNDLg1ufzvudr
SLSrVGbN/VYG0LJvEa1VJIpZNmha0sEAumKG9pJKPF4xyrmilwFhycze9ifY
fG3X3swzIPqOaaP1A+wqpz+zyySh+vAVrcpcEhGbzz63iJIEHZPey+axJNqj
2jjbHycJEhFRtnNXSZRCW7TsYqIk7BXjHyqIJtHSuqaYyv8kYSZO4H9KkSQy
MVWzNyiXBNqjkZvsSyTyMH87rNiPx9NmTMwCSXRUTSbcR5kJReAR+fMEiS5z
N/FMFzHh3/ROnXZXEt2ju5dz1Jiw7UfQbnScRL/7aoeLNJkQFWOlnHCUROdy
TlsNr2QCOVHiZXuQRAnqz+VctjPhp3qbu4w9iZ5pnM238GOCWGx9dK4FibxS
08k9AUyIMWnoyd1KIlXqlY9LEBOkFIJL8sxJdHFeeaPvRSZ0bMpvLTYlkenr
hnfZsUy497Gz4u1GEjV4KQoI5jFBa7dYiONaEjVXPrN+2InHv1Hc570cz8fg
18OabiZMB9WNZSwjkfYdWcXmHiZYZ3s0v9Yi0dU49/7e7/j/mDF36GjifB2R
CSDHmaB5rVB3YQmJ2sTdsk9JsEDV8rdqmwqJOnZTM4uNWRDYHPV9P5dEEXwC
HnPAgrn1vf+Wc0gEt4f7Wzew4N3993yy2Nkzde8vmLHAc0j+TQdJIs9k34ef
rVnQKa96/hCbRIwv3WeTXVmwvb6bmyWB8+OWO0neYIHNjOznl0IkGucknBpM
YsHOpg32m7FzKi70VaewoNzHIAsJkkiS5dDukcmCpeLV6Q8ESNRZJPmgOZ8F
0hmFi/L5cHynPb2uPGPBC9fpoOo/BLodvG5c8DcLBmq7Yv3GCfSjQMNIapIF
uU6G/ELYS7u5/pozLGjsll0f8ZtAeUYjQjZ8bNiqHrYifYxA94ZTySxxNpx0
8m9s+0Wgwj0CK0wXs4Ht0DDpPEyg0ZBhb/slbIiDTOmpIQLpFXU8dtdgw4xu
w3wEdrFE0YYbOmxodD8oWT5IoAdVLlY/1rJBvqdEW3mAQOWatR5XbNmwXOha
PuM7gf7YFZSm2rGBnmR/M7+PQGsvJs8U27PBuC/ceCf2089nzn90ZsOSVy9v
xfcSqDJeNWbZKTYkpSw8Vf9GoGd8YQXNF9mQ01JY7t5DoKZW8xHyIb5+6KrV
vx8JBFkSHTLlbLA12l2hh13o3VytVMGGRN/AqoFOAsXL2CZo1rLh0BHbKw7Y
9k4HjDe+ZsNVoX5Z0w84fgPeV/7Xz4bJxJdJhu/x9ServHwG2bDa7bb29DsC
vYqccwz8yYaOpPpdj7Dv61zQuzzOBtYf5zXG2N7ekR3p/AT8M7I5zqKdQEKC
/y1pkSbAk7nzzfk2Anm1HmG/kyPgkezh8a3Yff8t/fNRkYAPCq5JFPYL0/tN
/YsJiM8UPZ3bSqCrkY+9+HUJyOBbrtfxhkAKMi012uYEqAi/vbGzhUBGOgtO
Ub4EGEa6md9swvk0CHY44E9Ass7pYG9slTUie/XOEXBdc0DFClt8C2HVHkLA
tYWHl8Wwu+zVNileJYA7LyEQ1Eig82E71POzCTjQvVsr4BWBJiJaFwflEvBM
1DXIEds11k7F6i4BrIezeuuxrVNcZCcLCbgprlr0D7ZasbfEuqcEyEbmSMa+
JNDL7lu/GlsJWM+hjz1twPn5tmg4tZ2Af5+VCGVhl/y4/cOjgwCnjbtORWCn
jBd94XwiwMV5fpsDtrtYfdv+AQKUjDrV+LG/Mre1aA8T8KQif/LHCwLZcVoa
BX4RMGPUKN+GbaLcWZc1QUDTjTTXXGxq5cjDYX4Sti65K2SHHb7mTCkSIiHq
wyf/Tdjz62cKY+gkHPn1xlwX+7uFUJ6BBAkKOg+7xLEfOUulBEiRUPL0/bfa
5wRadjQ50VKWhNOtjr+LsTNOqiSoKJCwQULbOhP7ylnN6Gc8EsxKfWnB2Psj
4TxjOQlxgvu1tmA7SdWay+uScFTFJHwltnO6GaGpT0LO854NS7APl+7KNFtN
wmW3rgZRbLeug8+Ct5BgV3V2UWs9jsfR/shYcxIWSift67A9Rk/uTt9GQtDc
lp+PsL1o3t8rrEg4K/xTMQPbf9kl0VlHEio3umd7YweUSbwRcSGhcSYq8yT2
OZOYJKnDJMR+vT/lgh1sm6RpcIIERfH4zJ3YoZ8UxzeeIuGn2p1ZU+yw45lP
rDxIkNN1yQHsKwF3t58+S8JJTWd+HexIYV3uOT8SNi2ey1PHjo4p7Y4MwPGS
/5Kngh2XVeGeF0zCgPOaHAo7Xnuj0eOLJFS10DIksa8/qud/EU7Ci+AXIyLY
Nxtfx/RFk7CMN3JhoQ6vjz22+yZiSfjPKK9+Bju1p4P3TwIJ775RjhPY6Scc
B4lEEtZrfNg8ip058aVYJZmEQNfcwGHsrHNH/XVSSVh9WFdkADtHdGgTZOD4
GKp86cPOjTvN2JFFQra9usQ37DyFibcOt/H7ciZDe7Dv5fjeOpFHgsD2tZaf
sO/rLhzxyydhqCP3aBd2YfkF7fBCnM+Vv5o6sYs3C09fLyHhSlZlyAfs0uYr
ldllJNjXvLrUgV22lxVe+pgEvYt1H95jP/p6bVftUxLcjA/4/fVjNxnZ1koS
nkdvO/rX5VMpX3pq8Pz816X/9dPzvLxfdSTQ7X8s+fs8JJ7jyddAgmAH/5+/
rorXXCvZSILwHyPZv/OpUSr4R+E1CY5yW0I/Yj/L1W/UbCXh88DHNd3Y9Sse
xa9uJ3F/XWT8GfvFU2NH8w4Sqvn8L3/BfmlarWb3Eed7x4hKL3Zjy5aRI59I
GLOvFurHbrZ/Web1Bec/ME97ELul1zIopJcES0fnrJ/Yre5tZnH9JLRNJh0a
w347Y8fOGCRBI57pNondwXDJQKMkTN2/ZMeH89/98nZA0jgJK/Iae4Wwv4aP
2HlNkRCxb6zw7/oYpgUwNedJ8HX/TSOxx2pqBmj8FFwvc4iUxp46L1b3WZCC
T77IShGbf+G6f4IIBY9qIhM0sGlPuvd4iFPQIXaJ0sUW9VNdsU2SgoWtic2G
2ORk0Q8BioIHj5TnNmMv+dm4202JAkFOgfphbK27lJ4Zj4I5i+3hbti6rvaM
RaoULHcwVf37va3p6695r0HBpWW+kpewd3QL6W5aSUFi62hqPrZ18lYJpVUU
BAbHvn2IvWdfzPeZNRR8mf66qQbbuV3x1n0TClxW1Te///t9N60Sl9tOgdK3
j1fpeH/wiwjqm7CkoFRmZxSBfW5rfdVrKwp+hr6tUcQOr7PxuWhHwYUMi3ZD
7OQK997RgxSYXz4QdxK7Jj8LPfejoDC9YMNn7Ocnh5IyAygYONiZO4LdqLHC
OzCIgs3PBbbw4f2wPbtSS/8iBb5XL8grYf+41ZmYGkOBpZmasTM2K5p9xvs2
BV9/qiwewd48unxiQx4FnU3fjwjg/ftf623ezHwKqle2dJDY36XCfG4XUxCT
fthyFTZKm/P/UEEBq2/hzMW/+3/R99B1bylIq64PXYrrSdPbp9fpghxQOXjo
vxhcb4SMOqVb/+HAPnpBci72qqTpxFRhDuSv4FVWYWc5rkg2YnDgjcO3sDHs
gO+301ylOWA11sTdjevdspm43KblHPC0USdUcT2MkHctT7DnwK/160N7mglk
KRQmkubIAbspOlfgNV4PA5m2uc4cGJ93aFPGTizrGik/yoEmOqPjAHaO1a7F
PZ4cOFb1ef4LdtUlo0jNCA7sCV24OoLr9cQ43anyCQdCDhZWq+N679iYKTig
wIVj7bF8ZAeBVPsvuCBlLrhIZfxehT0o6FJ9bREXDvUsFXbGPmukfAGWcuGP
gmHEfezozGSBeH0uDPbuFd+B+5cq33j+9RZcoDkk113F/Y2qWthCvA8Xsg89
9NfqJtBQoOusSSsXSrolIsu+Eui1NTH26roUrLPgGkiMEmhG/6BTlZ00hEhr
ByfgfrOLaxLwWEIGHpWdz9WWJJG0PP/NvmYZuPlgP31QEfervG3HpS7KQuzo
9TYDbRKZ6ZvcKzSSg3frKcF8wP31canRwFk5CE7YdHZuFz4PpPn17rwvD7xb
kxuc8Xni+UxFh62nAmzz1+MEeJNIzeZqoJOGIii2hW8KwueZF4/FEt90KYLC
P6ECm5JI9Dldr6PcUgkGrDKsk+6RaPX37HUxd5RgVutx/V2E+/UK8cX8DGXY
8357IbSS6Ijc5tpMN2Xoq+LPOdlHosHp2icv6pWhLfi15/ppEskdMzAIX6oC
DM6WJ4HiFMrdM0R7GaICCefi3zkoUGhv49kYk24VKH89blG3nEIlbb+TdwEP
pv/EeIWbUMjN4QH/t0QeWJZLag1YUUjgU8JJn5s8cJK55GNoTaEE57PvJVJ4
sMbGvjoEGx0xKjBI44GXCmOHkg2F2B6PncKyeaDoEbXZxpZCpaEVFRrFPAja
GlHydA+F5vPr/D1e8eC+UlFUlAOFYnRz+mlNPCjdvDe0E1utJMwmqZkHcSvN
fdX3U8jykZlWzRseDHkK7K3GTq9p6KQ6eJB2/NnUhCOFNr9vWv2wlwc7Fy8r
cnCmUMe++9nbvvNANEM1IBf7VFc00dPPg8dcp82T2Ne/7BwQHeLBXYG4xmgX
Cv0YepNoP8aDxUWjT6oPUijAvZj26zcP4p9+82AeohAxFucRMsGDQkHOYgfs
NVM25vemeeDjrBk0gd3sa1BqMsuDozEsjQ2HKXRwjqPS/ocHxaq6LVHYU4GT
Ea7z+H15EV6d2BEC76YXFnigm8+TUj9Cof8DBN7bfA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1.01, -8.905950008179028},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-6.907755278982137, 
       FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["0.1`", TraditionalForm]}, {0, 
       FormBox["1", TraditionalForm]}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-6.907755278982137, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0, 
       FormBox["\"\"", TraditionalForm]}, {-8.517193191416238, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-8.111728083308073, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.824046010856292, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.600902459542082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.418580902748127, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.264430222920869, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.1308988302963465`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-7.013115794639964, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.214608098422191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.809142990314028, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.521460917862246, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.298317366548036, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.115995809754082, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.961845129926823, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.8283137373023015`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.710530701645918, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.912023005428146, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.506557897319982, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-3.2188758248682006`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.995732273553991, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.8134107167600364`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.659260036932778, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.5257286443082556`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.407945608651872, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659905, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782616`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{1.01, 10}, {-8.905950008179028, 0.8876881807608403}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-6.907755278982137, 
      FormBox["0.001`", TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-2.3025850929940455`, 
      FormBox["0.1`", TraditionalForm]}, {0, 
      FormBox["1", TraditionalForm]}, {-8.517193191416238, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-8.111728083308073, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.824046010856292, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.600902459542082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.418580902748127, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.264430222920869, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.1308988302963465`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-7.013115794639964, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.214608098422191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.809142990314028, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.521460917862246, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.298317366548036, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.115995809754082, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.961845129926823, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.8283137373023015`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.710530701645918, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.912023005428146, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.506557897319982, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-3.2188758248682006`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.995732273553991, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.8134107167600364`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.659260036932778, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.5257286443082556`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.407945608651872, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6094379124341003`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.203972804325936, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.6931471805599453, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659905, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782616`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.519863512471314*^9, 3.519863519110214*^9}, 
   3.520078668721315*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["W[Exp[x]]", "Subsection",
 CellChangeTimes->{{3.519940671433302*^9, 3.519940675245646*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"ProductLog", "[", 
    RowBox[{"Exp", "[", "x", "]"}], "]"}], ",", " ", 
   RowBox[{"{", " ", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "5"}], " ", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.519940682287788*^9, 3.5199407036714287`*^9}, {
   3.5199417706648903`*^9, 3.519941805574917*^9}, {3.5199418415925694`*^9, 
   3.5199418586235237`*^9}, 3.519941895762919*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlmk41Hsfxi3DGGaMmX9kK1spypZTkvT9yU6LyNKCCE8XShQ5hzQKIY0t
HMboDKKhIieKp878PLZwjuwtE9EiUmSXxNNzXc+L+7pffO4Xn5e3hm+Is7+Y
iIhI1s/8ry9+3D+9ukrgZgNzUbXAKBiJUpgTLhP4RZP/aOKlKDgg92bh4TcC
n5gbCBbPigJ107M/QmYIfL6nmKWLo+A/yRlSQyMElv84Z7p3bTRI6T9fj/8h
cNH+ozZFT6PhxvkTjiwOgfOElGOJO2OgXPRcsYgJgRvpC8R0KQt2upRJ5hoT
+Itsj6pUDQuai4dPGRkS+F4ee16nkQVDtk56vjoE9t5Sbpk+xAIFtl5NgwqB
P4Z5uU8qxcJl5dGWBBECq0fflJ9mx4KHsec4tY2Ja9USlY5cvgwS/rbblDyZ
OBxzXoqmx0G3l5H7+BEmlrRLkDfhxUGBh0r0EzcmNnUtmY+8Hwc79k02+Tgx
8cTunc80u+MgwDjnSJklE3NcKZ/oa+LhqehHlpkuExs5Un088uIhpSDhmecC
Az8SPigdrUwA4kVTcGE6AzfdWu4+JJUEeAsvMY7NwO2nHXQLVJIg+FJ0ccA1
Bp7oWjD+pp8EzdrGr3XjGfjUklay0DUJfgv/w/HPSAZe9HUJdy5OgrfMKN1G
bwYeM1D+wbRKhqr9hqMf9BhYpPWJun7qNXBuyDup0yaH73bt6vdxY8OG3veD
Lc1y+EjRhr8rQ9gw/17/aECDHH6wkZO6JokNuZINTkWP5fAZTla98mM2DNmP
m6+rkMPMCsdbWlqpcLrTTJFxQw73dxoY7ZhLhcSB138vesrhLfOy6eO9aRA1
aR6c9o6ORbU9e6LvZEC+j8koGqBjmerjTd/qMuBxj6HfVD8dM+aV62NbM2Dl
odZx5zY6Xqah+aqRDLjMouxbc5+OR2PczTgamZDM6NvyewwdP72w3S85NxPy
jIPHbyrRcfYCa3pdxg14dCEvsOKgLA79enNc7HY2aPqF3nphJ4t1t23P/VGX
Dded7IZE98pii2t7eskd2eCrM+96+Jef+4hALcfZbJARHrL4piiLheLbL7It
csBrD0XR8i0N7827MsN8kwPiEpFN/edpOHLR5USQdi4cyHBVX8ml4sBs5Ytm
Yxz4bRvd3jaTilkfXO2YIvlQ0v00NC2Fitn1WlbfFfJhhbm7QfMSFUe0WZJI
1vlwN1MzwNaPiqt5OpuneflAzZosT9OnYvcMVZ393lxoy0ky0WqQwetspm19
RgvAlvvkgN1naby1ZMWRq8KDr9dfL5NGpPEXjU0DOZt5kBfzvaz+jTR+en15
lrOdB5+9TclmPdI4s6OlGx/kQYZmtUCvThqHHP7XysU4HgyW3jEkEqXxifWx
g+2TPIio4jAHtaTxJwdG1/t/CqGk5df+c8co+LW5ZG0avxhyt0VY8g9TcLig
MOlcXTGkcMMqB/dTcG/deu7J9mIIOxeUbI8oOOPDalXQl2IwV/Pco7aRghMs
7pSqbrsFvRGopG1CCrvfsDGS/usWiGmTIzQuS+GbfW3dHkMl4BV3Q/7ZbTLW
oScHrTrxoQPmyZGFZHy93T5pgx8f4Lv7kno+GT+Lbg11v8AH9TCVN2GpZGy/
qb95hMuHt96FtxUiyNiNWxt9Z5wPAWaVZl6WZDyp2CH2OqkMzky3+3wZkMTV
tEO1Ml3lEHNC/J4MIYknNUI8/kq5B5XPbNm9VEkcFCUqtbXoHrzdk3KGKymJ
J7T2In7tPbBZJ29gsCSBGYMVZ7tH7oHsK+1K52EJHL5oJxyyqIACF4eq3AoJ
zLUW3z6/VAECm/SaTfsksGN76fGix5UgoqcmsIwn4egHr5YPH66CaAULr/gY
Eq6i3jjb5FsFC6u+P5ovkHCcCpuFQqtgorvEzCGQ9NNnIdWNXQXCSP1HTgdJ
eDVdYbN4axXUNJrf91QiYRH9Wg0/9CecPn686MJdcdzlvjR83uQBvLqWe7W8
TwzvPmo15WZXA6rSp/ize0Vx65vZKEZZHQRt15UQqq4KHm+qY2/dgOGkyeDt
hobvAr/QOsGifwPoRu5aPVO8KLgw46mUPtkMvAGXxl8t5gQmza6+Nifa4WOs
/G5bxWnBH7Xq01xGJ9RlbbYedfsiWPBha5aJ9YDh2MtZA+6IoM9rIN7Bvh+s
6oSUH25DAvOHoUWGD17CWX7FIoPoETQf+y7J6hwAtwAtXnd0rWAgw6pvgDQM
LX+/TDZ2eQS/rD6w1bN+B7v06quccnrgH0Kr6u7YBxCLkH/tpzQEWvmR4Rpp
o0CmOsX6TozAovnRBkveOFwZ6rcMK/oCT1KH3a72TkAlJ8EpZnoKIsxkJ1aX
v0JIoZ/ce7c5cNp6UEW7ZRq8AvPWXY1dBH6Uhnd//CwkHYowNc7/DgHV4dVX
980DaU3WyKWlFchZ4yHGdVyE5+3xX+Poomjr789GqTuXwDXKd0degxiS6dC0
avFchmCZcc2OoyQ0XOOSzji9AmrlzdmSnyRQr9tGF00QQVGPLF3oHDKCMrX+
636i6GxJcM0OAwp6sUFyp1S0GKKKmfjqf5BGJ39cCy2oFEfWpw9n6WZSkYHh
aMbKexJSrF0XYr1BFinm9CTqUSRRRlhiuuFzOjqonnOI40BGzgkH9bg1cmhG
R9Kh/jcppHsszrX4IgNJ3e8SZd2moP4RSmGmKxOJdpcqFM9Iow7fDxZMNQL1
7WvdM7+FioZJpYtZmgSal5npDDGiotmSUxVK2gSqCbe7ObaDipTGx1U19AgU
KDT5OmBBRX7nphcMzAiE5MN9Wt2paOnK6t397gTqiReeK79CRdq3lJSTUgl0
OuzbZ46QikxthZ3UTALt9HgyojpMRfvG8q+mZf/kLg3KBSNUFKqnPpfDJZDC
nSNGvCkqelyt3VlSTqCjn2lry8g05NxsnNDYQqB/b8562GxMQ/6n5nbbtRNI
tZJ1wNGUhiKlH860dxDIRr5+feceGuIe2OXT00egzOcSQa/saWi0H+1++45A
Xe8k7k9509BSpNiM/0cCDQ6uyEX60xBNpZE/9olAt2ee81cCaWibt+3aqSkC
cfy+xlMjaMhalNJxfo5A063M1swoGvIoaotbXCSQ6zGhlUosDQVap5hFLxPI
j2/2rTCBhv7/n1Cq/cYR3RQa+i/emV1s
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {0., 3.69344119836132}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.519940688389414*^9, 3.519940703935773*^9}, {
   3.519941771192335*^9, 3.519941805856761*^9}, {3.519941847549849*^9, 
   3.5199418589507227`*^9}, 3.519941896191931*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "householder", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"householder", "[", 
    RowBox[{"d_", ",", " ", "f_"}], "]"}], " ", ":=", " ", 
   RowBox[{"x", " ", "+", " ", 
    RowBox[{"d", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"f", "[", "x", "]"}]}], ")"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"x", ",", " ", 
          RowBox[{"d", " ", "-", " ", "1"}]}], " ", "}"}]}], "]"}], " ", "/", 
      " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"f", "[", "x", "]"}]}], ")"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"x", ",", " ", "d"}], " ", "}"}]}], "]"}]}]}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "explambnewt", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"explambnewt", "[", 
    RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"householder", "[", 
       RowBox[{"1", ",", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Log", "[", 
            RowBox[{"#1", " ", 
             RowBox[{"Exp", "[", "#1", "]"}]}], "]"}], " ", "-", " ", "z"}], 
          ")"}], "&"}]}], "]"}], " ", "//", " ", "PowerExpand"}], " ", "//", 
     " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "explambhal", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"explambhal", "[", 
    RowBox[{"x_", ",", " ", "z_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"householder", "[", 
       RowBox[{"2", ",", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Log", "[", 
            RowBox[{"#1", " ", 
             RowBox[{"Exp", "[", "#1", "]"}]}], "]"}], " ", "-", " ", "z"}], 
          ")"}], "&"}]}], "]"}], " ", "//", " ", "PowerExpand"}], " ", "//", 
     " ", "FullSimplify"}], " ", "//", " ", "Evaluate"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5199410333310537`*^9, 3.519941076658045*^9}, {
   3.519941121744061*^9, 3.519941129672967*^9}, {3.519941178431325*^9, 
   3.519941186204734*^9}, 3.520078366434741*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"explambnewt", "[", 
  RowBox[{"w", ",", " ", "x"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"explambhal", "[", 
   RowBox[{"w", ",", " ", "x"}], "]"}], " ", "//", " ", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"{", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Numerator", "[", "%", "]"}], " ", "//", " ", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{"#", ",", " ", "w"}], "]"}], "&"}]}], ",", " ", 
   RowBox[{
    RowBox[{"Denominator", "[", "%", "]"}], " ", "//", " ", 
    RowBox[{
     RowBox[{"Collect", "[", 
      RowBox[{"#", ",", " ", "w"}], "]"}], "&"}]}]}], " ", 
  "}"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", " ", "/.", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", 
    RowBox[{"p", " ", "+", " ", 
     RowBox[{"Log", "[", "w", "]"}]}]}]}], " ", "//", " ", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.519941291853353*^9, 3.519941314284431*^9}, {
  3.519941379569178*^9, 3.519941400519966*^9}, {3.5199579523791924`*^9, 
  3.5199579652582073`*^9}, {3.519959779404306*^9, 3.519959790611492*^9}, {
  3.5199598860887012`*^9, 3.519959886328899*^9}, {3.519960746352257*^9, 
  3.51996077851602*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"w", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "x", "-", 
     RowBox[{"Log", "[", "w", "]"}]}], ")"}]}], 
  RowBox[{"1", "+", "w"}]]], "Output",
 CellChangeTimes->{{3.519959774545271*^9, 3.519959790933783*^9}, 
   3.519959886690338*^9, {3.519960748412436*^9, 3.5199607788473473`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"w", " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "x", "+", 
     RowBox[{"w", " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        RowBox[{"2", " ", "x"}]}], ")"}]}], "-", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "w"}]}], ")"}], " ", 
      RowBox[{"Log", "[", "w", "]"}]}]}], ")"}]}], 
  RowBox[{"2", "+", 
   RowBox[{"w", " ", 
    RowBox[{"(", 
     RowBox[{"5", "+", 
      RowBox[{"2", " ", "w"}]}], ")"}]}], "-", "x", "+", 
   RowBox[{"Log", "[", "w", "]"}]}]]], "Output",
 CellChangeTimes->{{3.519959774545271*^9, 3.519959790933783*^9}, 
   3.519959886690338*^9, {3.519960748412436*^9, 3.519960778850539*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["w", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"2", " ", "x"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"Log", "[", "w", "]"}]}]}], ")"}]}], "+", 
    RowBox[{"w", " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", "x", "-", 
       RowBox[{"Log", "[", "w", "]"}]}], ")"}]}]}], ",", 
   RowBox[{"2", "+", 
    RowBox[{"5", " ", "w"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["w", "2"]}], "-", "x", "+", 
    RowBox[{"Log", "[", "w", "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.519959774545271*^9, 3.519959790933783*^9}, 
   3.519959886690338*^9, {3.519960748412436*^9, 3.5199607788530197`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"w", " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", "p", "+", 
      RowBox[{"3", " ", "w"}], "+", 
      RowBox[{"2", " ", "p", " ", "w"}]}], ")"}]}], ",", 
   RowBox[{"2", "-", "p", "+", 
    RowBox[{"5", " ", "w"}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["w", "2"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.519959774545271*^9, 3.519959790933783*^9}, 
   3.519959886690338*^9, {3.519960748412436*^9, 3.519960778855592*^9}}]
}, Open  ]],

Cell["Asymptotic Approximation ...", "Text",
 CellChangeTimes->{{3.519997843729808*^9, 3.519997850673716*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", "y", "]"}], " ", "-", " ", 
     RowBox[{"Log", "[", 
      RowBox[{"Log", "[", "y", "]"}], "]"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"Log", "[", "y", "]"}], "]"}], " ", "/", " ", 
      RowBox[{"Log", "[", "y", "]"}]}]}], " ", "/.", " ", 
    RowBox[{"y", " ", "\[Rule]", " ", 
     RowBox[{"Exp", "[", "x", "]"}]}]}], " ", "//", " ", "PowerExpand"}], " ",
   "//", " ", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ProductLog", "[", 
     RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", "%"}], ",", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", "Infinity"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.519997810810437*^9, 3.519997828383286*^9}, {
  3.51999790592461*^9, 3.5199979162008953`*^9}}],

Cell[BoxData[
 RowBox[{"x", "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     FractionBox["1", "x"]}], ")"}], " ", 
   RowBox[{"Log", "[", "x", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.519997823321085*^9, 3.519997828913929*^9}, 
   3.519997916723812*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.519997823321085*^9, 3.519997828913929*^9}, 
   3.519997917777614*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "megaprox", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"megaprox", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Max", "[", 
       RowBox[{"x", ",", " ", "k"}], "]"}], "  ", "-", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"Max", "[", 
        RowBox[{"x", ",", " ", "k"}], "]"}], "]"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"Max", "[", 
         RowBox[{"x", ",", " ", "k"}], "]"}], "]"}], " ", "/", " ", 
       RowBox[{"Max", "[", 
        RowBox[{"x", ",", " ", "k"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"2", "^", 
     RowBox[{"(", 
      RowBox[{"a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Min", "[", 
          RowBox[{"x", ",", " ", "k"}], "]"}], " ", "-", " ", "k"}], ")"}]}], 
      ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "data", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"ProductLog", "[", 
        RowBox[{"Exp", "[", "x", "]"}], "]"}]}], " ", "}"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "4"}], ",", " ", "4", ",", " ", "0.1"}], " ", "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "model", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", " ", "=", " ", 
   RowBox[{
    RowBox[{"NonlinearModelFit", "[", 
     RowBox[{
      RowBox[{"data", " ", "//", " ", 
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"#", ",", " ", "17"}], "]"}], "&"}]}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"megaprox", "[", "x", "]"}], ",", " ", 
        RowBox[{"a", " ", ">", " ", "0"}], ",", " ", 
        RowBox[{"k", " ", ">", " ", "0"}]}], " ", "}"}], ",", " ", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"{", " ", 
         RowBox[{"k", ",", " ", "1"}], " ", "}"}], ",", " ", 
        RowBox[{"{", " ", 
         RowBox[{"a", ",", " ", "1"}], " ", "}"}]}], " ", "}"}], ",", " ", 
      "x", ",", " ", 
      RowBox[{"WorkingPrecision", " ", "\[Rule]", " ", "17"}]}], "]"}], " ", "//",
     " ", "Quiet"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", "[", "\"\<BestFitParameters\>\"", "]"}], " ", "//", " ", 
  "Quiet"}]}], "Input",
 CellChangeTimes->{{3.519958449379923*^9, 3.519958587048807*^9}, {
  3.519958746087324*^9, 3.519958754782634*^9}, {3.519958891536541*^9, 
  3.519958900259678*^9}, {3.519959137614863*^9, 3.5199591567012453`*^9}, {
  3.519959204326804*^9, 3.519959204802732*^9}, {3.519959282386343*^9, 
  3.51995930676588*^9}, {3.519959592804504*^9, 3.5199595999572563`*^9}, {
  3.519960064829111*^9, 3.519960064942411*^9}, {3.5200781539795103`*^9, 
  3.520078155621758*^9}, {3.52007830084087*^9, 3.5200783411442957`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"k", "\[Rule]", "1.17656313089294149487891296035160741256`17."}], 
   ",", 
   RowBox[{"a", "\[Rule]", "0.94537622167837827124246857543230858481`17."}]}],
   "}"}]], "Output",
 CellChangeTimes->{3.519958614931419*^9, 3.5199587806489983`*^9, 
  3.519958925580234*^9, 3.519959181731485*^9, 3.51995925383241*^9, 
  3.519959304845149*^9, 3.519959364454114*^9, 3.51995968366083*^9, 
  3.519960170674786*^9, 3.5200782298895197`*^9, 3.52007840719944*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LogPlot", "[", 
   RowBox[{
    RowBox[{"{", " ", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", 
         RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", 
        RowBox[{"(", " ", 
         RowBox[{"model", " ", "//", " ", "Normal"}], ")"}]}], "]"}], ",", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", 
         RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", 
        RowBox[{"explambnewt", "[", 
         RowBox[{
          RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
         "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"ProductLog", "[", 
         RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", 
        RowBox[{"explambhal", "[", 
         RowBox[{
          RowBox[{"model", " ", "//", " ", "Normal"}], ",", " ", "x"}], 
         "]"}]}], "]"}]}], " ", "}"}], ",", " ", 
    RowBox[{"{", " ", 
     RowBox[{"x", ",", " ", 
      RowBox[{"-", "6"}], ",", " ", "6"}], " ", "}"}], ",", " ", 
    RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
     RowBox[{"{", " ", 
      RowBox[{
      "Green", ",", " ", "Red", ",", " ", "Blue", ",", " ", "Orange"}], " ", 
      "}"}]}]}], "]"}], " ", "//", " ", "Quiet"}]], "Input",
 CellChangeTimes->{{3.519958620765679*^9, 3.519958713176113*^9}, {
  3.519958799940238*^9, 3.519958843506695*^9}, {3.5199589433891068`*^9, 
  3.519958943545892*^9}, {3.519958983405353*^9, 3.5199589835409822`*^9}, {
  3.519959699673085*^9, 3.5199597392006493`*^9}, {3.519959899822926*^9, 
  3.519959899905203*^9}, {3.520078471296555*^9, 3.5200784727110033`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwt2nk0Vd/7B3Cuew13wjVTxlBKlCGl7EtEEhKSTB+UCEkhGlAZKyGVSqEi
SiiFhPMUyRCZVeYh8zzPfue71u8f1mvds/Y599nPfp+917pSjufNThNYWFg6
8D//+++UFT2xsSEEzQQBzzkzPuBfEZXTXBUCr6ivL3pN+aD0UIqN76IQ3HpP
IdQb84Fcx+eK0Ukh+HusmpllyAfD1N6Xf7qFQLPV6us5HT7wclOzyikRAsKa
WffoLj64LvsXzoQJgeK+52o8vHzw5KlMbDVdCKLPaMl0/WJAYmf4+WNcglAx
7havrMcAwdrjJtsEBCCaMDxj94MXyk2P61bJ8sOntqjpJRNeMNgme0lGmg+q
Nd6j2AYe2Jdpk/pLiQFs/uyqHKd5YDnyDN/ubbxwKFZ6LH2QG+YWXj2wk+eB
P+EBdpabuKFUOla12IMOHMNZyoXn6WDcfHf40Wk65J0Pi1l2p8PviIikC7Z0
OBNS47fPjQ6jk0FU2aN0yDhz4k+xMx34sPN9t3fQoZHdkPfvSTo4njoad3KE
Bu67TBxO6dKBJY5zdvYsDWQK7grHitJBkxSYs92ZCqdNBVREftJga/9drmgb
KvCWJiUNV9BA8EeC/aw5FY4cuv226AcNJsMLKEV6VLhw6tzzsyU0SKXOOxnL
U+Gmv4RYfQENGPwe/BeGKSCT+CNyNp0Gg9KnfHK9KOCoymUTFEGDZja3KlFX
CtwQPjIVFkaDkr7LUoH/UUDCoOtoTAgNnqc+rNY3o0DNUJJjejANjivUy/5R
oUBxsoD0hD8Nincdbl6ZJ4PMdOK+ejcaxDH37NG+RganSxkqrMY0YCubaK/y
IYMw95LOUSMaeB9Ju2XpSYYWnVa1p4Y0OGYpUn/OngwqLJ4/9+vTgO6+4v5Q
mwwNCeEDD5k0CH+EvRghkeHK2ppymgoNro7r0x9GcYFN3HkDQzEajFxk+SQZ
xgXjHY/+NInQwHop/9TbQC7w0RG94SRMg71EhXTw4gLtXTKSIQI0mBeh6o6Y
ccE7u/Nfu7lp4KVX688U4gL6weWtBBINnBKs/g0nckLbsNLV0UkqRH8cONDw
iBNSqGwTryaoUPzT9+GXe5zgO58g7jBOBdG1OP07gZzw++Gl4o4RKtTa1qUr
2nOCjFDi4bV+KmhJGHp6iXPCs5pvXV/bqeC+50+ZlSAnfPKOtHndRoUnJmcl
tOmcEHR6ArvXSoW5wNBa3nUOOMT7w8D1DxUyur7tzmnngHiJ9feoiQoiLzQX
5hI4IPYRq9vVaiocKqg06YjjgJJP1PyYn1S4VH8yrewOB5ict9r0pgp/HsLl
k4+ucgDiGFHpq6BCqNPHLxo2HLASFTx3rYwKH68c5Jcy5wCF+4tHMr5Toed+
vTuXEQe8G42ray+lwoHSyc1/NTmAR4LkZ1hChdktikFXxDigU1UzxBCoIH2g
8LcTHwdUzKtmxWJUMLU4ssuIwgFhN22kO4qp8DbEtWfTCjuoD9yful5EBcf+
FN3iv+xwPdQ0drAAr++66rPUenb4nnDQ+QjuIsHSuahKdnhZ8/LJ+89UENbv
SbUvYAeLf291wvOp8Ou1OBfrE3YocCD22uVSwWEMWC/FskODo+/Pf5+oML3b
abk/kh32erz8dh43f/HrkZ9X2OHjBeHuOx+pkMJm2IcusUPHhD23JG71w6Nt
H9zZIfbef5a5OVSwalSuibdlh4q4r/tGP1BhSKShjGLJDjtEdTpu4w6w98Gu
G7NDMuNr6k7cz4Y/Zzsj/PkClHKuvafCTmWb9JY97ND51XltG27wWU82VGaH
+2iL/59svL4sB+8rS7GDFCsLQwf3xUP/br8UYQfb9VC1lSwqEO+E3RJksMNA
nsejPNzyQj99VgnssH/USWYf7nwbT8/zKySYVyeas+A2fMHj0jNDgtkp2dqK
TLy/FC2syvtIILZdL/8M7jXvBVPNdhIE1S8r7MMdlf/4cGYTCb4cezHPg1ty
XVNHqoYEXLavxEfeUeH9wY59cWUk+FjumVqOWyciSIUDI8HS/Usx6bgba6R3
BOSRgH1Wsfcu7tP837eMZZFgr71wog/u+ZMumx3SSOAWn1vugDsskUuwIYkE
egXRTia4hf+9pR96TIJxHdWL2rjfKBhzfI4hwT0J1RV13JpekxvbI0mA8rdu
KOH++Sl28fkNEgytZN3YgdtuRXWK9woJjN09Iv7nCWbL0K2LJDisQBZSxh0U
6t+zcI4E0gQ1pT24eX+Ktbo54/Xye9H0v/u94C1uaLchgWcjlW6KW/WEw09T
CxI471Jt+w/39wTC95KjJPgb2nHQD7dlz6si9UN4ffJbDKJxD8rr56ZrkSAw
aWo8A7e/x1Dmpj14faWI+6pxk3Nuv76nRIIopTHFKdxPFxWTCFvx+emMrhHG
671DqzbeR5IEeb5/JHRxF9/0jhkUJoHjpTzZi7hNKvgjT/GSwPCVVF8K7i56
3o0aLhKUKgjYt+H2Nj95RZuAj3//wRNBfP7jOp+5y88QwTr+nNND3LKyzNNP
Rohwu2lwsRV3rluPLa2PCI8sdOxl8X77MydnMtNIhMfPpbNKcLtpVuifqSbC
76fsycJ4v64GnWP++U6EUafgSxdwi1Ozd2G5RIh8q133v3737Nvadi+TCJlY
GSEBd3FhcqhDKhGi9C1/0/D1Y+txv5X1IRFK5f6GbODO0KOG1t8lAt8Fsmsg
vt5WN4covwwhAsfhInYivj4TanxDdH2IIJ93P1wMX8+jqRNKAh5EeCVy6HIm
bs3As3//ORNB5k/83kN5VPirZK0UZk6ETz0fDG7heSASc+BPhQoRVFO3MTW/
UOGsa+7NJ9uJUF1HdJ7Dna+ttPOcDBEud5ZHfCzE1/e05E0qHxE8bnDNauP5
9PA4UdFkmg2iv67MPv5Khf7t11okhtkgvebUn6vf8HwgzgdPdrOBkF7rtDOe
f00fB5pj6tjglz106uJ5yS9YFdSYzQb1nB9tdfF8dR4/uD0ljQ1sZvVfH6vE
87WssMkniQ12rfxn44zn8XG/TAWhaDbYkmor+wTP79jfMY0nz7OBFJG4ol+P
50M2OVDBhQ0IB5fOBjdQYVfEzW0rdmwwfcLiKjTieb7X53qCMRvEbDZ6b9JC
Be6nVls7Fdng7puubTn4+8TuYl19liwbBCiZxot2UCHziOG1oM1sQFlvGArr
pILxqma9FI0Nhp/KWF7qocIdW4mrzqMEiN03vOfBIN6/kv2/ht4QgKvnWMD6
HBXaEjirul4QoGJC9j62QIV3ItvLWp4QwM8wvjV0Cc97Pq/C75EEaM8jim9d
w+vJvpyW7EaAQsY/+1wiDaTHaDdOKhBgXk2/lgt//866Kl8zlSaAD5m2abcQ
Db73m13WFyXAsv++7f/h7++zXY881cgEUNmU8aVhMw0yG6RO8Q6zQvVP6a8U
eRpoFqipVqSzwpBV1b3afTSg7rFSgmRWOHKQf9L1AA06cgIU8h6zQrKWXTEZ
3z/ceIdJpkSwwmVWlQZHPRqUJx2mBbuygktEs7ynKQ3Mw2z7Nbaxws1hKaVV
F3xfZh4Sn5bGAgdVlFaPPaNB8nqBikIyC7w00SbmJOH7pbTJmrePWeBx/Ocl
sVc0YK6dImVFskAGd0EX6S0N+FN3e39yZwE5o2Bezc80KFroPPJNmQWushZy
7GmhwXSywMDBbSzwKM/14OZWGsgbHbnxXYoFzimZGVE7aRCTlJtfzmCBfZoS
bKQBGlTFih55PrSB/XbY/sVxgQab1H3W8y5sYMq+b5+1i9AhNLJL9YvjBibp
/0zDSpwOkx1HzhUf38Cw6dw3bdJ0KA2T/l2qtoFdDXtty4bvQz3+/Hpft7SO
yZLDKZVadCi+qnB6JHgd83SLyjx6hg4OJZ1V4rFr2MbXxTulRXTQP7B4uj14
DWuYSciVKqXDzjweloQLa9ipi4af71bSYfWNtqrIsTVMPGh3U2wLHeJjXybw
8axh089dzS2m6VD7n4sHZ9Qq5nl9Z0abAjfktQZy/Li2iqVYBndq7OaG5xbx
ySEeq9jy7WXr1L3c4H64oolwdBXb4ber7ZMBN3Du2q61RlnFhgJ5aRku3KDN
MkGfjljBZMfu9kikc8PWAI70bP8VjF88ivT6PTfwzEocPO+Kf148cV+ngBs6
Bkz9Rg1WMNU7q3/zqrgh4NeHzn6OFUzrS11K8gQ3fHjum90asowtQB6zaTMP
vp9ZP/Y9eAkrjhVsMLrIA7W8B3Y89l7CaDtcovMu88D1/ivsHk5LmK9FiI/S
dR74e2+pgF9vCTslXHFGP4IH7vfMyjhzLmHtlf79m5J4gBg+Mke4t4htGgz+
GFHLAx9sFGqbAxex0qy26PZmHnDY5frmjdciJvLfpSrtdh4o/NtvZ2a2iNls
1ju+f5gHfBR7fiQLLGKjwV4/WEi80F//+zEzYQHTnXh1nqTFC3GvhS7x313A
yCo8dwP1eEHnqqXx4LUF7Hj56hv6UV54LttIiLZfwNQn1i09bHjhxOVf5zql
F7CXjHTCnqv4eWlz2YHr6fMYWXjt1kngBd9porDZk3nMK2rIwryCF7b8ODgt
e3se27iUpHKunheCvL6mVrvPY7/UfSwm+nhBo6SQe7PyPDYYoz//H4UB6Wdz
ur/kzmELKs9RuB0DGh0TJY6kzmEifh+JQW4MYLG9bfv3wRzGxqJvlurLAMtj
Tn8WL81hXtnm52/eYwBhH1+dmsocdu1i+sKrEgYoqm7Qv0vPYaY6rMtqdQyw
2jliZM6Yw8q948tZOhmQKV1S7j01i6UoK6QZrjDAmnIRsrJmsZ2Xxjf1qfNB
CMl+XStxFrvrkp/rd4gPsjcM99dEzWKPW4bkLCz58H2MdP6oxyxGf/wmesGX
Dz601Wdt2zGLeTvtPL+1kA/am4vH8sVmMddWg54TNXzAWfdmuwFlFktrCJEa
6uIDu+83Xp8ZnsEWRA9dYXLwAzlzd+LLtBlsSfLd7/0n+UEtTbx9d/wMlrLG
lzzjyQ8OL8hi38JmsF8xMcd3h/BD7sOeh11nZrBkISm5/3L4oTu6pvG85Qx2
/FPDEfsqfqDeLmBs6M1g7qAYyNrHD46BsVGbZWewW1NGTuZCAnDX//rPDP4Z
7Bu0rwntFoD8i27k/cQZ7AOpODnlqADQz+qEWvdOY5HF8jbGYQJQYDp97VHy
NJZnct3NkV0Q/hl2fJGLmcYIvvdN1rcKAo9e5dKnoGmMT07Pt99IEM7sfeHT
aD+NrVPVc1kfC0KMSlSOk8k0tpUFJZ3/KgiFigFT01rTWAGH6OWkEUFgSJt5
8IpPY2m6O+Qn9ITgwCatt0m0aWzv7tuDHr5CcFZQYUhpbQq7cbOp/mK6ENzn
EZTHRqcw7KWn1KFOISgmE04bt01hvQqvG9WEhWGIOP6ivWoKu3JoJuSFuTDw
b/zpcv8yhUnk5smsxwmD28x7m9tPpjBZf/9z32VE4LH6lKZL5BR2wc3EcYu3
CJT7K4sdDJjCxhmjurt+iMB84fllcbcprCmZdUx2iyjIsmT9WT45hZ1b77v1
NFIUzA+O5zcfnsKqnqXe+rQqCjdCFeM/7J3CUh8c5jp7TQzeV7j7RW2bwqS2
XLw+xbMJuqgZlm4iUxjzku6JwqJNQDcdUTvENYVpDgRKKERthgP3FQSklyYx
TQ9yZW6cOLg3u86uDU5iB5JaKVcXJOCJSHrDn9+TmH/2jm0CdCmosBn88Kl8
ElPSeN8sFS4Di4nysTH5k9gp61vWx8ulQa73zAWPtEmsoNssIbZaEizkUk0P
x09iRha9z5VfS8At139KsuGT2Pav2tN7rMThQ8YWbtbLkxi16u6F36c2Q/eE
03ibyyR2PSilSyNmE/CovKzOPzGJDTO657oHxAD59mTE6U9ian3PtjpZioHn
Z6k7XnsmsYARt0d1zaKQsOpwzkh+EtON5crWOC0KVSjJcKvQJPYuN5Navy4C
yzc6txE5JrH0L1rs8ckicOzOAQaMTWDuou6fSUYikMkorPWrnsBi+rbETqwK
A/XxvntK7yawbQFj3a45wuAq8fnowJ0J7LWe4UCepzCUpeyhJrpPYGwFyuLM
ncIQ/EE1gr5jApOvl1gTyReCDo0c/TLKBBaaqa2UHiwE+7Fd7NdHxrHhcN7J
f0eFYL5q582xN+MYcdjU22NMEMzN3mmnRI5jN/IM/zMBQXj/ezuLrds4RiEW
XiU/EAT3f1uv/dw2jp3OiNsTcFAQKs+91rzFNY6JLskQJjcJgvy07LLm0Bi2
yylCFhYEoGdd2u9t2hgmmDHDx/deAKyEN1+IlB/D6MH73C4oC0Du86dKOhxj
WNiFLNU4hgDwyYqOL/WPYsnBr9vC5vihZpfQOdfUUcyeZ42YW8QPB4/wnjaQ
HcVSv3kuyVvyQ1LdPRkW0ih2eK9wbekBflg/Qe/J6xvBWNm5bo/J8kO+M8Ve
/tUItgZ8iZULfLDzOukku8wIVhvOZiuRzAeiBbWPBokj2H0WO47eu3xAmn/a
XNk/jD2kCFivB/BBm8du83tvhrH5U9McyngeRtramwjvHsZm7e4rqfLwwcD+
z3oK2kOYrMb2MxXRDKi/fOsWVWYI++F4L70vmAHFH01KxolDmEuhvovaRQY8
3NHPzCkfxCBye/4FSwbobuLbv990ECtZuX1vlwQDklbcdxvbD2Db5i7KNubz
wp09GheUtQewyW1qXfkZvOB3kS2bITOAvSl6tfQ1iReMRx4rtvT3Yw/0XTS1
Inhh7W/ZVgfPfsw82Jqt6hQvWBdISnhf+4cN7ehXSGPnBT7/RsrDp73YTMz6
raHzPLC4scQ7EdCLzabxS946wwMdoRLCBta92FOR6Al1Wx5Ii3Pbsizciz2K
rczoNeQBrWyWA3YPe7Btds75JvI84Dqww1MuphtbI+i2mZdzg7Gn2aVAr27s
zkutYmY+N6jO+QX8NunG5r/HSx9P44Z1QkloJL0b692ee30onBvixE8mjt/u
wp5ofA/5dYQbrr8lJ3vQOjGF6E9LUr/pcPizxTuJnx1Yluu3k9r4for/R9Ln
usgO7KNi/NugQjqk96jXq3F2YLSg2XrbZDo0ijixrRPasW2acf9FuNNBIfzL
6ajFv9hr1rEBZ046tDi7K2T1NmO64hNr/uY0KG433ZOb2oz1BlJ9SwxpkGqp
plvk2owJDZmrSmvT4JLBum3VRBP2MfI7q8ROGvDsiI4ZWGnEniOVawwuGhye
yVmU4G/AWvM2Npfj5yFl93iSfEs9dtducI9Vwf/O81cZO5/UY0ltzK4V/LzY
36y3Y79kPSYysOPWtWQq3ChosbfaUYf12c79cgmmgg/bwl2piBpM5GrT3A9d
KujOYa+VuGswrUzRsrADVGAMhH898KAau3HkL8FaHT+/VIrOnUz+ick5zkWq
bcXHj9Gyif1ciSneE/b6QcXPc5KhCmzDZdjLPv1uoz8UkGOY6PJ6lWFzqRsb
ig0UmGUTtpOY/469PJXYJ1lNgZiB9BhNwndspPbAP82vFKjMrF68KFqCtaZw
yBx6QwG/AIWoigfF2B66/b/XgRQwHp9szkotwma1hvYUBuDjO+ZJPMwrxDqr
Dc52+1Cg6bDue8c/BdjdbC9HO3cKqIjYNa5sysMetmC10tYUIN/dsrlHMRfz
avsgU2xBgR6WkdPlWp+whXm6ndsx/HkG/RbiHHIwb5fZuDkDCnScl1GzMcjC
DE5ZX2rRoMDdE9llW93eYZa5f84uq1JgPzpgNXf7LabgEnNm5y4KPKGfuBL1
6zWmUtj7oGIbBSzfRX4FyyTM9d7rm9Vi+P0VlFJFpxKwb3wV1/2FKXB2yaAi
R/UxZj3ZXqQuQAGZ+Kvc/V9isKufunf8o1OgNkO809zsDJYq6j/IYKMA8b8j
kuEHjVFYQYSoIQsF0ne+8KMWeKO/Xi7/YtfI0P7HNSvZOByp8/FdPrlIBmlN
ddfzP+6hE5eRdcscGVSMg2PEk+6jYPFFLpcZMvhlHT0yKvwUSdoWUgrHySDa
pbL1eNNz9Lmw9ErwKBnsOO8S2g2S0YkrFnNWw2Rg2Xux8yApBbGz7z6k1U8G
3SfoMe/1DHTxXLN2XwcZHnz4wKFnk4mSgzraNdvJcPEfQ3P/5mwkusubkdpK
htK1kPTzK++R+VeHhx9+k2E0AnOIGP6AJCCZ26KFDAKCS0Iv/+SgVgctH3Iz
Gc7sdA9tzvuE7nJa2Wc2kCGqIOXAZGou4rohw3hWT4a8Q52zXA/z0GL5CC2x
jgxd9cIZMiH5qPjW4XMfa8nAaW/mdODSZySyx+Ng+y8yKI/cFj3hVICCn0pl
i+A+6fe9zsvsC6KJ1lS51pDhBttGeKR2IRI28n9fXU2GN/c0mK+Ui5Dpg6qr
eriJpYmFHKrFyCor3br8JxnsF9n3ntuDIXG7R0OOuG0F86xdNgOK3BtsIoA7
MntYWCQR0BdZ3ZzOKvx5DcVbKiW/Iv+u9/u/4e7rO/bg6ouv6PbHB/xFuHkD
Q47v3PINbTb/7FyLW0vkM29Xyjck3TZ0YhX3uZzRXzHyJUiIdU1EGx8//qhk
1MH0EsTu0tzyHPf3geNGcwqlqEnOAxPAn3c6OIz8OqMUCQbXbaTgltj0pdxq
53dE/rq7wgT/vka546Hk7O/I6tg/Iz68Hv6m0nqFu8rQMzbXokncqcMWbJ45
ZUj77nnjQbyeDbcivkqo/UDemr2qy3i9WSSKAutyf6APnWOpcvj8KH6ePHBT
oxzlLmy0ejSSwfr4llXVgnK0ifGbWttEhrCxEwX9mhWI+2LkxaP4fH8Mu305
vqgCWSyHH+nH+4G7cHp2BSqRsOEe3XNtZNhvKZfzTqcKlRQP9ZzA+8tt8uQF
+9IqJHFpY9yhC++nLV/Hvv34iX4sb5yq6CPDVPHs20uHq9G9f3v1tw2QQfzk
Vje5qmp07EnEx9QhMly+e68/oqYGtf1z3r+C93uKfMkrTdNfqHambrx+igz1
X+cdx+p+oaP8SscrZskguJJ5Ps2tFp0f+OXDt0KGHeXlxsFva5HQl7W/Lutk
OPigR9F6tBYdKCcz21gp4KUkOErxrEMtZxU95bgoELqqVNWXWYee9vaNr1Ip
8Kzi8JuiiTpkG9DRMcuD553TtbPnL9Sj64e5HxiKUEA2vq+v/lIDao7tTozf
jufL6fWSt58a0K0LZ2pDlClgtlv45a35BvTJ70bJIzUKBP088p/65UZ0Xiv7
13YmBf6y5LQ/vtKEhjjMdaRPUGCy+mehd2ETChTRUD9oSwGOp/1Pj6w1oZul
Hmt3nCigqiZqvXa9GVVvHD72zIsCUa7BzQ43WtC2UBLrtzsUCK9i/dRX3ILn
BVXz830K3FC8cf/sSguqWfGz/P0Ez+epG6Zel36jU9IngqLTKeDgf6sy8Mwf
dC0w//VSOQWsW4npbC//IIv9Dq3MOgqYHwgJC+v8g+jb5JY/4u8HA9ZQ3XtW
f1Hfil+j3AgFdkWEFT83bEUhLZekD/FQYccIxzPpsFYkFfziI5coFeSOhl9J
LWlFucfP+rFsoYIob4RG5v42VG1zf8ttDSoQHkd+KNrZjh7cZP+m5EyFxrS7
qW2MThTTOhaVUkaFGjI9xMGkE2W1iY0LNVKh3D3Kqe92Jzos9vPxr24q2MXr
8/gSutCJL44V/OtUOG5jUH3tShcKOZWyS2YfDUzvhhdij7tQkf11w9HDNDAu
Ln/Lmt+FVNI6eDitaWAgeTgyZLYLeWtLxaIrNNjfd1j/rkc32nF43mD4Kw32
CkSq/7rdjfxjjPbeaqSB+qFKWd433WiN5NJ5Y4AGymmGxAf93cjnCXHbZzod
trgf+Zpg34OsW+Ou2TjSQerZ7eyOaz3o+lGiuudlOojXVCVKJvSg/QLRX9ai
6CCsbHT91e8e1BBEeJZSRAfarJFmxrFelFkmkX5Piht4/u528vPuRXdufsrW
1eIGfhC+rXO/F4XIKH/JP8UNonf6/v5u7EWJ/FtMV+K5YeuWqwEkqz6UdmVf
yBCdB7aTHV/UXu5DX+3nZHMkeWDnpH7l08d9yOx1ynUWFR5QK+QT3d3ah64+
35KidZIHdMzffraz+4dmrxWtUt/xgN6+mO5tgf+Qh+9Vq9wSHrxeflxzifjn
mRw5Uq08YDKqc/J29z/El/wy243KC2b1W4MtCf1oS2zAjIMcL1jm09OlZPqR
pStbjqE2L9jc+ruY59yPZhTOpO4J4AV7N5C8GdKP4r9oW9nF84KjaaqBcWo/
ChF4OIfl8YLrJu/4voF+NOkY2hCzzAvuBCvI4hxAu9aMBvaIM8Br8MBgwLYB
pJ477R1ykAG+H7k0eM8NoJHLHz69vc8A/ycT9m23B9DxVcXi1mIGXA1qCnud
MYC0mzr+OY0yIOjMlyzv6gH06tu+kuBNfHDTKLnlwPgAuvKSOnvVhA9Cd4dt
cHIPoisuk27pIfj+XthDvlFpEDnYn/Jyw/gguk/Dz+3CIHrjsFn9GeKHuErx
RLXYQXTtSE3Y0TB+eJRN/MGSM4haY3doSDXxw5OHw+NVDYNIQkhDYruCADy/
Wiv4aHYQeQT/064OE4Bkx1wtR4EhxLx44PrfCQF4ZZBwRlF9CB0Z3qn301kQ
0nbeiFq0HEKzxprvNg0Lwlv+s7klfkOoQteTe+CWEGQuH+2Iih9C2lxHWcUP
CMOHLhV2689DyOqg65EtkiLwqUxkp+zfIZSr6k87pC8K+RkbFpPLQ+gbXfGV
yKgYFMb+u/ZFbBhpWKrfP/JTHLDLVSmh+4dRzuOy+ZPLW+Cb3fvqY7bDSJPT
5bnKUXEo0300t+k6fn1IW5xhohhUKFzbPPh8GKXmZ0YbkEThJ4+TXg42jKqs
bP+JdwpD7byBx/WuYXTQZiFQckkIGtp2PjjMOoJqgsJdljSFoPkbfxG/9Aj6
tZ7SJP5UEP6mLfd16oygnKPrymRuQWiP6qK+dRpBD2PmxdpiBaDrUpmq760R
tDSVdUVLRgDaykmiaa9G0GZGkUUcxg+/N+lt/CkdQTTmTymaMz80et3qo/wb
QfQm+cz/uPmhtrSk4gBpFMnIFZ2IBT74KcyWdV52FOkbOz1o8OXD80YnLllv
FM1v/vQxaBcfAP9XO1LoKGINFW4X/sCAwrMsuntSRxFboJGFmh8D8gvRNtey
UdRjto0ojBiQ7Vw885N9DPVPiE3LN/NC4scv4XFhY0ikRE5/XowXnnCueJS9
HkPhK5RHflM88NBm3/HFH2No8tiNT6fKeSCK+HmzDec4mh6OujDqzwPXzXM/
yESMoxTyZyuBRm4ISJt7ZJE+jgbMXmypi+YG31XVa2EV48hBoXJIzYQbPF/l
6I9wTaBrqxSNpFo62M1mt32InEC5D56qt/fSwNpg8mvfmwn062y9Qd5bGlgk
KL0WrJpAmz39vDMu0UBOukWjiDSJjv2Mz87FzzPilRZsUocmkerav1QxRAW6
6PH4wbJJNNJqFvgI339QS6cjWVsmkRWb6L60V2Qge8ZeEx2YRPfv6HabBpCB
/VudoxHHFGo9f/eqpTwZ1l1NFbP1p5Dxs4idef/7HcLno9/8yqfQn18Xim7b
cYIs149LV1qm0Pe+5pZHBzjBxoopH9g/hWoujGHzmzihcn73nVDiNKq68kk+
pY0DUlSELR8wp5FVk/OZGHsOaLsRw/nYZBqtnOL0YdHmAEY9+UuC3TRaOMpp
/VGaA4K81iReXZ1G6V4WWF8/O9i86xn6kD+NtD6fQ9re7HB/9VRC7o9ptHlv
23CWBTtUHmkyLmieRpLd35Vs97KDxvCPnK+z0yjTy865hcAOfPLvrtUqz6D/
Fl16O5+TwNBXTrkRzSAzt1/bn4aRIOh7Yk+L8QzSSYwuXfIiwbhTrH6n+wwS
m/C3idAjQWWSH+942gzacfNsku0cEVgnJ0um8mbQcJKGf0IPETSQm+9c2QwK
75WKtqwlQmq7TetqHz5+bGPBjndECBbVSaFIzaJOD3f/1XNEyHf9coJbeRbl
RT80ybIhwni+KpkPzaIe3bsi344SweaE/HlR21n0MuPYjVVlfPw46t5tj2fR
suLhyGsrbHC+N2RkR9osanEmEAbH2SB198Yz5bxZFK41z5HYwwb8dVMEjaZZ
NNt1+8twJRtM0Fp+HuKdQ0+Cbr8rfc4GcramgYaSc+iYm/qUXRwb2GRU7DJW
mkOv2bcE7Ylkg0rDwocWR+dQpsTroGe++PhhyQ7OEXPoPam7TsCMDRzee2Rl
PJ5DZUH3ZEsM2EC0de/6bPocMtzHMpWB2CBqZ/3TkMo5RAi8L6y8kw18mwgt
qZR5NH+o1LeGxgbKGzWyE2LzqOzYm1kNdjYY3vr00p4d86jkUJ1b0zoB7K6q
MMqN5tHWE/dKEycJcEjG+ejQ3Xm0lDfxwaaZACxHlRN2PZ9HDiGnVPfWEqDA
d3XYP3Me1YtZRaFKAuysjAsn/5pHVw3OHC4rJoDghe8l23kW0Kp16ptX6QSo
fRLDuCS5gHopvlH5rwgQWWr7X6HyAnpy51fPRCIB1oXm142OLaABpMRb9pAA
/cVy+zxjF5CL5YnFtRACJA1Oh+e+WEDXxwazRG8QwJqBtax/WEA9Eu8+WVwn
QM3pEz73GhaQUv3c2S1+BAi/J1Pa0ruAHPdvX8+9SACdzxMMydkFtM03P/u0
FwFyqeHZ2fyLaCSt3lHAjQBe6uYbi1sWUeTvP84CLgRQcJA01lZbRHs/LoUr
ORPgeU7+SJ3FIkrKD7LNtiNAqPWQ3MzDRbRjj0tbizkBmLc++Wi+XkTLgS3X
E8wIsPwuuPRm3iISPv2j0c+UAJ6soo78vxdR7WQC44IRAbZu78+2GcTvt/pN
M8qQAD3mHzZeLS6ih2XlT8CAAJZphs/URJZQC7n3vpMeAXjqBUevbVtCl+vj
AxsOEqBypWdf2d4lFJFurntChwBaJld+W1ovoV6HWJ7HiACLl/XlE92WkNmG
6WVLLQJ8eMHnOxCwhHzv+frLHSCA7PxbvstPl5CdcZ7o2j4CCH8/Jv32zRKK
qnu1nw83OW5BuePzEur/uPhIYy8B1hyfId6KJXRr5/yMuwYBJncdNNb9vYQs
HswLZ+8hQC/LkI3fwBI6F+NYy4q7+VfUuTfzS0gx6G3ff+oEqHiuGtBOWkb5
FD2pWjUCFHr8DecRWEYvpp+bGeHO2h/06OCWZbS+Ln6oWZUALyhyqb4qy+if
glilB+4Hf6s+pussI+/JhncM3OHpF0rajuEu9fxaqkKAK5eF6rn/W0Ydnyeb
buL21C/q0vFaRo+M9haZ4P5P0GnCJ3AZuZitHd6K2/wf53pa1DL6wvPNhIZb
/2Mmte3ZMhLz/f1ifTcB9t00F+N+t4xSfKyEV3Ermi1v0ylcRrtubQol4ddL
SiVp+FQtI221om+iuPkm9fTT/i4jlYU7KZq42bERi9ahZWQ6dp/9LO7FuzHO
9KVlJDdwuzgR94jNnovanCuo9GJbag/uju3twZeEVpA1z6PHyvj3q12+Ef1a
bgXNel28EIG7pGJr4l+1FSTTW8U1hjs3vuYdTW8F5ZQ/1jqF1y/d5VIh03wF
NSl4jzbgTlAXrbrotIJUnW9MWuL1v9F4evBP8AoSWfjnfQWfH5+XlAVqzArK
qvbK3ITP51nv9yRm0goKdUgo+IHbmGdNOrV4BT011fy+D+8H7c4Xu/5Ur6C1
esUQgiYBVDMNmNT2FeTd9Tm+AbeIUZyt98oKaqwVPhiD9xdVbJ97CnkVnftg
nXgN77/1oc6A3yKr6MVW7r/eeH/2hW2P19JYRcpTBQF+2gTILvlWT/ZZRW0n
x7z68X5/GXu2+8CtVWQnf/K7oD4BHv5Hn/S6v4pU34jLmODr4+rGSVrL+1X0
3rfpUQu+fvQ1p/Rfjq8iD4knZbr4euv4IFGkeXYN9Uw+cL5qQ4BqDW8Fab81
1NYoxi+Kr9/C4tJHnKFryEAkUb7YngBPK129m16uoW7mnl0iTgSw6smRP9+5
hhrKpFuF8Xyo4zWIfWG5jgitdXlK/gQo9fJy4dLbQLfbh0+bPiVAzvy3xonj
G8j1Nof102d4/14V0Gl23EAxf6vrhvF8Cw4v2PQyaAPtU7+/6RGef1pJxPr9
hRvo1drqb5lMArS5GInni7AwY0osVInfCGDxqCt8JJqFaSHu5fN4lABR+jk0
1scszId3ayYSJghQvhASK5jMwvyguKHzahrvV6vtCdrvWZgqqpGGxYsEEBfx
zXpUx8JUrDErFSexweATSvNBBisz4ZnUUrg4GwQ8V5dJuM/K/KVSNVZ6nA2e
p9wpMnpIYJ78meh+oIwNiKc8xkj+RGa7stiGdjYRahzSX5vdYmfWpss+LQQS
fKKJ2i64czLbsY/X3SvYQe6J1CCHEZkZ6rITvazngGXfW2tvj1OZRmE/zA3m
OWFkWYyepkFnspsxPixzkiHJJaxRTIaH6a4hGf1DlQLR2j/viMjyMkMzdd/u
tMX3U+ff6pQIMJgs0z4ZlRdpUKybX5Qrysf0J/kLVr6iw5qHvbolnZ/JeeUa
ifadG1g56h9vX+NnPpkI2zx7gQfUDby/GbIIMi2vZHxP5uGF5baMQYFpQWax
5r5ouzRe0HUvjz46L8hM11u4TXvLC3dXejVClgWZpJtnuwvf8YKkqFjELEGI
yX+w/cmmHF7QPxGxrYFPiLlyx8asq4gX4upOu0WrCTGDFazk/Rt4YWeZ+CjZ
X4i5ViItNrPOC5ct9sXpXBNiHt1SwJXJyoCvfRb7A4KFmDn6F+1ciQwwZ7t7
ZyhCiPkrYFazm4sBV5grO8qf4NfPjNc38TOgvKDFI6RQiPlsWKa2XoEBDMMZ
gSIQYnp+e308TpEBNn/oxbOlQswzGVt1LZUZMLGgR3euFmImzw56tKoxQFDt
Y6ZOhxDzh9bU5DCTAQ6lvywDeoSY7fsHB7Pw82H68ZH19/1CzLwQv2M+hxiw
31vaRGpCiDnApe7LasSAUFatBasZIaYUv5lKuTEDaqNPJkYvCDHJnF2O944x
QFTSR798RYg58eAE6YQ5A/7/99xM92llMYkTDPg/iv7ACw==
     "]]}, 
   {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwt23c01f//AHB7Zd17rXt1ua5NJEpTr0uJlKiM6iNEi4hUKCkkKytFRHYi
QlIp4/0se6RIVnY22Xv+3t9zfn85j+Oc93i+nu/n+ONK2TidusTCxMQkxsrE
9L+/tjnhk5ubopBQfb9AqIUEQqsUuf1rovCY5sMp2kyCsiOvLFyXRIE5nvkL
+TcJ5Lo+V49PiYKCrYwB7RcJRnn/prT1isJdeo24+g8SONvvOvO+VBQ2q25l
Xq0kwX3ZdrjsLwpEyXcF9AISvIiVjvjOLwp+2eVVTS9IkNAd4HSSWwT2zp5f
v3iBBNZbuH54sYuAFu3U8QRrEtB3+6vmMovAtFH21nYrEqSFPvrHvyIMmiPR
OictSZCt5XOtblQYAneKvtH9jwRFsR5X9OqEoe0hktQzJUG7+XUrrTBh+G8P
05XsoyQQ+XnaSFFYGLhocjTqThKQ6+VbrhGEQWLrGIunBgm21q1aZvMJQ6XB
OZdOdRJIVaVc1+AQhn2zx5cSdpBgG8yGaC0KAcVUNl15Owl0cp/WnWwTgsIG
/d/nlUjgFP7r6N2XQuDRp2GxXYoELqGvG4pihIDZWd0yiUaCW8EeZzcjhYBq
3zdPwn03QNrON1QI3h3xHVqRIIGf182A0AdCIClN6fixlQRxzqTK5AtCQJcJ
MowSI0GV8enDtbJC8Pkdz63ngiRQiia+KpISAsWF/bZE3MHdDezZVCEYDJTj
DxUggfF148pwYSHYm1MT7c9PgtbHhgZm7EIge/l38ENeEgxX6Bn39pPAzU3J
MIGLBAb8nO8ae0gQJpSjKIc7y7SCUNZBAlHml1VvOfHz7T/8K62JBL8qrxlh
HCRYYtYxcygjQa/gcPAYGwm4tA5YLKaQQN6RXdGOmQT2vqtFwwl4XOS1rNeY
SFBX+4XaHkuCGkKPdTju8HN7u4uekkD5uQZ82SSCmLumjc9DEvRd/sxK3iCC
wnu1q3y2JFhzTmZbWyGCvqLsLWk6CRbfhGhYzRPBgnNC5hwet5u/51cJuJ0H
Pv4Op5Dg8Kter/I5IjxP0t+9QSTBieTur6q4B8kOK62sJBi4VK7MM0sEX573
XqEDRIgKy1vpnyJC9LDHjvJeIrxulS9KwZ1VcbhvtZMI1Npchi3uXz7Nh+ya
icC/L+tZ/yQR6KvLHIcriWDkQLs1NUGEr2OMkOV0ImzOFDur/CNCUzX3QbVX
REiL8I9aGifC8OvGictJRDz+h/zKcAtevGjcFEOE924m5Za4rTv8STlBRJDS
1qmPGyPCrS/GZQN+RHizm9n4Ou6AaPLtrQ+JsO0xI4GBO8cksznQgwjFmXzp
Q6NE2Kirj7noQASwiXBCuImZzw1irxKh24PFXhS3XKD1asNF/PkfRu2aGiGC
oe6MBTpPBFIyi04q7rhiYRrlBBG07g8fEMGdG9v109iACFfXXL7PDROh7M5r
b/8jRGhm+6PehHts196/cweJYK4ufz8S975si7Qf24lgcmtNmo777W9BtQ/K
RHgRnrSLHTdtvezzC3ki1MR81x0ZIgLHcZXvlySJUFGvdjEf952bvWbHxPG4
OKbejMU9/iKyR00Uv36XqO9D3I0j67Or/ETQK7n3xgy3LiHPs5eHCMKfs79q
4y7Yc5mzkoMIOxMvdKjgVramPMliIQIzx+5VCu54/3pKxAYBKlkaJLhxE3J8
Ut1WCKC1q1FvaRDPh2ZN1fMLBJAv7XQdxm0vm6CtMEGAF6opI7W4O4+fruUb
JcCrzVeqGG7jW5ymswME0BPSvfced2lsYVdrLwESteR+pePWLHW6WtJJgD0t
kxoJuDNGpWdS2gjwsFI/IQr3VmKrR+BvAvh4tQqH4Q7bG8zu1ECAo0x60QG4
WS4wwky+49drOCD/EPftgDmxfdUECOO1Lb2PezgnPVmynABrZraOHrj/a7HY
xv6VAIyBIdk7uOs3BD+OFhGg4G7sPzfc2nLl6GcBAeztFcv/53zDO9Uf8gnw
5LnWW3fc8rdVTsfmEkDX1TftLu4Xcb0dXlkE4ObNfOeJm68s8vLldALcmrL8
4Y3ba+zo1LFUAmCGJ5j8cc8SN+7sSCSAW6+8bgjuy/vyWEXjCLCx9iL+Ge62
C5dD1p4T4ISfOd9L3McDKaJ9TwngvsQXkYYby61PrAwjgMVFJ5V3uNVbfZTe
PibAwRsqPUW4X21q5kf4E8Dl/Mqbatxi8mNa7g8JML8RENqC+/GJhMrzDwhA
LQt+PIh74/bpk4c8CKCe/zl5AfeNl5x/FNwIIOdc1sSJn39/WeFF/psEkNGw
of8vP2pIMu5t9vj9v6mSdHBr7W9lxi4T4BB/7Sdz3Lk2wY9TbQgwdOH33eu4
o97NxTudI0Bkj7BVAm7utnQFUzMC8LuXeH/GfY/pfN6+UwTwnv5c3oTbxqi8
nN2AAI3akfn8+Pfw2/WO0ZguAVL9x61VcOvHq7T91CZAceijHYa4Vf9Fjsfu
xV3oohOOeyXoMkldEY9vkMgeGfz7zPZ1KleSJcBqh5PlMdw2993dpKUI4BF5
IPUm7pobQX+EyHh+LAs+qcT94kx2yiIX/j6u/1g98Xpw4tQn0yk2AixEy+57
i5vlOHCOMBFAvCY5sgu3PWq81r4kCM/FL2CH8XqzV25Bo3hYEPa9/jYjgder
ccnNgQ/9giC9MXvlDO5EMld0do8g+CZd5HqKm4uPspbQKghlenz1W/B62Dqr
VeZTJQhvPf96b8HrpfvXRyb66YKgs0bcexivr9sKQzm0UwXBQbqgJBx3T/7z
gr2JgpDyUvBeF2799IytytGC4JotmOQ5TQTRsO/9fAGC8B/LyJuaGSJ8tBC+
/euKIPQM77qdiPcDezMJ+TpbQbAhV7YwLRBBwli+rcxKELaw7Xxgg9vv0F6t
j+aC0LuFPVFxkQhmSufZY/QEIazUXrtyiQjzi6mRlvKCEBjCUc5YI8K5gE/P
46QFYemT3exb3CBWE9MuKQhj2Q/1t64TIXjv5EszMUHoFC+3W8NN99ibdoJb
EHa4ML2swftb4lqso2ezAMi433dIwPuQA/XrjeV6AdA0GbeUxPvn7oODt29X
CgDf+42HibjrH6jddywQAIMt0nZp7HgfZCkPPf9CAN4u830AvB+bc0/kaFkK
gNPZUhY1vJ/TlUj5n80E4Gv62r1S3BMGewp2GQnA52s3NM/wkcA32AdUGALA
bn7M/hE+D+QJiDZQ6QJgIh07PoHPD/wijJn1AX4Yr+gW2hTG5z96xM4SR37I
fPm3n4zPMyeaQ0afX+KHslNSw4O4WwMDE2+c54fZ0k2fD3hfHp/y4pU15Aeh
8YO+5jIkIGFO/Y+38UOK9JXf2fIksPnP8NnZMT7Ir95XmKlKAqZnXHNzV/ng
j5eU+JAWCYL02N7UW/NB0M8bl0cO/m8e3bRKP8MH3GU5zv8QCRRsFmv/0+eD
9hSNyhVtEhipDaZ8k+eDX+XWSUpHSBBfV3o6fJAXKv05dvecIMF+9gfvlS/y
wqyDaXQWPl8qDIZwh1vwQulPS4MmG3werIyzmjPhhdT0qvR1fM6YCviypViX
F7aFxTqZXsbnTd4F2xPyvLB7+zM98jUSEIUchW6MbgHmsy93z97C5yf6f7c/
Om+BicmHxOVAEjSz2tdS7LbA2WMqZWcek6C0313qwYUtcEgj/tiXYPz50qK+
653aAoPPrHp9wkhwWqlRtk1jC4yevGGkFEmCkh1Hm1cXeGDF+eDNX4kkeMbY
vVvbkweeVRuIxHwmAWvFZGftbR5I9hGQUy3E58tj6b5m13lgq0KmXHkRCU6a
kRuvWfHA5qIl0zKGn6fDqkOUNg8U/deO3CtIEPAcSx5j54HKdym6zfj8fm9C
jz8qlBtkzI97iE+RYOwm0weaPzdYv2N+Mz1NgnPLBf9lPuCG5WtRa9WzJNjL
ppQBztwgenOfkPciCRbIvIfHTnFDbF+fFvcmPh/q/rzDEOWGgV3c7A/5hcA2
7szAaAIXyA9VSStuF4Lw/CGtX8+5IPnR0p3bO4SgpM41qjCMC6zkM1+UaeBz
9fozveAHXJD0uFT32h4h+Hm+IUPFigv4llKD2rWF4KCkwXVnCS6w2J5BPmQq
BOTk/YvzcZzgLEKzMrovBEe+1Bh1PeOEGk+FXSteQnCr8Wx6RTAnWG2ZUEl/
iF+Pxf3s83ucEC+MPeULFAI/2/zCPRaccMb2x6ONp0IwJ6Pi5SHOCUuebUUe
b4Tgx2sJbuYXHHDbtVBjBZ/zrf8B860IDlAlTia0dwjBjLrtymAQBxx750Uv
6RYCoZLXY3UeHPDtkZdr6IAQnGlSq48+zwH5TDvemkwLQR/ToadqUhzw64rP
+h1uYVg4e4Vqnc4OzM2p5w4eEAb/BG6RX4nsYJ60HO2PhEFsIJP/SAw7CAY7
mzTpCMN+56lN5SB2GPEYNXY/Kgxefnf6Fq+xQ0uqQdmomTDwvH/8Omw7O9xh
l6m+54LvNby5O7CPbECTTpd3zhKG6/0KHWHZbHDuiamkd64wlBQl+VmnsQHl
mlppVL4wnHd8+oc5ig1YLrnJ/iwShrh610eHb7PB6WRsyuO7MJCfaLVVa7BB
kqp8etGkMAiJ1Ho15bJC55U4It8eEbg4cUj5VTor7OjP4sIOiEB+RdHv24ms
sGbk5OyqLQKn3bKVRMNZwb18PXfeQAQiWp80nXViBb1j7MWaliIgEHtGoVuF
FQw+C16pfiQCPLTBHyNvWEBdMPvGlTYR6Ijjqu1JZgE/Eebaoi4ReEtWrmh5
wQL3WDrMxfpFwJjkXFQexAKGJs9U+yZEIIpjJT3JngUsPsiXf2UTBfo/Pp+z
SiywNFHpVbBDFPZ/2bWzOoMZvuopD1eGiwLv7jPbIYkZDudkDsxHiULX+7tK
n2KYYV5g5ZTyS1HweYvRXgUyg+H+5TdZGaJQlXiUz9uOGVj2PI3mwfdeE//z
g3sUmaGcbyvfwUVRcDB5FJ2ezgQGzmfluy+JQdLGFw2lJCaoU9ehPncQg+b0
qfrMGCYo1dzPZH5TDBjr/7HnBDFBxw/mrxNeYiCUpu7ywYEJEuOa4h/EiUHx
Yvexb2pM4B7+sEr9txhs1by98enGJnaqL7L8iCEZ/IJ6dhbabGKBma/kxUzJ
MNV17FrJ6U3MxKjActaCDGX+9NayXZuYx+3ZZ5UOZHBs+/GuYXkDM8vYqTIS
TIaSe0qXxrw3sJZ5b3n6DzJYl3bXSkSsYxJng88yW1BAT2vpUqf3OnY+pVd9
/RIFVD8JMsXdWMdsOWN7OJ0psPZGeyf55Dqm6WBz2MCXAtERKXEkwXVM7Okd
Mf+3FPh54YojV+ga1kLPkmBhFQdtpkn+mcBVrMSJSU+hUBwU7nJm5N5ZxVpT
ZWwMK8VBcE7ykJPdKpbzp6rX75c4dA0Zu43rr2Kmv50Xdo+Lw90fed2DnKvY
LvEJjhiJrZAX75r759EKthcL5Qrz3wp0rY2T5d7LmO7Z+46nHKjwk6C1LcZl
GYvuX9Lxv0uF+4MeHI62y9gNvf3WzQFUaA9b/iKku4y1ZtAayl5R4WnfnPRF
rmVsaUU0ZLyHCmwBY/MsYUvYazt3kRILCcizUPrZ/GAJmzMsTStzkADrHXZv
3jgvYR6FQ6Nj9ySgqH3Q8tSpJaw82fp+/EsJuK3SV5kkvIRRv31lS+6RgMHG
1hhG3CL26BlbT7yjJDx7LXpLKGQRm67Otpl+IAk698xODHsuYs1xyx2OEZIQ
L9vEEm61iF1xC44c+iQJ5u4/rnXTF7Egrfcv77DQoIpaoXU/YwGTPGrrSzKh
gesMm9ipFwuYnPFd5WJLGshUHpqRfbyArVsYt/vY0cDL+Wvad4cF7GyQctjF
BzTYU1okQFVbwJ4bR4pFZNEg4+r73sKP85jt++w9KnxS0GSTIHksbR5bEVfz
WKRIAdP5x+fbI+cx9ovdaEpBCsxO2rYt3ZrH7hrR97joSgHLPlLDLo15zN9N
WqnTSwpUdm7yl9PnMZ5/5a6McCk4ozp23IQ4j9XYKAR2JkhBNr20ymV6Djs8
+KWjFpOCc1tuQk7OHLa/3G/0LQsdHrFbbRxMmMMclddjSEJ0yN00OFAfOoft
iVchl8rSgWOOXjDuOIclzHwP5jagQ15HY47itjkst2tDxSeKDjzZ6gkp6bNY
73+Lv2R0pGFXukSnevQs1p784fDbs9Jgncwj/s1/Fou8EBRdfEMaPkb1RfVc
nsV+ReZHh6VIg82DiFCq7Cz2Pla3o4pfBkLu3K/LEprFEjcyBs8ry0DBTXue
A2yzmJfI3tkifRngv6rjd+7vDCZJ9bbj8pOBL8Yzns+TZjDHfVIxF3hlYcCg
q1DuyQyme+x6fr2aLAjq1ix/8JrBImWIPAFmsnB5b/LtJqsZTOMTR4Rumiw8
0Qh9b2s0g6mEkCN9f8pCkcrd6ZmDM1hdZMZ9vzVZINJPORIkZrAcF7H9bufk
QGvrwcxEvhnsyZLoUkWwHFwVURrZvj6NbY9LaH75VQ6eCorIY+PTWIanAFF7
WQ5KeFguneiYxgT/5r9h3ikPI2wTyZ210xjZjWkfcpEHoc22HofCacx28nT2
tXx5sJ99Z/H4xTRWevV3cNMRBYjRnN5/JWgaWzF/8301SgGq7qiJH7o7jU0/
5J/9+U8BFoqcViTspzFj0rvmkOOKIMuU07Zydhqr1upPrs1XBJNDEwXNR6cx
j+cffrxVUAIfP5XovL3TmDuL3F2FTCV4V+3gFqo4jb3a1sJ3l6EMPbxZZvbk
aWx2+8g676Qy8BuP7TrCPY3lpIs363zdBlpPlYTpy1OY0xajwOfVKuDQbDe3
PjyFHc53q5NR3Q4vyBm/2lqnsIt59/0M36hBtcVw3oeqKWzhY7zKQVkNWEqQ
j3hSMIWRedrTTl9WB7m/l284pk9hSl7F7a4OamAql2Z8NHoK47n/3xIMqoKv
3cB22YAp7NwFglR4jArkZckIMLtPYRUpp64vxW+D3knbiY4rU9jKQeZUWrMy
CGqkfC8wn8J22N1wf6KqDMi1L+uZ3hTmkcpk2x6vBNc/SwU7757CTDv2+QhK
KUHcmvW14/JT2GtKzyH0ThFqUaKBgugUxi8mo5OIx3PFp1uRjXMKs1Ea+a0y
rQAng7WI8G8S04/qEbd9qQDZxKKfbt8nsfk3Cw+EjBWAN2Zf2Pa3k9hsXfZp
My4FsJP8bDgUPInx9zz+fa1cHipe7eZNcJjE4r19vAv95ME7b2cg/7ZJbO3L
/p0yQvLQtee9XsWWSczAW7j8brccHMB2cNwfm8CSchU677+Vg4Va1Yf/3kxg
6R+DF58Zy4HJqbfar4ImsBLVy/IHZeXgXasy03n7CUyBgu7Bqiw4DCh41ilO
YP8J3Hta8lYWaq693u/LPYEJNnN4rwbIgvyM7Mr+kX8Y5eA/LOKSLPRt0N0y
0/9h952H62/SZeGMGPVGkPw/7DfJl3ciXQY+xsdu1+H8h/37JVrSEiwDJFnK
xPLgOCbpnKcbcUMG6neIXrNLG8cm0lpFTmjJwKFjhEv6suOYwlFJ1j8d0pDY
ECbNxD6Odb/meXSwQho2zPn7PvWPYSOnS/+q5EpDwcUtVvKpY9gFwoxC9CNp
UL3PfpZDegwTyQmd5NCUBsqXn8+H2cawmjsrj11kpIF9Iba5ZnAU8/Q8UrOL
JA0djuomYW9GsVrFjv2fpukQdN7KSEx9FDPiOvTyXB4dXGOUQldIo1j4q/0F
mil0uPB7vq5jfgTzfGYrZfaMDnsMgw2SPo9gyXS/XjM3Ogwd+KyrpD2C/anA
CCoMOjS6+/rySo9gITtnuyfV6VCSb1Q6wTaCCTGI9GG8XkZtG2S8rxrGzjiF
X73JS4fDW0kHDhgPY9lbH3f9/CMFiasO6ieshrA9N2a93vpIQfDuPTfUtIew
q5Gd1nvdpcDtJmsuUXoIm2NVjRlxlIITYzEqLYODGPPQX/b8s1Kw3l6hYH19
EJvTrGvtUMfr+ReapIvnAPajqX98apQGRxbGzptYDWDeDI8ilz4a7FD/FKep
PYANlUYpCrTTgOuNIWWVbQDrjuPljKqmwceYu8K+wf3YL3pu3o8MGpDuNG2J
iv2LjYYHh8dep8HS5jJh8u5fLN03XoLpCg26/CTF9M/9xQ7dVGm/Z0WD9Gf2
MitifzG/p6Pnio1pcDCXScsyqg8jZITEGu+kgd3QtutyT3oxmmDq1NSGJJy4
furWA+deTHhHXo/TjCTsnHe722rUi7Frsx8RHpSEDZZSvyD+XkxaZPFew3e8
f0ucTZh43IOtaibFsyRIwv1MniRHvm6MuYMxNKwnCUc/m76VrOvCNg0HAl9o
SYJQZeLnhqAu7BQngeigIQkZfZqNu7i6sKhTYd6OkpLQRLZl3WDpxC6uTQj0
LkmAUkDhpdCldownTPeCwTsJmI/kcGF8aseqzcixzekSACkn78/cbseaPs5r
30+UAFNsKMpstg2TPrwyIREuAV4LpCqJiVYsvJXxOcFZAlouOijl/G3Gjo3c
z3bRlICSTuPdH9OaMQrLCRdBNQlIM9t1uNiuGatStr9ZqigBt/Q3ztdO/say
vslmXaVKgOC28CdDq00Y/wO7qCx2CVhMvRU/UdKEMc0JdE1tUqGLejZz3rsJ
Y25443J0hQpZAvRyVq4mDCnfFN09SYWjs++XJIV+YccYpQ+Z26mg5hDNLt/S
iHm87bIZaKLi+889ouqLRixj6nFVxw8qDDbrbjtAa8Sccmp+sFdQwedLi9WZ
bQ3YSecCv4PvqXCbdTFEKrAeywEOmX1PqHB4Hnu9XaAeS+zOOmQYQgXiUMBX
rcjv2JApR7VLIBWyayjzZ5PqMKnX+vVz3vj1nxy0iPhcg324FmT16yYV8h9y
uiaiGmyJeUzX3Rm/3+2fYdnl1Rg1ZENtuyMVJM/alNY0VGFlp63+NV6mwhma
nxLraAUWlRLCNH2OCnJEo8ME5wrMVWSYR/YMFeZYxSwlF8oxEjH8t70pFZ4M
ZTzZz1KOsbcWP1E2poJ1m0vm0YAy7OjrY25phlRQrd1fbs5fhmFbNNk1jlGh
Jvv70k1KKSbcVMnhfYQK0YlRRJ/Eb1hkQ+0NncNUuBxhtS1c7hu2OtB/U1iH
Cqyu01ZZ6l+xJ8ei1Ka0qOB2Vym0OrIES4p4cdRdkwonJqaac9KKMY1+w4f1
O/HntfkkGfWpCDMXTo/apUGF30cPv7Np+4KNN/sbaKrh51fMs6I/+hkz6hAb
/6FKBd8dDTrbVwsw3ZIrdndVqKBBtmxa3foJ2/LCbZ1ZmQo8ITLUPpWPmECx
rli3IhXff8cuVR38gL26OC7yXYEKX269y842ysekW23XauXxeAy7LT6zfo8Z
32Kv+yNHhasWBxkeN/KwncOPA9dkqcD4yRZ4wecd1viYtFcVt9jh2ga9p7lY
SRql21kGzzcn6V0W+jlYWru3V5k0FULMcysU7N9iHe7BdEXcB5DWmfnHmdj9
+Z6aeDoVxuRqRr6+zcByzwY+kMX9gt/cI/THa+y/wtkjxVJ4fi785f1v+hU2
XjMjfxn3UqdzvDwpFVs0KlGk4X5dvr59bmcy9qZ29vQYjQpmb4O+glki5sT7
PLsSN4/S9jTKdBzG3U7U+YD76rJ+9fudMZhGwl7RfNwVVTbjx90jsZf0I7vL
cEtH3xMYLHyC5ep0ZA7gZvmx7dLGxmNMr5L7gRh+v2JH60w1P19sREGv0AL3
tJjC33LKXYxx0/1aHu6fWRLdJqcuY1VKEy/I+PuwXThGCzh0AqnvumwagTtD
NdmN94sLKmnhfb0Vj0eM+8v5X7+90Kl8z7gC3J1tdjlJJwIQsb1M5zIeT/p+
TTunyjB0pM3qtSweb40T3k8kEp+ivJGDrQu43XIMj42LxaKxE/Wt9fj5UXo0
FE7/jkeVzK8rfuPna8kVwtKpn4QsBUSLJ/DzZ9p7s/sQ+ys0PKnJbr6NCidP
Dhq6/U1Ded3N7ml4/iTbnS168zUdlZ2a3sO1Hf9+X6AYwv0slKfQNcSiToXI
vDxOXYtsJPzf87VYPD9vDhD3H6DmokDWuAy9XVQoW3+U4bT6Dmk8Ypdo2UOF
8UDMOnA0DzUaeQoU7qOCsMiyaErbe/Rdy/7fuwP496Lq4Nf86QOSYtRWtTKo
EPrlldZU2ke0uvxljusQFT4d6Z7jjvqEqlzE7Y/rUoHL6pSt1q3PKI3N9xmf
ARXehO1hpKoVI41unq8eJni8yxKKOHeWIE3LkBY/cypYLXHsvbYbQyxp3okZ
eD0Iyh0VIycAKtvZ2qd5gQoHyZ8JPa++oeVBr9BbTlS49n78xxP5UvQY83uu
jdefaENa6KGMUvTHOzle3o0KM97+PK+zytA78UBr9IAKaaOmrNffV6CmiT7W
lHAq/PIN/Cq5qxKlNwnoaUXi8ZYsftDwsRKpnRUiz8RQ4dxpmbWdX6rQbJ7K
0awUKggUzcytQg1KH1HRtiuggntI2GBgfT3i++HmpzVEhVfypan7jX+gW6nr
LS//UaHx64LNv4YfaLdrQs/WOSqIrGY7pdv/RIVfq/9zZ5YA5+0i41uuN6Ab
o8n62Xh/8FvbXtuf3YDIr/ZF8slKwMvqo2+KJxuQNe8+89BtElBj63nV6UYj
+pJ8sWx+vwTIRvf3N976hdqDTwdfwffrA5c2SjM//EIRh02LOy9KwCl1sRTf
hV+IECZQ4O6I97O6Yxc03ZuQ42uLEYkHEtDO9L4zxuM3InhpM+9LlYBQO+9m
a58WZG5sFCGzIAEBtcwf+ktaUMqnkh9XmSTBR8Xn6dXVFlQX5bPQxCMJbtM+
xs63WtGJa3pG8jRJsL7jW/PgchvKU5TZU35cEs79YctgTWlD5o/83509Iwkm
Wo/8/bvb0MvKKgnxi5Kgz+x3OOxMO8ofKMiVvycJOwL9S+IN/qC2Poc/97Il
YdsY50u6/x/E/2P7WkihJMgZBniklf5BTW3i5o1VkkAhBO7JPtCBfNeyTy79
lQSWmKC8YtVOxOGawGTPT4Om9JC0DmI3qlc7NNtxnAb1PPyPrI260ZWphgNa
pvj+7xBq2/+4GzErHVCH8zSwjNYTdGXpQaYW2yk7nGhw2kL/u6dHDxIolNj5
+ykNjEMCirCYHrSYUc514SUNTpRUZTIX9KAdrzX2ibymgT7taNCjuR603Sks
g6mQBgf6j+qFOPaiuOC2rNl+GuwVDtL88bgXfWCrkRiepIHmkRpZwpteNL/A
NcO/SgO1dAO2yMFehLXkKy0TpEDG4djXOKs+FJzMe9xORwr45o7vzzr5F/Gf
LRTTzpECwXZ1WzeXv+jIpSWeK/j+LwRij3We/kVMyUr+4z+kgBLc397a9BeR
2c+2ycxIgYLMvbvsZ/qR2N9+VWw/HZR5bJJ/uvej49SlhyZGdFCd0quJjelH
gzOcLxxt6bCriERR/9OPHk6+NDsUQgcdk8zPlpYDKJ4v4qj2MB109z3pVXww
gBTM36V8ZJLG39+Nez5hAC2uyHNMkKXBaFzn7OPeAVRR4Kn244Q0nGpU8DZj
GUSPmw9FP7GXBrMC/gwp6UHUHRrgp+cvDRa+7UufLg4i9lc883Wl0mBlD7SH
jwbR39P2s9hfabAxTtM/kTaIMhaMh/6xyYDdVpfo/qFBlHawIfzMMRlwYDkD
OVxDiCL+kVzrLAPOw1rDdxWH0En7apmB5zLgms+9h3BtCP3piXiUOiYDd15M
WnU8HkImvLXbksRk4Z7Xb//XWUPoy9uq9Xk9WfC6XJjj8n0IqcURwnruyMLD
40ktWhNDyGrZ6356tiz4qftvcgkMI4tf30qSBmUhSMxRvmn7MLoWaBG9nS4H
4f173OxvDKPGbFX5tVdy8KxGImFXxDAi03od70zKwfNctkqm98OIreekBAXJ
w4uo0YnaX8PIJTNccDpSHuLv/RR5PjeMqtKTj1rPy0OSzceDNsIjSHki4fU+
KwVI1Y+7rKI5gmSwgNjl3wqQruoTumQ2gmR9xveLnleETKGrH0vdRhBn6FBv
9rIiZK8YdoVGjyAPNwHp9++VIK9Hg+Pc5xFUE8tR5RetDB8qyKqy7SPoQ0fw
1O2v26Aga9N0amUESUlfXxa5qgpFEQOeheKjyGHfDo0tr9QAc6995XdgFJUW
HVSX26cJ3yzffT95fhQlOdyqOn5FDSoOP5/fen8UrYX0Kdynq0K1kid1OH4U
GfIdaTwatA3qBG1132Oj6Ih3cM+/S8rwc0Hf8X7PKIp/2sko9laCXx2qkUeZ
x9A1L9MV2wpFaP4mVCxEH0OU8sgj5vKK0J6+0t+tM4Yib1oGC+L7emdoD2+m
7Rj6r0jmei5dAXpuVex09R1DRurkhp58eeioYqekp44h3zvGx9ZOyUPrVt3N
trIxxDqaWLpvWQ6anH37twyMofpKWy7TNDn4WVZarcU+jsbqn7keOysHdWKs
OU6y4yhWkPLoFEEOrx86z5J0x9Hypzjv8u+yAEJfLdn9xpH+QHjgyElZKLrK
dHh32jh6y67DVofnV0ERUrSrGEeh4/LfbvXJQO7Fktk6jn9IDLjnBD1lICG/
MOCZ/z8Uc3LVbqlaGl5wrTpWvP6H1pOM6IwkaYiy2Hd6qfIfkq3X+Dh6RxpC
2T5TLbgm0KvzJ325tkvDfZOPedKBE0hINcVbO40Od9Pnn5tmTKC7N4L2XvbD
9+O1nZ7+1RNIednLw+oKHa6nvtcb455E9zUmA5OV6WA5l9uRFzSJiMPuHueL
8P1Tf+pr/5tJtEYOLSUkS4Fp3PbXIrWT6FTT3lenA6RAjt6yp5h9CvmbN/pf
MZMCiRpTVqkjU+j4py71PUs02Hprfn6v2RQSVai1K+mlAUUicvjU5Skkon/n
V0YtDURcmr77+k0hFq75Y0mJNOCnnI4erphCmJC06ocTNOAtmwlibplCa62d
2ez7acBzPcKTMjSFLvz02ZksTwOObw02xzmnkZnFq4gPzDTYsDNWydWbRg/j
yA8EXCRh4rPhN7eqaaQpubnlxiW8X3JX3vJomUZWtjH1DXoSYHGGIf9gcBrd
Wxy780gJ768L6sF+bDNo0fPp584pvJ9riJlFMmZQ1NWeSQl83+nwecIVYzSD
Oo/s8P57Cd+PGnkK4yxnUPqXQLZ/+Hzj5bwumXpvBoU8aF+uEqaCxdu+kbyC
GfT9gduIZ/ZWeLr2X9zHyhlkPS+9qBO5FWqO/T7xpXkGSVr+SzhybyvsGa18
/3VuBj1ZjBu+eHwrOO3VvlzOOou0swpH43ZthbSAL2LVxFnU/WdjR7jkViDJ
v/X8qTaLbP1TzR/Pi4OBq5xaE5pFOmeexD3qFQev8oS+lhOzyCa0pV+yXhwm
bCP0uh3w6w2fk6VmiENNohthIn0WWR9LV3h9SRyYp6ZKpz/NIv29D7q3mInD
HmTvOl8xi0rrKH+Hj4hDWqfFn7X+WfQv7bDWmqI4dG5rDmGam0UHOmr3K28V
B6F7Rgw21jlUfT+toZRfHLwpOq+2SM2htY8mP2TmKVBgV2guoDaHXih5iAwN
U2CiYCcPCc0h05AXORydFLAwl3einJ9D29RK509VUGDPM969ijFzqC2NI6st
jgJOfx+NbUufQ+bO9+6jpxRIU998qfZpDjWV+vlMBlJAqGGaZc/vOSRdtPOA
nDsFjtGufdjfP4duB3Btz3CigI9T/xU0O4figa3u+hUKTPK11B0hzKPuayV7
C80pIHfe+IEBbR49Z4utPWiMP09W9Y4T2+eR+YVbARv6FKgxKIoyNZxHdWJt
Cdv24/f3T7K+GDiPNN5kVW6lU8D6nWNOVsw8clTaTOgRpwDlz96NuYx5dLuz
JLtLmAKhqo2xj2rw/0+wFDzkoYD+mfjR7+3zaOxQ3rw8OwVYfOz3iozNo77P
ApNMTBRw/c3SkrZlATWqdYkeXyCD2ma97KT4AsqILewrnCbDqELsrd3bFhDP
Ce2E//6RwfKeBrHq+ALaeXE+WG6ADGJpm9aC5xdQ5LeWFKNeMjT+qM0547iA
2r4Lu6V2kuGI9EXDkZAF9Lm13vV7MxmYDNXidsQvoOMuU5UJv8jwxXVt9E72
AiIdkJd48ZMMqjXPAnh+LKDKiK/XWWvJMDxr3XKqewGFR98tda4iQzJVRS52
cgEd4L7bwFJBBpEb5aXKgouo4mwVf8RXMvx88YR4i7aI8iLvVIRgZAgqO3+h
SG0R6U391MssJsPhCcVcNu1FdNur7O9IIRk2RBc2jp9cRENZxCn9L2Qo0P5m
GHlhET3iF62sLCCDy7XQuM4bi6hTNqny0icybIs8Nybrs4h+jNWZ0D+SYbBE
bt/1iEWkM9fxey2fDInDMwEfkxdRKRL5OPeeDOeIWMtG3iIqf/DyIjduoQOP
5fRKF1FBu6nJvjwy1F8yvx32axEVs39d9XtHhoAw6bKWv4vIKqOnaSKXDDqf
J4m0uUVUy0k+fwP3Wl/hhatsS8izSUiYH/dH3oDcXKEldJr+xqsshwzOmiab
SzJLKPQ6yD3DrWRNO6G9awkZpe5+cg93f+B4XKDuEtKQ/XncE3f8+4KxBtMl
ZP+JNBKJ+0yn7z7K5SX00hItleMmcp4MtHFdQivrKgJ8+P3q1Kitb/yWEOnP
oXJ73H7nRuRmo5ZQSMe5/C7cDN8Pt/e/XkIz3jnuV/H3WXnrXfbw0xJKiq7P
5cTfN7/FkFRXuYSWnz9cL8R9nZliI9S6hGoTK5kf4fFRUB7MtRheQhWS72xs
8Hj2meRtpi4tIV2mi5WnP5DBLN3g5S7yMjI2iNe5gZ+HYKPIuKfiMnryWeld
HH5eNat9+yr2LqM/xdd/tX8mw0Ejj1azc8to/xO+xZAiMiy568kn2C+j4+mp
liwlZMhLJrkO3V1GmZ9OHwnA80V2IZPkHruMrPN336r8hud3+Ul65ptlJNXV
etamjAw8zxbVuj4vo5SNKyFb8Pyb2nHoxOHWZRT58iB7QDUZihzbAwSFV1DZ
9Slv6QYy5Bzwen5IZgU9i7QnK+P5nrxFLs1VYwVduZ53Gf3GzzvjRmnHyRW0
K+DK1ZA2MpgMcG2kh64gZf4pyS99ZNDLz+bteLmCxFJ43Oj497bvoYm4wNsV
VOLdLBM1RAaaVOKe27UriHQn7W/8OBnGLHbf1OZaRUj1Zs6ORTL4NF0abvNe
RTKTS9kH+ClwO2XLIu+TVcRhSlvSJ1Dgqss7dkbiKjrbcNvKUogCJwTX6Wkl
q6irJoU/lUIB8vFn511WV5FQglf+c3kK5JZ+a+S5vYbYLbfXcx6iQFeeZPH+
q+uocpviNssHFPi+x0WJ7raORKFTVe8hBYpKyp5z+a2j6pf8fJr+FIitsXP5
nbKOJlJ7hWXDKHCm7728U/c6+vW49d6RBAo0EPQjks02kGt5k2cAUKDM2fkK
t+4mEtoeQknhEAfT5z0BY+FMjIzhyMyweHGIfxVcfDyKhaGZfizChBff9/9z
/Md+h40xmXusjc9DAuqtM16f8uVgeFgc8GbZQoMPfJTziw5cjGdrSkMp32kg
90JqmPM4D6Pn5vXG7SFSsOLqu555mpdxkyJxK82CDmMr4vzpe/gZ++qvGd6m
SkPiFf8mcWlBhv1oWJ/BP2kI164LJssSGLl0fYsjBTLA75SpUypMZHxsf3Kt
/5YslBwuKP5IITFEfWWuMGnLwbqjlaYZvxDj6V1PkdebcsDM2RijvC7EsCrx
UNhZKA+a+i7fDJhEGC5dncnbAhRgpSNrWHhGhMHWLr7r/VFFOOxQFW64IMJo
1FT4TjZUhJDVv3serYgwVMZUXnkZKwKNIh44xyLKYPX6ImJkrgh65oGKv0ii
jC/09zyTFxXhWcMl+/Bdooyy1c7Q/V6KoFohMc5zR5TB+eZXL/cnRXA33fdM
x1OUcU83gXHniyJ87Tc9cNdblPHkUdD4cLEimLCGBI8EijLmEh6oVJcpggdj
dVvVC1HGcqmqdUijIlR9aXF8VCTKUKoZHJeZUASiwaxwMYgyOhfYTsdMK4JF
G3/JXJko4/DNB3z884owuajLf/E77mvIe2lVEUR25WfrdIky3lVq3WjgVgLr
sh9md/tEGXRjcX99PiXIOD228W5QlLF6SmQeE1SCAy50I6lJUYZeBeNPjqgS
+DEfXDwzK8q4ze1goiCuBD/DzyaEL4oyxtNfyCdJKAGFdluvalWUERRqZkqh
K8H//96CUdQt1vVUVgn+D592woY=
     "]]}, 
   {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwV1nc8Ve8fAPBr73XPRerci2tfIzMpSlFWSySSPSsKEVGIoigjykiJsoUW
vsL5FEVRRhIiDSRk7/l7fn+d1/t1znPPcz/n+QxJ53NH3ZhJJJIrE4n0/6tL
acLExoYoELlWcZVJOFBWNsvuXBWF0iHx7IXbONTvzzl5YVEUJgINtmsjy37/
7/3YpChcyAsfq0jAYYT396Pun6KQ80AphLiFg89pLevndaJgADGuf6JxCJXp
AfdoUciQ/siZcQmHrb6uC1mRojBtFNgzGoLDj+px5b4wUaDdXtLSRd5ryXLP
IkgUqiTCY79fxIEtUilA/5QoWBz0qVAIxOHmj1CFzWaioF+7zbTHF4f0e1K3
P/KLwrqqHS3XA4dC1bSsCm5RmPdXsFl2x6HqLf/TLHZRyD0asfswcs/EUkvA
ugh0tKgJrrjisNmwlY82LgJtF1c/nHDG4d7YpRtnP4pA7KnC6R12OGTodYYL
3BSBll7D4HALHIrbzRKWokVgW2JF28hRHKo9Xmf+jhQBGYnR/mPIvYnFtRUh
InB1koeuYo4DdShi1eGMCPh8uGr05xAOD+K2BpWZioDY4WenL5nikNl//Zw5
lwiQHRarNPfi4MjD2RLOJgKXpVSXa/fgQNeOViljEgG9PKffJsi5cdf+8S8L
g1TixgsnfRxK9CLONI8IQ/B/R+3TdqH93AvxMGoWhlXsHKawE8W/YfndhUZh
uO/UJla7Awf9mYuyufXCkNt0ucUCud40aJC1RhhEFgVNr+jg0LTk7/LmiTD0
wdNrA9ooXsfPOujFC4OAKMO1WRPFI/JfrVesMIwb+l33QrYv9aJlRAvDj9Z4
Jz7kX+xn+pbDhKFepVzDXAOHvy89bCt9hOH37yKnn2o4LGJOxzWOCkNc2V9N
6a04iLRaHFYQFoaAN45m2xg4iH2S+3pGSBiu/PVSmFDAAW9esS/hE4bsqceQ
jyzZ+OisBrswLLbx4TRkJZi5pbdAATs5tkQheXR+ypKazbspwB/k926LLA77
Sjwsk79QwDow1OWHDA7GxTt7O9so8Cgzn8hBPpj/e9T2AwW8sL5ydWTrhxo8
7q8osJflctExaRzOJXw2Cb5PgbRrKqxAx8EvLq+tOo0CDS2WrxOQ/W+G2Gzc
oYC2eIuBM3LwdalTV+MosNZnlc6BHBV+/npcGAVqWAZSbSVxuBFqJNgWQoHV
ku5YdeSbl7akYkEUCP1sbcSNnBhUl5fqQwGBwiSxagkUbx+sIduJAli21zYF
5Myzfw4N2lHgsRL1IjtytterTrkTaP+rD6IHxHHI83QZKj5KAdIPgusR8jPH
52wVBhRgv6ZQooD80j761tJuCoQsUmz5kCtP2grr6lJAy0bp6xQNhxprFpnX
mhRw+Ze4qwa58YiFYZMMBWTqVDrtkBmp5JxqSQq4+THr7Ee+2d/GVkKlgEHF
06StyEfOHmlIEKbAuuQ3dTbkZy8F5COEKBDp7Rc0RUX1Ze3T9fN86P+ni1d+
R+6KPWhqxUYBq/JluWrkHZ95i4yYKJBoZmJTjJyxuZlHZw0DS/JE1H3kdadY
L8YSBrrBl5/GIzsWmH7cMoeBsVtUdwTym0kuFb4pDDzkMzYuIEtvfx+3PoZB
Way5tBdyVNj1iYlhDMY+6Bg7Iw+/MzrycwAD2t3hMzbIpvwcT9t/YPBdaDre
HLn42Duh+l4Mmr6OvDBF5r9/ze9lFwbcCx7fDJF9Bgw/53ZgUDG7zqKP3K7I
qpnaioFV876tusia5+uSbzRjYD3ZbqeDfLcqYi64EYMwU70EbeRFpr1WXvUY
HNTFG7YhnzBhqrADDB5ncrD8/351AogersaAryHFcDsyrSssSL8SgxOhbjd3
IIeL7+5We4EBCw/3Nz3kX+7rOlJlGKQpiavtRTYsqUmnFGNwmro73gg5d+7S
Cls+Bj23WecPInPq6Z5ceIRBbw23+zHk01dXqoczMQg0+9dvh9zcVEXtuYfB
ETdjVw9kFSw4tCkFA+qzyhlf5IQTOv3VSRiQrL7FXUaezlrcXRKPwZ6Zg9ti
kC3/VjzMjMWgvLBkJAV5U9A254hIDPrcX14qRw4m5t6cD8PgECPdtgG5l/2l
lFsIilfUiEk38sM7GoNG59F6PvPjJHSemPum9+mcw0CCVBgojOwq/SyXcQY9
v3m2QBFZ/rmqJ58LBjPTQ/ttkWOWJxrX7THYntj5zB95bE+pwuQJDEQ37dOI
Ry5rVR5tP4rBpKW6fwMyedM/s/pDGBygrGoNIvs7FBe/NMVArrWHnxXly/Zx
xtnUvRhM4+c59yGna418urELg86pEIYH8uqlgq0hOzDYe2C7ewwy8MhP2amj
87l+TrkD2VhBxl+KjsFCZhBfAMrfkxzj0idoGPwXwCJ/H9lnsPxLwmYMQg2i
dN8hp2QZa6+TUbwf5x3bgurDkJjXchcLBhv6vcfbkJcXNIsESBj8K8k1Z0L1
hr9zzXb/Khlm+7+ZqCNr3Y6veT5Lhh9bGrVTkK9yPw+PGyTDLddYMW8pHFKH
Q9Te/iRD7qGbIjnIxe8Mf630kSHxapTId+TPEZ0GpzrJ4B9ZLmmB6iF9ZYnd
sIEMv1vMAkxQvXw9qn9rKZ8MTBeY73jI4dDxnmuXag4ZakP7OcqQh/Pax92z
yGAYpxC9hCzo6nqkI40MSUx+T+JRvXbsjcZKY9D+6kcLGlE9X2/+lObqRYYg
/s4xbyX0PYpSTO95kiGQ3dynAVn2huNKmysZSmxluenKqH7vmz65244MUx+9
InuQM2qEJTYfIkO/jP0Da9RfdpSczG3ZSgZzUxWOGHUcnnwRVH2pSAa/oi7D
dWSJtfr/0uXIYCBX++U86lfsB5Q/uomTYUj28awz6mftf9dmVvjJsKA9sst8
G8oPmcw98uNC0H3brPEs6p99Byya+EaEIJonI2sR+Yg/x7GZQSHQrZPtjUT9
d1vdOc/aPiHwXroW9EAXnV8n/XjLj0KgXfLFYwD16/SMn73hxULwprh8/LkB
Dnz1d9zd84UgoynSxNIQ5feoyaTZYyHoHT5GmUd23/GMRTRDCMzYu9f09uOg
3hXBeBIrBJjJjp39xjh8wKSDuk8LwYfUPTqeaN5YjnHH1BWEQJVjl/69E2he
uHruLUNGCCJsFVBnxsE5NChQSlIIbILbi7ROovW+Md8oYkLA0+RJ70TzT7p1
yaMFTiGg6kubKzjhoCM7r1EzLAjljr33xDxxCHp9zdI4XxACtZnM/z+fKb2K
Y9/zWBDInXWs8kFovnuRUqnzUBCerZw9KY/mOeP8AlwxVRASWjhWldG8Jxr/
cYDvuiAUr+jhB8NwKD8pHPDZQxAs4vGBb2h+nFt4fMdeThCefqX/MUhH9fF6
RUqGlCC4yClddb2H8mvTh7QecUE4z/23NCoD9SOdiftWmwTBQTy7ouUBOq8h
OrmHuND7RPbn+D9C9WT1nvflTgG41LZpiPsJDse5xkv17AVgrdg5xec1ep6B
vfjPSgBcCj/T3r7BYdx0e6XWYQGY2Vg6vqUe5c/NCFDWF4BfpTwDze9QfxMQ
baPSBcCvmfmqYTPKPxH96bVBfogh94xFfUXzFf22Zq03P8jtujLiOIHDoc5b
Iylu/PDTO+C2wBTqfzduPPS144dHVjXuqKjA2GQ4r8xBfphUmEmXn8cBI84N
xCrxQ84NVidsDX0v24PJNqN8oEYh/bLgoQIpmXN21pMPupRbuW4pUCHGiLXw
kyMfjD2WSruqSEXz/IZDvjUf+PJl3QpVpoK880KTrTEfcOeVP7moRoXDqkOP
3sih9U08pFs6VHjQXGeRMMQLG2J7shVMqbCTLey5oisvDP3MmTf2RuuHbnEl
nOQF34/cEqfPUUGkIcNh1pIXiiI8Um/5UmHyehVPzT5e6PgkdflbABVyeedd
Dsnxghyp3TgplApkijfFd4QH5pgyw/0TqDBMtw0o9+GBt+6/7nKXU6GT5XTT
5lM8EKzoq3Wxkgp1A0GSYU48kFKV7jBShfaXe/ej0VEeuOTWb99BUMGC0S7T
rcEDV9ju7G14T4VaNZPOlXlu8G9z9WV8p0Kyvrb2nsvcoK5fGzrHSQOWdxN9
TQHc8HzavqKIhwZ+ZvlXrc5yw0MLthxXfhqYW4m1n3HgBgs+jfzvGA34vVa8
7u75/+8dvDlDo8H1FCJ7lI0bJu5Xvs3WosGlcSP+u3FcIO2/YiPnRoPR86SX
EtFc8FubXrDdkwYnlipti8K44MPXr4sHztBAh5VRAD5c0P6C+jjUlwbzYryG
o0e5wI2d5MceSgOffa0X9UW54FFBvmZhCg1cMqwHRzI5QYRv1PTYRxokvPij
9zmFE1w5u2xE22hQ23zh7qt4Tjh8Z8K6r4MGm9eSjW6GcULai7ptAb00aLVr
K1B24AT2ednejlEa7BI3PetD44Tm577bj/OIg1j2zoW5DA5o2TtRcvWgOOyv
+nD4ezIHzJ1sDms2Fwf/dpv8dzfR/eG4+k1W4tDKHGSTcokDDtd/fFVrLw5R
Li9ebT/JAatPBn7o+4jDrLRyeMgWDuiulBajJ4tDSx6NiymdHfyZeS2C+8XB
8R8w+d9mB5mhKF32AXGYVndZHophB5aqyPi7w+JAqc0bbQ5hB/fsgsj6KXGw
7lD9lGrHDuSFj4KKzBLwi2SQpCrJDj0rFZsYwhIwb+NBdcxngxLm0ZBxXQmI
zuQS+fyQDezZZeLDdkvApsEi/v1pbGBtaiWN7ZWAnT6TG4oxbDD+fm//HiMJ
CI+6+GvhDBs84ir6VWMuAdzPY/Pit7KBlBvnDXUPCaDxlqkR5awQzzC6SU+W
gLMD8r3xJazw4adht1GKBNRWZ0U55rICSYQ32iddAuy8k74x3WUFRdFE4eaH
EpDx6cI1wwBW8Iu18S9+IgFiiXrd7zVYoc5ojUmkUQIoIk3hHWUsEGji6FS8
IQGu4waKOfkssPMEl/d+Fkl48a76S8BDFsjhdDk7wC4JFoElDNEEFuA+qOeh
xC8Jt7sSO2zOsUDEt6CGMVwSBO5Zy/crs4Dn/BdhzZ2SwC0x1PK3kBmejsst
s4VIQm8GZ9OPbGawPi/mKBImCU/EFN99TWcG3iiLw4qRknAE86l+G8MMFb2p
v51jJeEu+3J+1mlm+J1jkcGVIQn0f3wRNgxmUD3MbbSzVhJ2Vmlpvi9ggp6X
m1Oc2enAq229FbKYYKNI56cQDx2+Pw9mVKQxQSfvzkfvBOgQ8YSQyLnBBL2D
iU/1xejQ+NCE78opJiCusEwEKtHBMtpuaLsCEyyWZEwvW9DBy/Jaan4+CUqH
h46l5tEha71Kg5FFgvv2LJSiYjp05k9+KkojQX/Slid1T+mgv2bLVhpDgrB1
xRT2ajpQctX9XnqRYPbEgGNHKx1qFvrN3qiSQEM5/3PqCh3wbQHrFb4bhN02
lhuYlRRExfzQfOW8QfTid1LmbaVg8rvZmVqLDeJWXMPkDycpqI+md9VrbRDM
dHJVk7cUeHe3PG1bWie+MM6pr1yTgtpLDLfRK+uEmYXxvU8VUuBY199Eu71G
vLybb1IpKQ1GeotufVfWCHp48tx2BWlQqRAkZfiuEcnz2oX1qtKwWrhHU8x8
jXj85/jdtd3SkHr7UQYmuEb08ZV7LdpLQ6uThzdn3CphspzDppgpDXtIE/zT
N1aILofuy64KMiAfzFFQdnGF2FM/5XdFXQYEZ8UNzp1aIfL4H2Q+2SkD3/8c
CRwzXiHaeRYPah6SgeCWZ/1DHCvEolHM+MZ5GXj24ELZt2vLRLwNS3TVGxmg
662bv72yRNh4WeQZnJWFViE9pTS/JSJWpkNtJEgWQodC2L1dlgipw3dcHkfK
Qk/8UhVl3xJRW+hXb5kmC0m/ZqVcOZcIaS+n9eK3ssB6fXSOOX6RmGRjdb1E
l4NnJxmtnWGLxPe/uG2Yihw4qp0qLPRZJOpfdzSl75CD6p4h+6NHFwmpV2px
uIUcBCj/asgSXiRij63vsromB0PtXWn6GQtEqpD7w41xOUjOE/Wn3FogBrOk
6qpW5WDvJatDw5cXCDe3Mos73PLwQKaDOcFhgZCxdBsolJWH40EtZ/rpC4Rf
gGa2h6M8NFLf6YUWzBPOb2fdXvTIw4Vp1k1H0+eJYRFZ79IReZBuMJiWiZ0n
2uJ9AjqW5SHc53XuR695Ijnszt/MLQqwva5agKo6TxDmXNHHHBSgwPP5z1fl
cwQjiEISn1SADudMcbPcOULHUGvlPSsDSHaxdj135gjN4dGSKjEGWJm7dC/6
zxHx4qL3/Q0ZwLwDa9PSmCMok77hEfcZoKy5wf+WPkdkDYZU3n7BAGuV0QOW
5DmioNQ+fqmJASX0uka/qVmCxHXZ/csKA07wnIfS0llCSPZ8LcVREa6xOazv
ypwlPCdrdssHK0LZhqnup7hZoutY/bnCZEVgn6VXjnnPEm30pEGuJkV41tte
qqA0Swzf62Iu1FMC7hL1zEf5MwRcTvw6vUsZtPJpfeqpM0RuR9eyjrMyOGZz
b3kTPUOkWteOHohShvK7v+7+cJ8hAuef1qy2KoNz2O04qswM4Vt+eOGVrwrc
uhjaXEyZIbjD5JvvZKhA5fnT3LqsM4TQhtyDB40qwO+5N+rE72lixFlQ96r0
Vqg6Mn05JWuamCMCUqf/bYVB0++vZBOnCfHVRCVjsioI7vuw9DJ8mvB8t2lb
gooquOtkB3Q4TBNabRQP69OqkKgR99zl8DQx9Em3iDVGFaqVg6emd00TkyWj
YixFqkCmH/UWok0TVoPemb5TqqCH7yp6yDdNLPWvuzFE1cBThPF369oUsSwb
Ftm4Sw2SBEXkiLEp4s98yUCYpxrUcjO7HeqdIm6+/WRyK1kN/rKOZ/c1TRF1
/J1u2+vUgLLR/cPr1RRR1PWnqHNWDU7PPD0Zmz5FiETlMDKd1SFt29ROj5gp
ImyfSNJ/D9Sh8aLqFoPgKWJ63sSts18d5qvPLdNOTxFjkS9Yf8pqgAyptHvZ
ZorIuKxrzhugAZYG45WdJlPETJnywHSTBkREKac+05kijkhJdzQpa8LT916B
cQpThDOf9tTb+5rwg7fY6rTYFPG6zR97KqEF/EdGtfZzTRFLIW9crGq1QC+J
IUxfmiTy543bb1/dBhZWSV/sRiYJI25NHc2L2vA/uM3Q/Q==
     "]], 
    LineBox[CompressedData["
1:eJw1l2k8VV3Yxk0ZmtFTeIWKfQ4O5zjm0FIpUihlTMb0JJ6UTCkqmUkpClFE
5ikyJuuWDJkyJZR5nimklN79fng/7N/+/b+stdd9X9d177XH1tnQno2FhWWd
fP7vXXbFS+dZzALW3qigqnBdGYyIlJPHohfwopWEsZW5Mvg5jNIlghYwzSTw
gYe1EuRniW9j9VzAeSYtr32TFWFw3m7u678LOFAru7J3iyJsl09qKjFZwJkL
nw7THygAch/KitRewLF7X3yyFVeAy6V7wq4oL+CYZDV97hp5iPtt7XiCsoBv
6RYiqos8NKAEXequBSxRONeXTcjDL99+SQ6uBbxZpHh2xxATToVp8MHsPD7P
0l2pmsSEHL7yFo+meRyJfbPUHJiwOWb/fXr2POa+6TXlIM8EB9FSvfGweXwY
hKeVWJlQ81J583OneezQvxhCb5ODO/kKwVtp83hM4V2z8k056FMp0K7ZNI8j
tMxjC8/IgTqW4/SZnsMuZo6hinQ5WGmQvTubMYfhb1PvrUkGnDHMPvgyZA4b
jRonrtUx4FWXNMu5S3P4cMi0Zk86A5xGqd6NknNYesTmkaEzA+odU9X8eObw
TFAR8fY0AyjfJH6pTc7irmMPPaRVGTC0vtcjM20W5x+Y5mrmZICpwO6rIZRZ
bH88K2K/CR2Knj2lH+KaxcMSNyf5ZOjALyE093NsBu+8reAnzkGHZrldjg4p
M9jqkdfQq0JZOHyc115HYgYXtWalzYjLQkLr/X0sG2bwC6vk+jU2WVg32TpU
PDKNIyXdyr4OykDJ+U1WlORpnDLFPzefKAOyPhvMOPdN4zXRxXZvKRkQKmt5
MsExjdvG1OMFt8vAhpWnnfVjU1gnwvyrygoNvv7HPHM/YwrLu1q1z1fRIOSc
lYEAcwr7lCqlNJ+ngXuMVPgv/ilc8zVUm1+fBjaflhu/Lk9i7e/Vg+XKNFDR
C9NNLJ3Eqq4ynPKbaTCuXnpE6uAk9tky4W9ZKg1tnn5+m/dNYo813dPeL6Wh
4rVB1RzHJKZ4tBrOREjDY9qYZkHdBM5v1fXNd5QGLWF+dfWTE/izhZBb+l5p
SFhzYupbjeOxb9BZHycFYcoqVxkHx7FwYnPorntS4HGNPY9v3zg23jVZH+st
BfrTMTKfx8YwNwyd1rSSgj89NVTry2M49VJewqS4FJiXiYm6eI/i0qqjbIMl
knB0ZfrcGatRXO5WuC6SJQlyzOI4pYOjmDuVfc7vuSRwZ+gJrXGMYtepsNHq
AEkoivH6xy9sBItA97aNJpLAf71j0+OnwziBRSBAYJ0Kq39/8s57DWOxR18K
M75RoS9AVEDHfBhvqhxg2oxTIS3ykvgvgWFseR93qrRS4UAei4bl4yEcpyEy
ezeFCg7jtMtExCBmMHKWdptQQf+yoeutK4O4nu6+u1SPCgrLHl5dBoNYa9SH
elWLCutsVQEhWwexqcD6ZSUmFSJFzJ7PhQ5gldfvWDdvo4JP5sbE/7b04/js
p8pxTRQ4VmqULdrYh+MKduzoq6bAjtqE0taQPqzvSZtQrqBA+pBSmyJ3H85U
dPJi5lKgQ9COfZ2tF6c1y+aqP6SAVNAb+/DVHpzUu43NzYICy1GcLprFPdjS
6Pn9/zGmACSd8vnm1oOVA3zedBpQwAiPPzb+3o0jj0RohhymwO0V/jqRuS7c
ZrnFc1CaAp/PO0nlDnfi4bEoGzoLBSp6TyoXpXTi9oP5HOfXCEgxVtR669CJ
RbyDEtNWCHDVWT/XMP8JD1f4/2szS8B22oOI8bUOrMq5LT78CwE/kl2fzVV0
4HDh476anwno222WuXynA19cNslmbScga9veanbuDhzT8MTvVT0Bx74XrIru
aMc/K+hi1WUEMJyiN1A+t+Ff+KfAfBEBAqM3+WRj23DJU5EqSgEBY51HaOpi
bfjB+6rJ95kE+JZ9tjKlteLgcaXGrHgC3Nh/3NsT3Ixt/I2jCT8CtJZxKn1b
M759bLBR4Q4BfONBlRpRTdguvrDnpA8BOfVCy2aJjZhp42aW70muH3HA4mFp
PWbdEtsteJmA13e53BNQPYZ++cYoR3I/t5b7OdUfcGZltIGoAwGiZrZV9a11
OJT2e8r8PAGmYgFS7FM1+IznnqJrZwkg+Ay0eK/UYDxfcPmsGQFL7AKWoivV
WECF1f+kCQER4+kRamzVuNveptj2NAHW3S6Zx4LeY/2GwPpbpwiQbVCrNtn6
Ho/ueyCZYUBAfU7T6jWhKuzP0l9OnCAgOuExn2/CO5y/t2TKU5eACw+taA+I
d9i19olJlw4B7O6LVlnMSsxc/z5ScYQADy+p8A9RFdjeiTNeSpMA/bmFztyU
t7ht8mzjzAHye22LRR8Xl+O9/bpZbzQI+HRM65Vtdxm2ec/0uaVG9u/txl86
U6U48OH6Fdf9BPjJtR6ir5VgrmSene6qBMgLWnasCRdjnsjYG8+VCdh4T3z3
kEwR5rJTQLVKBAyxTNvXHSjEXgYKb9YUCShzfZWTY/Aam8h1L6qTHDHh8SPS
ugBLt2eMhigQcNHigOaNq/k4VOZ6zKg8AZotHME2vq9wl6Dldj2SBbQaWrUf
5WGLrHK9SiapN+d9ihY6uTha86DRIZLvmeTVUC9l4yNHh6Ra5AhQRxqmy6GZ
+I3wYNslkqeJ+snK7HRcVlp3io/k2K0mN8I/pmLOKOesGgapz5XhzWcXX+IG
yx/jgSSv9l55RuFPxtE1TTzGJKdW/6EvKbzAKwZZu+RINs4OqQTjBHw4MGaX
IMkbpegpQotx2O3uxLatJF/8qfOhQCEGJ0Xv59pOck2d7cwJzyhsRrnFIUry
vuib28beROCrZ5e2qpHM9pFmv74eit+qUGTPk/z2P+tMRoAf/vPvskMsyYsC
1OFqIS/MkRdW30tyS5ZI/xnDC3g/cjKVJc/DYXNcLOiwPhK0sxcOIzld9oXH
5jIX5N30VPQHyTGe8cvtn24jr/QAR2eyXr3dDrmJ+kFICy/yLJO8V03Jwbn2
PlL89IcjiKy3vP6dCJGER0hnTuxfKtkfj1y94zMCT9FRR9WwCLJ/QgPy1NOf
nqHvu1vtzcl+W3LfY+vVSURJ0rXtDFIPLKrX+g9veImEry3Ec5J6OXVqTM9j
OAXxmj3l5yT19MLBrDyjMg29W4g6yU/qTSsWxfD6ZKGEDncTE1KPUfn5XEcs
chDP7iaNcFKv10b51NR356GydCPxdkTA+z/+6c5rr5A9/x564CECZoKxdfBU
PrqlveSycpiAf3b+3JXUXYBq0nevXCP9cEHWKaCzuBAtpO5YjyH9El72UmMh
pQilhcHLQ6Sfio/2L/E8LkZlTr5tP48TwG1laKfhWooURxs2RJJ+zLivopnM
eIt0eA1XrpN+5nj/vJxLoQJxnL2TUUv63WqVU9VRGSOw3KBIsSAgJG9KQPA5
IKHTfUjYhoADgqW8Ay/fIUZypecgmS+OBTMfIyhVaMKwnqgk8ydaTyz8cHoV
yj41kFRwlYBvdwI3pma9R02fDj1u9SDzecqI/XJBDZrzsTZdJvOu3S+4UlSx
FsXMt7g5B5H1Fn17q7WoFtnf7Qz/E0qA+Wnx3wpldahr5eBZ40cEbCv/trQG
9Sjdfrv03xcEeN67Pxbc3IziV2jxJjUEvKRUJaud/IgeViUcpzQQ0Fa5Yjvb
+hGJ1BTzb20hYOdajnPapRZUl8gY2dNDwBX6zplNl1tRwbrIHYd5AgJ+0xtG
clpREWNpdnWJgPgPxzLezreiuESeu4m/yDyz877ofLUNdf6KO4E4KSARPTLS
5tqOwvyS2gtFKKBuv16VWdiOqoWnZnZKUMCQKZDkt9KOIqhh2Y/I+XW78biN
kmcHeq3VHjqoQoEeloLemBufUATTeHv3GQqEO9zptPb9jF4atp97SM7PoAbW
wpGKz4gZteWcfiwFfGV8H11c+4zmkn6bUl9QwGPR9+QV1y7E42zCppJPAevr
fvW3LnQj+Kg21NZOAfMvHOnsSd2oce3hjdCvFDij4R8Y2N+NTHQtu+1HKaDD
GqB137QHpU4Kc/n+oIBccGDFM90vyGXKg+fibirQprni9wZ+QRs4mGEHKFQg
9IJupFR9QcVLs4FqclQQ4g1WyVH/ij5Usz3NPEIFtpiQ/LeyvehJcALN8woV
OtLupXzl60e4pC3bvZkKzRu3+lsb9COjdyUxvF+oUOcUbjcS2o/mDC9FDpD/
O5bR2tvd2QZQcPq/NFE2SThtodPkfWMAico6XNBUlYST94LKccwAesyrtzFe
WxL0K+oyWUsG0FIXpUbZWBJ0xI6F+C8NIMOAaXcZV0lQHzmmfe+/QWRT+yb1
aIEkqP4TovQxdBC9dlKMhypJUDpaL8GbMYgWh1XlAjokgZGmyxE1NojifGjm
v1ckQdzpeGWc1RBir+340IakYMvSCbWsU8No0r9Yx21YCrb3MO08XIYR68Si
9ps1KdgBAqGHHg2j2lemyQ92SINQ2EhPV8cwkthuGf5XWxqo4je9NpiOIO++
g1FxRdIgvdH2RYvnCLI55i24sUMaZBe065/GjCChZ+J6Gt+kQbGcX4j5ZQR1
7ilREpSjwaEzmaWWlqOoJqXevqmUBkf2RwxK3hpFUnkfrUL7aOT5PXiWn48i
7qCla04cMmAwc8gsdHAUdZ39btFzWgYM26h3jNnGUOPpqD1h3jJgXLI1fc++
MVR4ykwjM00GLPx6VovPjyHp7s2r99llweoSiN31H0N+A5wdIfKyYHsyRUc/
hWRKpIylvSw4CLtEj4yPoXfvGqX+56MsOLGZQi73OHqSZhZqxEWHKxMaE16S
44iH46D6pkN0cH/No8LrOI7StEQLazEdrsfOW30NHUc5W1LfpLEy4ObtT4Gp
WePoh92dd3QJBty+8CbXpWkchX9hEUvVZcDdE4mfNebGkVqPf4iWCwMCmIF/
ubdNoETqltWjcQwIEfiP0kGfQL10nv5V8r72YETF49LVCfSt++X5QWk5iKwX
ea74cAKd2Gm0wGknB0/yOGpZCibQgeuxvLXP5CD28dRcQ/sE2nk6e2q+Xw6e
3WzZ+WRpAu06MbQeQmFCom3RAdt/JlHFHkO3FXcmJOvEXZBRmkSGudq2W1qY
kCbrG75qPImiBByMHBXlIXPHxaIqj0n0KDi3fSRDHnJ+6fWFR0+iktsyTc5K
CpA/IM9pXkoy/7OzO4cUoLBGUFaiZxKZdzEetIIilGT9NVr4NYmu/nhwoO2P
ElwRtXiO2KbQ/9/n/xdFsw3U
     "]], LineBox[CompressedData["
1:eJwVlHk41GsbxyVKKoRMTengNzN2DYNQb/cvSxxbG+oIr6I961tOkhYRKqWO
iIpSlo5d9ix3kSR1RA4V5S11MBrLjJkxtvf3/vFcz/W5nuu6v/fyvR/N/UE7
D0hLSUk1U+f/d8uHb4PfQ4fBXt7U0jR8AzbbpkyuPTsMVVsnrBtemeMrvUj1
wfRhqJ7cPZKRYoZtSn52TxqGQQu/8/fXmmK70CHgbP8wqFx1i9m6whQ7e41u
/bqAC2V+1Wmvozn493PVOlUtLjy/uYm4vJyDH3MlA1+suWCMpQZ9WSbYd61/
WZ4fF9Ilv5qoO5pg/4lm07BoLmgfunPvlcgYe1tk6bmPuNCJT6wOFhpjz1q7
+Q9NXFAKiVujfswY3wdHDyz9zgXZxCOfxAbG2N7U+OpfsiNgdL2uwZLPxrZV
C4uCmCNQsPGppn0dG1uOWyc9sBsBVkVLRNZlNqLqMx/ZSyOQa7T1dbshG2sP
S9luyB6BngMK76UXsrGqFnSPNI9ATbS17h9l67HYv57ftugnSMc3e6WvXY8Z
ZU/jkmJ/QkJOf99GJSNMk5sOaM75CRY74jUsOg0x2ctql/jlT2gJ5FU43DbE
azLV6l5yPIB29Rk1HUM861ZRSsTzoEIvS5m91wBP506muD/mgeiNH+uUvgGG
zZhGxr7iwetqa5X5GX0MfPTEnrtkFMzCMz7GPNRHH0Fxb+nlUXi6O2/dtxk9
9HQYezbw5yisa0/7ENWlh+531+eovR6FT2fTZESFesjS6raokx2DZ4+dsjf4
6+G6VveFmlvH4MryK2Xm3bq49sTkpKXHGJQ0fHxwo1wX6etuDe48OAabUu77
Ryfpolro+zfRl8ZAQTZjlu6miwr0XbcHm8cgy3Hb4vMfdHBZ08TlBd1jcMAt
K1++VgflA29G0v8ZA0zauX9xhg4uev5uv/PicUjNKfB3OKiDc0e2Gxbbj8Oo
xbKZK1PayKt2ef57yzhEPxw+msPWRuaSlyciuseB11xqeIGujV57SO1zP8bB
474lK1VGG1uFJlcvyUxAlOfFT5EfWJjFWeVxi5yA+Xg7hiCGhb1RN+RSt03A
oG2j5HYIC5U75J/e9ZkArcCyhBBvFp4Pnv3l0ZkJWKFnHlFtxkKvgq9DpVUT
wC+/dyx2kIl/zOy9W/FyAva++9SV38XEVqcu15q/J8DFIMpsQSMTLYZfPnkm
mABpkf2/LTOYGGS55eCLhXwYmHScN7nGxOy4mlWvlPkQXhq7tyqSiSraBZHt
bD7YnQ8O2O7DRMcwFvs98OHHFifRnm1MPP8i42u3Kx+WeKZ87CGZyPO7af/l
OB/Msu9uMGRS+vd/X8HL5UPr7VsWNRMMXDA21jheyQdBp1Pe8n8YaAFHwyab
+WCTM/qy5hMDs/u8Ps0M8OGdwve9as0M7DP4O0FKwIdVxg0eDU8ZqHpmGymz
UAApqQlzFSUMvEC3zlqqKYBvRmdy49IZWHXk6W5FtgB68oxpPrcYyKsylVcB
AQR/XrQk/CoDvXZrB9G9BaCppuPxewSln7TMUjdVAPE5h6z2eTEw6FsM1yBX
AAn9sQ2G7lQ+JvP32JUCiGsLuGDsSum/G5e26KLi/ebyoYdkoJPGsfKNAwI4
H/rLg3ArBkYFDRwCvgBizirKOZsycHR5d9vWFZMwgNWZ53UYyPLefs5Rg2KP
saP9WlQ++a+MXddPguq4keS4OgNbHWuT3V0mQc3YXF5OhdKPfeDrHz8JFj0x
pK4UA31LAoryUydBqlddJ2yaQPonyznB40ngvZvx4QkJvGbUcSemlYrvd/SU
F49Ahz3pw28+TsKNb3Pbtw8TKB111FKNOwnPatX8j/0gMKxLujt7qRDemUui
VL4QyJ5/yxxdI4TQzyXN6Z8IHNa5c2KDgRBOnlhX5tJDoM8ZjnKLsxCuuhk7
qnQQuCp73lfJWwhLdcz26/xFYMdfr4v2BAjB5pGWtE8bgVsJf5ehBCGYfCmW
aL8kUMqFfdc4XQiS2znjNU0E1oTNDIcXCuHh7hf5x54TaNSaFCf/lxDoOlcG
iHoCB/m+3Tu/COHeoiRtvVoCM9UNWXdGhcA7ovfUqYZAtZAXjfpKIpCtULvx
uYLA9rQbyic0RFB2n6h1LSfwcpP3vlq2CMbb+uV6nhBoy9MtltkiAv5Zo8nw
UgLnaMI55x0iaLWMlDYtIbBqy3OXW/tEoHywsFy2mMDQY9fu9oWIQJUjSOYV
Emhwy5PLjBLBT89yY14BgT/qWVaBN0VgOB6kKkPx/cGJuIpMEeTUpbevzyfQ
U7mhe65UBH8fyJAE5xGouukKy75RBA5+qbov/yTw7YHdJ693iiDV96DImOK4
60RT9zcR+G+KkCp5TKB19aiyhkAEnTod32wonvn6dN9hGTGcTu6yHs4lsGJZ
XHGxqhge/cv52UOKg83d5sUMMZwMtJMNpljPV8N1ixn1nrCo0pXigfiRu/F2
YvA4OHUeKE5/UsV95y6Gy7vTFK0p3tMXbUU/KIaCwsMrPChWXrwjfn+YGEYn
uswjKG5jq/f8eUkM19+am5RQfMlziMVPFoNyW1mliGIyuvzkxhwxDNhApCuV
r6TgQtPFSjHoRJy1Kqe4rNtFpe2lGHjM5lx9qt7ABfT9qj1i8K+Qu1hCsY7+
j2KvQTE0nXods5Xq11e30vlHYjFcUKQHDVPsket4z2z1FFxkDgm8qX4rdaiN
ROpOAQQ2qBpS82md/mrVbDkFcp5VmvJFBG7eFtHj4TkF9uK4VT+peYpP2Wtn
HJ0CxQn7xAlq3qWZKmH/nJ6CFpUfSrKUP5jCPJVTd6ZgPKfRfTvln1Uvdmjl
/TkFAaML4/9D+Us+ScT+XD0FrJAT/g8qCRwztnG17ZkCgUdf6FrKj7UBH+OU
VkqgsmhfyZUGAos2nU+xYUhgiC3+No+Uf5eyssM4ElA2kUqMpPwe9ziksXeH
BC6t2dya9IJAt+9yc7nXJOAVnUCsp/bHvqxwWe89CdjarA7nviHQ6qLbGsUC
CbjoFNkUU/umoXnf4uRrCWw7VIg7Ownkem34zxa5abgqvcZU/JHAqPcHBj9c
mAYF76HDBVwCTz5cKlp2YxqSry+nD/wk8HBoiSx5fxrKenPSNMcIdFWa1cqu
nwbJ82dFxQICVzsneYdOU/FW5TStnSOwuPF5h/zJGeh05t+gKzPwc+kvdRsP
z0Jw8o6DBpsZ+MYiVE/r91koS+29LLeFgbX1TSlyl2Zh8ravypANA++0Hgnt
ejgLHbv81lb+ysA9X59oB32ZhaH6z/kx1H/7boXDzUyPOVgXsNnpawADm4KD
Dy2xm4e3ex1yXB4w0D2lP46bKEWe+Z55R6TExPSsq3XOydLkH6fyT2auY6HM
3oCfsuEypPWjVYGNhtr41vdxzs7oRWRnmG+hhY8Oli+ne4uOy5EH1EMsFM/p
IitNc3CxszyZpZi/Le+OHkrComfzdi0jUzx3yJLt+siVrFHItVAgi1kd/Q6j
Bnj/UOz7NYQSadtv9YbLMMLELW1XVzNXkMK0tsbYXetRISjPunGlMhmcGlsb
bM7Getuqugq6Chnrer21/i0bZwP+be6hoEry7eydlL2NccHijlT9WVVykfV6
W2LIGM0dQp87SqmRp9VuSNtFmaCkN39w5YQaWSW4HftDmYO2x1sSXYRqZMzp
vq0hKzmYMP3NIkaiRrppfDadoXFQg74mXiBNI4/0yD9SVueg/e543U4VGpmo
5ty3RZuDSe8OHE00o5Efwpk9jzdy0Kh53Yh8OI30+m++b6Y/B0+5WyVZR9LI
V0PKbZxDHHw24L7p9AUa2at4+viLIxx0W5hwdSieRnqeS/YbCuRgBDlt0JJG
I+MjThOm4RxsqekOiKmlkSEWtppdCRxUduSvrEMamZR11PNoIge9PijUC5po
5Ir01d3zNzk4KrJT8H9DI2c/seP0b3NQzays0PozjXSUdMheyuSgb9NfHqe/
0khFLR6pnsXBx7u4cyU/aKRPZWVLWQ4HN4VqbdMcpZEvllSmDeRz8NKCzaI9
fBopkPpj9EwRB9sTf8tIFNHIoNmfZ1aWcpCucdK+ZZpGnps9taewjIN+RYmj
8/M0ssGpK9S+koP/A7CIM9g=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{-6, -23.473453116612543`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-23.025850929940457`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-18.420680743952367`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-13.815510557964274`, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-9.210340371976182, 
       FormBox[
        TemplateBox[{"10", 
          RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
        TraditionalForm]}, {-4.605170185988091, 
       FormBox["0.01`", TraditionalForm]}, {-20.540944280152456`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.890356714011308`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.499490405324295`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.219188440170136`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.000499239205308`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.821158310549492`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.669142103250866`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.537214560208316`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.935774094164366`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.285186528023216`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.894320219336205`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.614018254182046`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.395329053217216`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.215988124561399`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.063971917262773`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.932044374220226`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.330603908176274`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.680016342035124`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.289150033348113`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.008848068193954`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.790158867229126, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.610817938573309, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.458801731274683, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.326874188232134, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.725433722188183, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.074846156047033, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.683979847360021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.403677882205863, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.184988681241033, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.005647752585217, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.853631545286591, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.721704002244043, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-23.025850929940457`, 
       FormBox["\"\"", TraditionalForm]}, {-18.420680743952367`, 
       FormBox["\"\"", TraditionalForm]}, {-13.815510557964274`, 
       FormBox["\"\"", TraditionalForm]}, {-9.210340371976182, 
       FormBox["\"\"", TraditionalForm]}, {-4.605170185988091, 
       FormBox["\"\"", TraditionalForm]}, {-20.540944280152456`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.890356714011308`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.499490405324295`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.219188440170136`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-19.000499239205308`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.821158310549492`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.669142103250866`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-18.537214560208316`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.935774094164366`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-15.285186528023216`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.894320219336205`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.614018254182046`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.395329053217216`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.215988124561399`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-14.063971917262773`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-13.932044374220226`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-11.330603908176274`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.680016342035124`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.289150033348113`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-10.008848068193954`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.790158867229126, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.610817938573309, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.458801731274683, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-9.326874188232134, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.725433722188183, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-6.074846156047033, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.683979847360021, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.403677882205863, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.184988681241033, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-5.005647752585217, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.853631545286591, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-4.721704002244043, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{-6, 6}, {-23.473453116612543`, -2.274894895743915}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-23.025850929940457`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-18.420680743952367`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-13.815510557964274`, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-9.210340371976182, 
      FormBox[
       TemplateBox[{"10", 
         RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], 
       TraditionalForm]}, {-4.605170185988091, 
      FormBox["0.01`", TraditionalForm]}, {-20.540944280152456`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.890356714011308`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.499490405324295`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.219188440170136`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-19.000499239205308`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.821158310549492`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.669142103250866`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-18.537214560208316`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.935774094164366`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-15.285186528023216`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.894320219336205`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.614018254182046`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.395329053217216`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.215988124561399`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-14.063971917262773`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-13.932044374220226`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-11.330603908176274`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.680016342035124`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.289150033348113`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-10.008848068193954`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.790158867229126, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.610817938573309, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.458801731274683, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-9.326874188232134, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.725433722188183, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-6.074846156047033, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.683979847360021, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.403677882205863, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.184988681241033, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-5.005647752585217, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.853631545286591, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-4.721704002244043, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{{3.5199588211905622`*^9, 3.519958846362768*^9}, {
   3.519958939380384*^9, 3.5199589468197308`*^9}, 3.519958987037302*^9, 
   3.5199593827920933`*^9, {3.5199597195129337`*^9, 3.5199597427201138`*^9}, 
   3.519959903262184*^9, 3.519960229212393*^9, 3.520078477118362*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ProductLog", "[", 
     RowBox[{"Exp", "[", "x", "]"}], "]"}], " ", "-", " ", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", " ", "+", " ", 
        RowBox[{"Exp", "[", "x", "]"}]}], ")"}], " ", "/", " ", "x"}], 
     "]"}]}], ",", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", "Infinity"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5199425749525414`*^9, 3.519942585629772*^9}, {
  3.5199426762441397`*^9, 3.519942691771698*^9}, {3.51994304325206*^9, 
  3.5199430518315563`*^9}, {3.519944738070365*^9, 3.519944739021598*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.519942586728962*^9, {3.519942680509082*^9, 3.519942692590118*^9}, 
   3.51994305265757*^9, 3.519944782610055*^9}]
}, Open  ]]
}, Closed]]
}, Closed]]
},
WindowSize->{640, 750},
WindowMargins->{{Automatic, 39}, {28, Automatic}},
ShowSelection->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 133, 2, 27, "Input"],
Cell[CellGroupData[{
Cell[703, 26, 94, 1, 67, "Section"],
Cell[800, 29, 159, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[984, 36, 1188, 32, 43, "Input"],
Cell[2175, 70, 396, 11, 49, "Output"]
}, Open  ]],
Cell[2586, 84, 507, 13, 43, "Input"],
Cell[CellGroupData[{
Cell[3118, 101, 367, 9, 27, "Input"],
Cell[3488, 112, 6045, 105, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9570, 222, 2742, 64, 103, "Input"],
Cell[12315, 288, 771, 14, 47, "Output"],
Cell[13089, 304, 11634, 196, 216, "Output"]
}, Open  ]],
Cell[24738, 503, 180, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[24943, 511, 852, 24, 43, "Input"],
Cell[25798, 537, 247, 4, 27, "Output"],
Cell[26048, 543, 579, 11, 47, "Output"]
}, Open  ]],
Cell[26642, 557, 128, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[26795, 562, 469, 13, 43, "Input"],
Cell[27267, 577, 244, 7, 49, "Output"],
Cell[27514, 586, 183, 3, 27, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27746, 595, 95, 1, 37, "Section"],
Cell[27844, 598, 328, 8, 43, "Input"],
Cell[CellGroupData[{
Cell[28197, 610, 267, 7, 27, "Input"],
Cell[28467, 619, 5677, 99, 230, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34181, 723, 2290, 48, 103, "Input"],
Cell[36474, 773, 656, 13, 47, "Output"],
Cell[37133, 788, 11795, 199, 216, "Output"]
}, Open  ]],
Cell[48943, 990, 234, 5, 26, "Text"],
Cell[CellGroupData[{
Cell[49202, 999, 644, 15, 43, "Input"],
Cell[49849, 1016, 590, 19, 54, "Output"],
Cell[50442, 1037, 566, 12, 47, "Output"]
}, Open  ]],
Cell[51023, 1052, 125, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[51173, 1057, 451, 12, 43, "Input"],
Cell[51627, 1071, 210, 6, 49, "Output"],
Cell[51840, 1079, 139, 1, 27, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[52028, 1086, 103, 1, 37, "Section"],
Cell[CellGroupData[{
Cell[52156, 1091, 95, 1, 34, "Subsection"],
Cell[52254, 1094, 1691, 49, 118, "Input"],
Cell[CellGroupData[{
Cell[53970, 1147, 329, 8, 43, "Input"],
Cell[54302, 1157, 482, 17, 50, "Output"],
Cell[54787, 1176, 453, 15, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55277, 1196, 949, 18, 43, "Input"],
Cell[56229, 1216, 5323, 91, 230, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[61601, 1313, 94, 1, 26, "Subsection"],
Cell[61698, 1316, 3002, 78, 178, "Input"],
Cell[CellGroupData[{
Cell[64725, 1398, 546, 11, 43, "Input"],
Cell[65274, 1411, 837, 25, 84, "Output"],
Cell[66114, 1438, 875, 22, 110, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67026, 1465, 944, 20, 43, "Input"],
Cell[67973, 1487, 7108, 120, 217, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[75142, 1614, 108, 1, 37, "Section"],
Cell[CellGroupData[{
Cell[75275, 1619, 165, 2, 34, "Subsection"],
Cell[CellGroupData[{
Cell[75465, 1625, 106, 1, 24, "Subsubsection"],
Cell[CellGroupData[{
Cell[75596, 1630, 637, 17, 27, "Input"],
Cell[76236, 1649, 1617, 34, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77890, 1688, 672, 16, 27, "Input"],
Cell[78565, 1706, 4798, 89, 238, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[83412, 1801, 104, 1, 18, "Subsubsection"],
Cell[83519, 1804, 7425, 199, 568, "Input"],
Cell[CellGroupData[{
Cell[90969, 2007, 373, 10, 27, "Input"],
Cell[91345, 2019, 280, 8, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91662, 2032, 2621, 70, 118, "Input"],
Cell[94286, 2104, 14446, 244, 222, "Output"],
Cell[108735, 2350, 14445, 243, 238, "Output"],
Cell[123183, 2595, 568, 13, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123788, 2613, 2918, 77, 148, "Input"],
Cell[126709, 2692, 18912, 315, 219, "Output"],
Cell[145624, 3009, 18874, 314, 238, "Output"],
Cell[164501, 3325, 512, 13, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165050, 3343, 3285, 83, 148, "Input"],
Cell[168338, 3428, 22203, 369, 219, "Output"],
Cell[190544, 3799, 22191, 369, 238, "Output"],
Cell[212738, 4170, 673, 17, 43, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[213448, 4192, 216, 5, 27, "Input"],
Cell[213667, 4199, 264, 8, 51, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[213992, 4214, 217, 3, 26, "Subsection"],
Cell[214212, 4219, 4444, 110, 298, "Input"],
Cell[CellGroupData[{
Cell[218681, 4333, 474, 9, 73, "Input"],
Cell[219158, 4344, 610, 14, 47, "Output"],
Cell[219771, 4360, 631, 13, 27, "Output"],
Cell[220405, 4375, 857, 22, 53, "Output"],
Cell[221265, 4399, 572, 12, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221874, 4416, 612, 15, 43, "Input"],
Cell[222489, 4433, 222, 5, 47, "Output"],
Cell[222714, 4440, 346, 10, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223097, 4455, 1292, 30, 43, "Input"],
Cell[224392, 4487, 30463, 508, 239, 19273, 324, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[254892, 5000, 1914, 38, 58, "Input"],
Cell[256809, 5040, 14279, 240, 222, "Output"]
}, Open  ]],
Cell[271103, 5283, 142, 1, 26, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[271294, 5290, 139, 2, 37, "Section"],
Cell[CellGroupData[{
Cell[271458, 5296, 90, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[271573, 5301, 662, 19, 27, "Input"],
Cell[272238, 5322, 7787, 135, 241, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280062, 5462, 1898, 46, 103, "Input"],
Cell[281963, 5510, 424, 8, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[282424, 5523, 1122, 29, 73, "Input"],
Cell[283549, 5554, 32628, 541, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316214, 6100, 2436, 65, 163, "Input"],
Cell[318653, 6167, 421, 10, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[319111, 6182, 986, 28, 88, "Input"],
Cell[320100, 6212, 21621, 359, 247, "Output"]
}, Open  ]],
Cell[341736, 6574, 124, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[341885, 6579, 1348, 39, 58, "Input"],
Cell[343236, 6620, 20643, 344, 238, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[363928, 6970, 199, 3, 26, "Subsection"],
Cell[CellGroupData[{
Cell[364152, 6977, 291, 7, 27, "Input"],
Cell[364446, 6986, 4942, 87, 237, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[369425, 7078, 508, 14, 27, "Input"],
Cell[369936, 7094, 688, 12, 58, "Message"],
Cell[370627, 7108, 424, 13, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[371088, 7126, 2058, 48, 103, "Input"],
Cell[373149, 7176, 307, 7, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[373493, 7188, 1023, 25, 43, "Input"],
Cell[374519, 7215, 7259, 125, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[381815, 7345, 981, 24, 43, "Input"],
Cell[382799, 7371, 13135, 220, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[395971, 7596, 2879, 77, 178, "Input"],
Cell[398853, 7675, 745, 17, 51, "Output"],
Cell[399601, 7694, 12676, 213, 237, "Output"],
Cell[412280, 7909, 12324, 207, 241, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[424665, 8123, 96, 1, 37, "Section"],
Cell[CellGroupData[{
Cell[424786, 8128, 105, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[424916, 8133, 515, 12, 27, "Input"],
Cell[425434, 8147, 3570, 66, 237, "Output"]
}, Open  ]],
Cell[429019, 8216, 243, 5, 26, "Text"],
Cell[429265, 8223, 2165, 63, 148, "Input"],
Cell[CellGroupData[{
Cell[431455, 8290, 1857, 51, 92, "Input"],
Cell[433315, 8343, 295, 9, 50, "Output"],
Cell[433613, 8354, 708, 24, 51, "Output"],
Cell[434324, 8380, 754, 22, 33, "Output"],
Cell[435081, 8404, 600, 19, 33, "Output"],
Cell[435684, 8425, 460, 14, 33, "Output"]
}, Open  ]],
Cell[436159, 8442, 176, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[436360, 8450, 4433, 106, 193, "Input"],
Cell[440796, 8558, 449, 11, 43, "Output"],
Cell[441248, 8571, 1159, 29, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[442444, 8605, 2804, 63, 103, "Input"],
Cell[445251, 8670, 27331, 493, 240, "Output"],
Cell[472585, 9165, 29619, 542, 237, "Output"]
}, Open  ]],
Cell[502219, 9710, 141, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[502385, 9715, 739, 20, 58, "Input"],
Cell[503127, 9737, 160, 3, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503324, 9745, 2853, 63, 103, "Input"],
Cell[506180, 9810, 30567, 552, 238, "Output"],
Cell[536750, 10364, 23343, 422, 236, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[560142, 10792, 97, 1, 34, "Subsection"],
Cell[CellGroupData[{
Cell[560264, 10797, 451, 10, 27, "Input"],
Cell[560718, 10809, 3739, 67, 247, "Output"]
}, Open  ]],
Cell[564472, 10879, 2376, 68, 178, "Input"],
Cell[CellGroupData[{
Cell[566873, 10951, 1178, 30, 73, "Input"],
Cell[568054, 10983, 326, 8, 47, "Output"],
Cell[568383, 10993, 708, 21, 49, "Output"],
Cell[569094, 11016, 730, 21, 33, "Output"],
Cell[569827, 11039, 491, 13, 33, "Output"]
}, Open  ]],
Cell[570333, 11055, 110, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[570468, 11060, 879, 22, 58, "Input"],
Cell[571350, 11084, 290, 9, 46, "Output"],
Cell[571643, 11095, 120, 2, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[571800, 11102, 2991, 76, 178, "Input"],
Cell[574794, 11180, 498, 10, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[575329, 11195, 1695, 40, 88, "Input"],
Cell[577027, 11237, 61786, 1059, 234, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[638850, 12301, 629, 15, 27, "Input"],
Cell[639482, 12318, 166, 3, 27, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)
